[elpa] externals/ergoemacs-mode 74ad06f 228/325: Remove deftheme

[Stefan Monnier]

branch: externals/ergoemacs-mode
commit 74ad06f334667d59a6b866f9afefdbae8ee3b0a7
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@caltech.edu>

    Remove deftheme
---
 ergoemacs-macros.el | 36 ------------------------------------
 1 file changed, 36 deletions(-)

diff --git a/ergoemacs-macros.el b/ergoemacs-macros.el
index 3bf354c..5967018 100644
--- a/ergoemacs-macros.el
+++ b/ergoemacs-macros.el
@@ -460,42 +460,6 @@ additional parsing routines defined by PARSE-FUNCTION."
             (list plist remaining))))
 
 ;;;###autoload
-(defmacro ergoemacs-deftheme (name desc based-on &rest differences)
-  "Create theme layout for `ergoemacs-mode' key-bindings.
-
-This is compatibility layer.
-
-- NAME is the theme name.
-
-- DESC is the theme description
-
-- BASED-ON is the base name theme that the new theme is based on.
-
-- DIFFERENCES are the differences from the layout based on the
-  functions.  These are based on the following functions:
-
-- `ergoemacs-key' = defines/replaces variable key with function
-  by (ergoemacs-key QWERTY-KEY FUNCTION DESCRIPTION ONLY-FIRST)
-
-- `ergoemacs-fixed-key' = defines/replace fixed key with function
-   by (ergoemacs-fixed-key KEY FUNCTION DESCRIPTION)."
-  (declare (indent 1))
-  (macroexpand-all
-   `(let (silent pl tmp)
-      (setq pl (ergoemacs-gethash (or ,based-on "standard") 
ergoemacs-theme-hash))
-      (plist-put pl ':name ,(symbol-name name))
-      (setq tmp (plist-get pl ':components))
-      (push (intern (concat ,(symbol-name name) "-theme")) tmp)
-      (setq tmp (plist-put pl ':components tmp))
-      (setq silent (ergoemacs-gethash "silent-themes" ergoemacs-theme-hash))
-      (push ,(symbol-name name) silent)
-      (puthash "silent-themes" silent ergoemacs-theme-hash)
-      (puthash ,(symbol-name name) tmp ergoemacs-theme-hash)
-      (ergoemacs-theme-component ,(intern (concat (symbol-name name) 
"-theme")) ()
-        ,(or desc (format "Generated theme component for %s theme" 
(symbol-name name)))
-        ,@differences))))
-
-;;;###autoload
 (defmacro ergoemacs-save-buffer-state (&rest body)
   "Eval BODY,
 then restore the buffer state under the assumption that no significant