ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Emacs: Fix minor modes widget

Browse source
This commit is contained in:
Tom Willemsen 2013-03-23 14:02:56 +01:00
parent 534a2e1ab7
commit d215db6c7b
1 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
emacs/init.org
View file

@ -363,10 +363,17 @@ functionality, plus more.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun oni:smt/minor-mode-indicator-text (widget) (defun oni:smt/minor-mode-indicator-text (widget)
(let ((text (concat (let* ((mm-alist '((auto-complete-mode . "AC ")
(when (bound-and-true-p auto-complete-mode) "C") (auto-fill-mode . "AF ")
(when (bound-and-true-p auto-fill-mode) "F") (eldoc-mode . "LD ")
(when (bound-and-true-p eldoc-mode) "D")))) (paredit-mode . "()")))
(text (apply 'concat
(mapcar
(lambda (pair)
(when (and (boundp (car pair))
(symbol-value (car pair)))
(cdr pair)))
mm-alist))))
(if (plusp (length text)) (if (plusp (length text))
(concat " " text) (concat " " text)
""))) "")))