branch: externals/ergoemacs-mode
commit 64215dcbed70974a6052abb7ca8d2b1d30ebb92a
Author: Walter Landry <wlan...@caltech.edu>
Commit: Walter Landry <wlan...@caltech.edu>
Remove some unused theme functions
---
ergoemacs-component.el | 2 --
ergoemacs-map.el | 1 -
ergoemacs-theme-engine.el | 20 --------------------
3 files changed, 23 deletions(-)
diff --git a/ergoemacs-component.el b/ergoemacs-component.el
index d8f8149..d38117d 100644
--- a/ergoemacs-component.el
+++ b/ergoemacs-component.el
@@ -79,8 +79,6 @@
(declare-function ergoemacs-map-properties--empty-p "ergoemacs-map-properties")
(declare-function ergoemacs-map-properties--label "ergoemacs-map-properties")
-(declare-function ergoemacs-theme--get-version "ergoemacs-theme-engine")
-
(declare-function ergoemacs-map-- "ergoemacs-map")
(declare-function ergoemacs-map-keymap "ergoemacs-mapkeymap")
diff --git a/ergoemacs-map.el b/ergoemacs-map.el
index 5c031f0..ef1b514 100644
--- a/ergoemacs-map.el
+++ b/ergoemacs-map.el
@@ -73,7 +73,6 @@
(declare-function ergoemacs-component-struct--minor-mode-map-alist
"ergoemacs-component")
(declare-function ergoemacs-component-struct--translated-list
"ergoemacs-component")
-(declare-function ergoemacs-theme--get-version "ergoemacs-theme-engine")
(declare-function ergoemacs-theme-components "ergoemacs-theme-engine")
(declare-function ergoemacs-map-keymap "ergoemacs-mapkeymap")
diff --git a/ergoemacs-theme-engine.el b/ergoemacs-theme-engine.el
index e1ddbe6..eb3b950 100644
--- a/ergoemacs-theme-engine.el
+++ b/ergoemacs-theme-engine.el
@@ -162,14 +162,6 @@ If OFF is non-nil, turn off the options instead."
(when ergoemacs-mode
(ergoemacs-mode-reset)))
-;;;###autoload
-(defun ergoemacs-theme-toggle-option (option)
- "Toggle theme OPTION."
- (if (ergoemacs-theme-option-enabled-p option)
- (ergoemacs-theme-option-off option)
- (ergoemacs-theme-option-on option)))
-
-
(defun ergoemacs-theme--custom-documentation (&optional themes ini)
"Get list of all known layouts and their documentation.
@@ -202,18 +194,6 @@ When AT-END is non-nil, append a $ to the regular
expression."
(setq ret (concat ret "$")))
ret))
-(defun ergoemacs-theme-option-enabled-p (option)
- "Determines if OPTION is enabled."
- (let* ((plist (ergoemacs-gethash (ergoemacs :current-theme)
ergoemacs-theme-hash))
- (options-on (plist-get plist :optional-on))
- (options-off (plist-get plist :optional-off))
- (required (plist-get plist :components)))
- (or (member option required)
- (and (member option options-on)
- (not (member (list option 'off) ergoemacs-theme-options)))
- (and (member option options-off)
- (member (list option 'on) ergoemacs-theme-options)))))
-
(defun ergoemacs-theme--get-version ()
"Get the current version for the current theme."
(let ((theme-ver (assoc (ergoemacs :current-theme) ergoemacs-theme-version)))
