[elpa] externals/ergoemacs-mode ed8a7c9 191/325: Remove unused theme choice menu

[Stefan Monnier]

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

    Remove unused theme choice menu
---
 ergoemacs-theme-engine.el | 65 -----------------------------------------------
 1 file changed, 65 deletions(-)

diff --git a/ergoemacs-theme-engine.el b/ergoemacs-theme-engine.el
index 0303168..0352643 100644
--- a/ergoemacs-theme-engine.el
+++ b/ergoemacs-theme-engine.el
@@ -218,70 +218,6 @@ When AT-END is non-nil, append a $ to the regular 
expression."
         (and (member option options-off)
              (member (list option 'on) ergoemacs-theme-options)))))
 
-
-(defun ergoemacs-theme--menu-options ()
-  "Gets the options menu for THEME."
-  (let ((plist (ergoemacs-gethash "standard" ergoemacs-theme-hash))
-        (menu-list '())
-        (menu-pre '())
-        (options-on '())
-        (options-off '())
-        (menu-options '())
-        (options-list '())
-        (options-alist '())
-        (i 0))
-    (setq options-on (plist-get plist ':optional-on)
-          options-off (plist-get plist ':optional-off)
-          menu-list (plist-get plist ':options-menu))
-    (if (= 0 (length (append options-on options-off))) nil
-      (dolist (elt (reverse menu-list))
-        (let ((menu-name (nth 0 elt))
-              (menu-items (nth 1 elt))
-              desc
-              (ret '()))
-          (dolist (option (reverse menu-items))
-            (when (memq option (append options-on options-off))
-              (setq desc (ergoemacs-component-struct--component-description 
(symbol-name option)))
-              (push option menu-options)
-              (push
-               `(,option
-                 menu-item ,desc
-                 (lambda()
-                   (interactive)
-                   (ergoemacs-theme-toggle-option ',option)
-                   (customize-mark-as-set 'ergoemacs-theme-options)
-                   (ergoemacs-mode-reset))
-                 :button (:toggle . (ergoemacs-theme-option-enabled-p 
',option)))
-               ret)))
-          (unless (eq ret '())
-            (setq ret
-                  `(,(intern (format "options-menu-%s" i))
-                    menu-item ,menu-name
-                    (keymap ,@ret)))
-            (setq i (+ i 1))
-            (push ret menu-pre))))
-      (dolist (option (append options-on options-off))
-        (unless (member option menu-options)
-          (let ((desc (ergoemacs-component-struct--component-description 
(symbol-name option))))
-            (push desc options-list)
-            (push (list desc option) options-alist))))
-      `(ergoemacs-theme-options
-        menu-item "Options"
-        (keymap
-         ,@menu-pre
-         ,@(mapcar
-            (lambda(desc)
-              (let ((option (car (cdr (assoc desc options-alist)))))
-                `(,option
-                  menu-item ,desc
-                  (lambda()
-                    (interactive)
-                    (ergoemacs-theme-toggle-option ',option)
-                    (customize-mark-as-set 'ergoemacs-theme-options)
-                    (ergoemacs-mode-reset))
-                  :button (:toggle . (ergoemacs-theme-option-enabled-p 
',option)))))
-            (sort options-list 'string<)))))))
-
 (defun ergoemacs-theme--get-version ()
   "Get the current version for the current theme."
   (let ((theme-ver (assoc (ergoemacs :current-theme) ergoemacs-theme-version)))
@@ -292,7 +228,6 @@ When AT-END is non-nil, append a $ to the regular 
expression."
   "Define menus for current THEME."
   `(keymap
     ,(ergoemacs-layouts--menu)
-    ,(ergoemacs-theme--menu-options)
     (c-v
      menu-item "Paste behavior"
      (keymap