lisp/emacs-lisp/easy-mmode.el

0 ;;; easy-mmode.el --- easy definition for major and minor modes
31 ;; minor mode easy, by focusing on the writing of the minor mode
36 ;; For each mode, easy-mmode defines the following:
58 (defun easy-mmode-pretty-mode-name (mode &optional lighter)
87 (defalias 'easy-mmode-define-minor-mode 'define-minor-mode)
98   If it is a list, it is passed to `easy-mmode-define-keymap'
144 	 (pretty-name (easy-mmode-pretty-mode-name mode lighter))
260 		     ((listp m) (easy-mmode-define-keymap m))
275 (defalias 'easy-mmode-define-global-mode 'define-globalized-minor-mode)
299 	 (pretty-name (easy-mmode-pretty-mode-name mode))
300 	 (pretty-global-name (easy-mmode-pretty-mode-name global-mode))
389 ;;; easy-mmode-defmap
393     (defalias 'easy-mmode-set-keymap-parents 'set-keymap-parents)
394   (defun easy-mmode-set-keymap-parents (m parents)
401 	   (easy-mmode-set-keymap-parents m parents)
405 (defun easy-mmode-define-keymap (bs &optional name m args)
421 	 (t (message "Unknown argument %s in defmap" key)))))
439      ((consp inherit) (easy-mmode-set-keymap-parents m inherit)))
443 (defmacro easy-mmode-defmap (m bs doc &rest args)
445      (easy-mmode-define-keymap ,bs nil (if (boundp ',m) ,m) ,(cons 'list args))
451 ;;; easy-mmode-defsyntax
454 (defun easy-mmode-define-syntax (css args)
468 (defmacro easy-mmode-defsyntax (st css doc &rest args)
472      (autoload 'easy-mmode-define-syntax "easy-mmode")
473      (defconst ,st (easy-mmode-define-syntax ,css ,(cons 'list args)) ,doc)))
479 ;;; easy-mmode-define-navigation
482 (defmacro easy-mmode-define-navigation (base re &optional name endfun narrowfun)
543 (provide 'easy-mmode)
546 ;;; easy-mmode.el ends here