Add magic-filetype-collect-major-modes

Author: zonuexe

README.org

@@ -44,3 +44,10 @@ If you write the setting to =.emacs=, you can be briefly defined as follows.
 
 *** Reload major mode
 =M-x magic-filetype-reload-major-mode=
+
+** Utility function
+*** Collect major-modes
+#+BEGIN_SRC emacs-lisp
+(require 'magic-filetype')
+(completing-read "Input major mode: " (magic-filetype-collect-major-modes))
+#+END_SRC

magic-filetype.el

@@ -150,6 +150,12 @@
   :group 'magic-filetype
   :type  '(alist :key-type symbol :value-type list))
 
+(defun magic-filetype-collect-major-modes ()
+  "Retturn list of MAJOR-MODEs by `auto-mode-alist'."
+  (cl-loop for elm in auto-mode-alist
+           if (symbolp (cdr elm))
+           collect (cdr elm)))
+
 ;;;###autoload
 (defun magic-filetype-major-mode-from-language-name (lang-name)
   "Invoke `major-mode' from `LANG-NAME'."