branch: externals/ergoemacs-mode
commit a9f7cafd2702855e14f69a71631f19c7c92a2963
Author: Walter Landry <wlan...@caltech.edu>
Commit: Walter Landry <wlan...@caltech.edu>
Remove major mode stuff
---
ergoemacs-lib.el | 114 -------------------------------------------------------
1 file changed, 114 deletions(-)
diff --git a/ergoemacs-lib.el b/ergoemacs-lib.el
index c43b1eb..cba1675 100644
--- a/ergoemacs-lib.el
+++ b/ergoemacs-lib.el
@@ -280,120 +280,6 @@ ergoemacs THEME."
(defvar ergoemacs-xah-emacs-lisp-tutorial-url
"http://ergoemacs.org/emacs/elisp.html";)
-(defvar ergoemacs-mode-web-page-url
- "http://ergoemacs.github.io/";)
-
-
-(defun ergoemacs-menu--get-major-mode-name (mode)
- "Gets the MODE language name.
-Tries to get the value from `ergoemacs-mode-names'. If not guess the language
name."
- (let ((ret (assoc mode ergoemacs-mode-names)))
- (if (not ret)
- (setq ret (replace-regexp-in-string
- "-" " "
- (replace-regexp-in-string
- "-mode" ""
- (symbol-name mode))))
- (setq ret (car (cdr ret))))
- (setq ret (concat (upcase (substring ret 0 1))
- (substring ret 1)))
- ret))
-
-(defcustom ergoemacs-major-mode-menu-map-extra-modes
- '(fundamental-mode lisp-interaction-mode)
- "List of extra modes that should bring up the major-mode menu."
- :type '(repeat (function :tag "Major Mode"))
- :group 'ergoemacs-mode)
-
-(defvar ergoemacs-menu--get-major-modes nil
- "List of major-modes known to `ergoemacs-mode'.")
-
-(defun ergoemacs-menu--get-major-modes ()
- "Gets a list of language modes known to `ergoemacs-mode'.
-This gets all major modes known from the variables:
-- `interpreter-mode-alist';
-- `magic-mode-alist'
-- `magic-fallback-mode-alist'
-- `auto-mode-alist'
-- `ergoemacs-major-mode-menu-map-extra-modes'
-
-All other modes are assumed to be minor modes or unimportant.
-"
- ;; Get known major modes
- (let ((ret '())
- all dups cur-lst current-letter
- added-modes
- (modes '()))
- (dolist (elt ergoemacs-major-mode-menu-map-extra-modes)
- (unless (memq elt modes)
- (when (and (functionp elt)
- (ignore-errors (string-match "-mode$" (symbol-name elt))))
- (unless (or (memq elt ergoemacs-excluded-major-modes)
- (member (downcase (symbol-name elt)) added-modes))
- (let* ((name (ergoemacs-menu--get-major-mode-name elt))
- (first (upcase (substring name 0 1))))
- (if (member first all)
- (unless (member first dups)
- (push first dups))
- (push first all))
- (push (list elt 'menu-item
- name
- elt) ret))
- (push (downcase (symbol-name elt)) added-modes)
- (push elt modes)))))
- (dolist (elt (append
- interpreter-mode-alist
- magic-mode-alist
- magic-fallback-mode-alist
- auto-mode-alist))
- (unless (memq (cdr elt) modes)
- (when (and (functionp (cdr elt))
- (ignore-errors (string-match "-mode$" (symbol-name (cdr
elt)))))
- (unless (or (memq (cdr elt) ergoemacs-excluded-major-modes)
- (member (downcase (symbol-name (cdr elt))) added-modes))
- (let* ((name (ergoemacs-menu--get-major-mode-name (cdr elt)))
- (first (upcase (substring name 0 1))))
- (if (member first all)
- (unless (member first dups)
- (push first dups))
- (push first all))
- (push (list (cdr elt) 'menu-item
- name
- (cdr elt)) ret))
- (push (downcase (symbol-name (cdr elt))) added-modes)
- (push (cdr elt) modes)))))
- (setq modes (sort ret (lambda(x1 x2) (string< (downcase (nth 2 x2))
- (downcase (nth 2 x1)))))
- ergoemacs-menu--get-major-modes (mapcar (lambda(x) (intern x))
added-modes))
- (setq ret '())
- (dolist (elt modes)
- (let ((this-letter (upcase (substring (nth 2 elt) 0 1))))
- (cond
- ((not (member this-letter dups))
- ;; not duplicated -- add prior list and push current element.
- (when cur-lst
- (push `(,(intern current-letter) menu-item ,current-letter
- (keymap ,@cur-lst)) ret))
- (push elt ret)
- (setq current-letter this-letter)
- (setq cur-lst nil))
- ((not (equal this-letter current-letter))
- ;; duplicated, but not last letter.
- (when cur-lst
- (push `(,(intern current-letter) menu-item ,current-letter
- (keymap ,@cur-lst)) ret))
- (setq cur-lst nil)
- (setq current-letter this-letter)
- (push elt cur-lst))
- (t
- ;; duplicated and last letter
- (push elt cur-lst)))))
- (when cur-lst
- (push `(,(intern current-letter) menu-item ,current-letter
- (keymap ,@cur-lst)) ret))
- ;; Now create nested menu.
- `(keymap ,@ret)))
-
;;;###autoload
(defun ergoemacs-gen-ahk (&optional all)
"Generates autohotkey for all layouts and themes"
