all repos — nixfiles @ b1a405303f7f8783b411c45ceef23eaadf7541ed

System and user configuration, managed by nix and home-manager

Emacs: refactor rename-modeline

Alan Pearce
commit

b1a405303f7f8783b411c45ceef23eaadf7541ed

parent

8fd7aee3073cd8baa50767a9c948d47d539b5c71

1 file changed, 4 insertions(+), 5 deletions(-)

jump to
M tag-emacs/emacs.d/init.eltag-emacs/emacs.d/init.el
@@ -12,10 +12,9 @@
(load custom-file :noerror) ;;;; Helper Macros -(defmacro rename-modeline (package-name mode new-name) - `(eval-after-load ,package-name - '(defadvice ,mode (after rename-modeline activate) - (setq mode-name ,new-name)))) +(defmacro rename-modeline (mode new-name) + `(defadvice ,mode (after rename-modeline activate) + (setq mode-name ,new-name))) ;;; Allow lisps to use a common setup. I don't know why they don't have some lispy mode as their parent, but this is close enough (defcustom lisp-common-mode-hook nil
@@ -973,7 +972,7 @@ (defun set-common-lisp-indentation ()
(set (make-local-variable 'lisp-indent-function) #'common-lisp-indent-function)) -(rename-modeline "lisp-mode" emacs-lisp-mode "ξ") +(rename-modeline emacs-lisp-mode "ξ") (add-hook 'emacs-lisp-mode-hook #'ap/lisp-setup) (add-hook 'emacs-lisp-mode-hook #'turn-on-eldoc-mode)