[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ergoemacs-mode ed8a7c9 191/325: Remove unused theme cho
From: |
Stefan Monnier |
Subject: |
[elpa] externals/ergoemacs-mode ed8a7c9 191/325: Remove unused theme choice menu |
Date: |
Sat, 23 Oct 2021 18:48:51 -0400 (EDT) |
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
- [elpa] externals/ergoemacs-mode d198bd3 149/325: Delete dead code, (continued)
- [elpa] externals/ergoemacs-mode d198bd3 149/325: Delete dead code, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 1ca781f 145/325: Fix info mode, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 238435f 154/325: Lots of isearch fixes, with a few other minor fixes to mode maps, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode cbe3e19 157/325: Add create/delete frame to menu, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode fcea163 151/325: Install an override map instead of futzing with all of the modes, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 481871c 152/325: Make ergoemacs-paste use term-paste if in term-mode, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode e02abf1 150/325: Remove unused post-command-hook and echo timer, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 982c28c 171/325: Cleanup, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 4b6d159 183/325: Remove command-loop and translate stuff, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 12d5e8e 176/325: Handle conflict between M-O and arrow keys in the terminal, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode ed8a7c9 191/325: Remove unused theme choice menu,
Stefan Monnier <=
- [elpa] externals/ergoemacs-mode 1136451 195/325: Remove all unicode-or-alt logic. Unicode all the way., Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 18f27c0 204/325: Fix SPC svg help, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode f41b18d 202/325: Remove 'apps and 'menu, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode a65ea4d 211/325: Cleanup unused declarations, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode e9259a5 210/325: Remove unused ergoemacs-component-describe, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 6bdd55b 213/325: Remove powerline stuff, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 75b9f50 221/325: More removals, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode acf3dfe 072/325: Cleanup, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 5257c0e 091/325: Remove commented code, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode e5172b8 076/325: Remove more shift translation stuff, Stefan Monnier, 2021/10/23