From 587431211265436e38ce7ec78bf30237541b0f97 Mon Sep 17 00:00:00 2001
From: mitchell <70453897+667e-11@users.noreply.github.com>
Date: Fri, 21 Jun 2013 12:56:24 -0400
Subject: `gui.set_theme()` accepts key-value argument pairs for theme
 properties to set.

---
 core/gui.lua | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'core')

diff --git a/core/gui.lua b/core/gui.lua
index c8e593f2..bee5c567 100644
--- a/core/gui.lua
+++ b/core/gui.lua
@@ -164,14 +164,17 @@ end
 ---
 -- Sets the editor theme name to *name* or prompts the user to select one from a
 -- list of themes found in the *`_USERHOME`/themes/* and *`_HOME`/themes/*
--- directories.
+-- directories and optionally sets key-value pair argument properties.
 -- User themes override Textadept's default themes when they have the same name.
 -- If *name* contains slashes, it is assumed to be an absolute path to a theme
 -- instead of a theme name.
 -- @param name Optional name or absolute path of a theme to set. If `nil`, the
 --   user is prompted for one.
+-- @param ... key-value argument pairs for theme properties to set. These
+--   override the theme's defaults.
+-- @usage gui.set_theme('light', 'font', 'Monospace', 'fontsize', 12)
 -- @name set_theme
-function gui.set_theme(name)
+function gui.set_theme(name, ...)
   if not name then
     local themes, themes_found = {}, {}
     for theme in lfs.dir(_HOME..'/themes') do
@@ -193,15 +196,18 @@ function gui.set_theme(name)
                                     _HOME..'/themes/?.lua')
   end
   if not name or not lfs.attributes(name) then return end
+  local buffer, props = buffer, {...}
   local current_buffer, current_view = _BUFFERS[buffer], _VIEWS[view]
   for i = 1, #_BUFFERS do
     view:goto_buffer(i)
     dofile(name)
+    for j = 1, #props, 2 do buffer.property[props[j]] = props[j + 1] end
   end
   view:goto_buffer(current_buffer)
   for i = 1, #_VIEWS do
     gui.goto_view(i)
     dofile(name)
+    for j = 1, #props, 2 do buffer.property[props[j]] = props[j + 1] end
   end
   gui.goto_view(current_view)
 --  if not RESETTING then reset() end
-- 
cgit v1.2.3