diff options
| author | Alan Pearce | 2014-07-14 20:45:39 +0100 |
|---|---|---|
| committer | Alan Pearce | 2014-07-14 20:45:39 +0100 |
| commit | b1a405303f7f8783b411c45ceef23eaadf7541ed (patch) | |
| tree | 52f28fd9a4744ab331322661762c6928f2f354e7 | |
| parent | 8fd7aee3073cd8baa50767a9c948d47d539b5c71 (diff) | |
| download | dotfiles-b1a405303f7f8783b411c45ceef23eaadf7541ed.tar.lz dotfiles-b1a405303f7f8783b411c45ceef23eaadf7541ed.tar.zst dotfiles-b1a405303f7f8783b411c45ceef23eaadf7541ed.zip | |
Emacs: refactor rename-modeline
| -rw-r--r-- | tag-emacs/emacs.d/init.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el index 1ff713b..2ae8a96 100644 --- a/tag-emacs/emacs.d/init.el +++ b/tag-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 @@ (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) |