diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/acdw-modeline.el | 35 |
1 files changed, 9 insertions, 26 deletions
diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el index 00eb056..df2811f 100644 --- a/lisp/acdw-modeline.el +++ b/lisp/acdw-modeline.el | |||
@@ -22,6 +22,15 @@ | |||
22 | (require 'simple-modeline) | 22 | (require 'simple-modeline) |
23 | (require 'minions) | 23 | (require 'minions) |
24 | 24 | ||
25 | (defcustom acdw-modeline/word-count-modes | ||
26 | (mapcar (lambda (m) (cons m nil)) simple-modeline-word-count-modes) | ||
27 | "Alist of modes to functions that `acdw-modeline/word-count' should dispatch. | ||
28 | If the cdr of the cons cell is nil, use the default function (`count-words'). | ||
29 | Otherwise, cdr should be a function that takes two points (see `count-words')." | ||
30 | :type '(alist :key-type (symbol :tag "Major-Mode") | ||
31 | :value-type function) | ||
32 | :group 'simple-modeline) | ||
33 | |||
25 | (defun acdw-modeline/buffer-name () ; gonsie | 34 | (defun acdw-modeline/buffer-name () ; gonsie |
26 | "Display the buffer name in a face reflecting its modified status." | 35 | "Display the buffer name in a face reflecting its modified status." |
27 | (propertize " %b " | 36 | (propertize " %b " |
@@ -92,23 +101,6 @@ indicator in the mode-line." | |||
92 | (read-only-mode 'toggle))))) | 101 | (read-only-mode 'toggle))))) |
93 | 'mouse-face 'mode-line-highlight)))) | 102 | 'mouse-face 'mode-line-highlight)))) |
94 | 103 | ||
95 | (defun acdw-modeline/minions () ; by me | ||
96 | "Display a button for `minions-minor-modes-menu'." | ||
97 | (concat | ||
98 | " " | ||
99 | (propertize | ||
100 | "&" | ||
101 | 'help-echo (format | ||
102 | "Minor modes menu\nmouse-1: show menu.") | ||
103 | 'local-map (purecopy (simple-modeline-make-mouse-map | ||
104 | 'mouse-1 | ||
105 | (lambda (event) | ||
106 | (interactive "e") | ||
107 | (with-selected-window (posn-window | ||
108 | (event-start event)) | ||
109 | (minions-minor-modes-menu))))) | ||
110 | 'mouse-face 'mode-line-highlight))) | ||
111 | |||
112 | (defun acdw-modeline/narrowed () | 104 | (defun acdw-modeline/narrowed () |
113 | "Display an indication if the buffer is narrowed." | 105 | "Display an indication if the buffer is narrowed." |
114 | (when (buffer-narrowed-p) | 106 | (when (buffer-narrowed-p) |
@@ -176,15 +168,6 @@ Only shows if there is more than one window." | |||
176 | (> winum--window-count 1)) | 168 | (> winum--window-count 1)) |
177 | (format winum-format (winum-get-number-string)))) | 169 | (format winum-format (winum-get-number-string)))) |
178 | 170 | ||
179 | (defcustom acdw-modeline/word-count-modes | ||
180 | (mapcar (lambda (m) (cons m nil)) simple-modeline-word-count-modes) | ||
181 | "Alist of modes to functions that `acdw-modeline/word-count' should dispatch. | ||
182 | If the cdr of the cons cell is nil, use the default function (`count-words'). | ||
183 | Otherwise, cdr should be a function that takes two points (see `count-words')." | ||
184 | :type '(alist :key-type (symbol :tag "Major-Mode") | ||
185 | :value-type function) | ||
186 | :group 'simple-modeline) | ||
187 | |||
188 | (defun acdw-modeline/word-count () | 171 | (defun acdw-modeline/word-count () |
189 | "Display a buffer word count, depending on the major mode. | 172 | "Display a buffer word count, depending on the major mode. |
190 | Uses `acdw-modeline/word-count-modes' to determine which function to use." | 173 | Uses `acdw-modeline/word-count-modes' to determine which function to use." |