[elpa] externals/ergoemacs-mode a9f7caf 217/325: Remove major mode stuff

[Stefan Monnier]

branch: externals/ergoemacs-mode
commit a9f7cafd2702855e14f69a71631f19c7c92a2963
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@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"