branch: externals/ergoemacs-mode
commit 74ad06f334667d59a6b866f9afefdbae8ee3b0a7
Author: Walter Landry <wlan...@caltech.edu>
Commit: Walter Landry <wlan...@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
