diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/+god-mode.el | 17 | ||||
-rw-r--r-- | lisp/+modeline.el | 18 |
2 files changed, 35 insertions, 0 deletions
diff --git a/lisp/+god-mode.el b/lisp/+god-mode.el new file mode 100644 index 0000000..f70e76b --- /dev/null +++ b/lisp/+god-mode.el | |||
@@ -0,0 +1,17 @@ | |||
1 | ;;; +god-mode.el -*- lexical-binding: t; -*- | ||
2 | |||
3 | ;;; Code: | ||
4 | |||
5 | (defun +god-mode-insert () | ||
6 | "Leave `god-local-mode' at point." | ||
7 | (interactive) | ||
8 | (god-local-mode -1)) | ||
9 | |||
10 | (defun +god-mode-append () | ||
11 | "Leave `god-local-mode' after point." | ||
12 | (interactive) | ||
13 | (forward-char 1) | ||
14 | (god-local-mode -1)) | ||
15 | |||
16 | (provide '+god-mode) | ||
17 | ;;; +god-mode.el ends here | ||
diff --git a/lisp/+modeline.el b/lisp/+modeline.el index 4063d83..a0195f1 100644 --- a/lisp/+modeline.el +++ b/lisp/+modeline.el | |||
@@ -240,5 +240,23 @@ The order of elements matters: whichever one matches first is applied." | |||
240 | (concat (or spacer +modeline-default-spacer) | 240 | (concat (or spacer +modeline-default-spacer) |
241 | (window-parameter (selected-window) 'ace-window-path)))) | 241 | (window-parameter (selected-window) 'ace-window-path)))) |
242 | 242 | ||
243 | (defun +modeline-god-mode (&optional spacer) | ||
244 | "Display an icon when `god-mode' is active." | ||
245 | (when (and (boundp 'god-local-mode) god-local-mode) | ||
246 | (concat (or spacer +modeline-default-spacer) | ||
247 | (propertize "Ω" | ||
248 | 'help-echo (concat "God mode is active." | ||
249 | "\nmouse-1: exit God mode.") | ||
250 | 'local-map (purecopy | ||
251 | (simple-modeline-make-mouse-map | ||
252 | 'mouse-1 (lambda (e) | ||
253 | (interactive "e") | ||
254 | (with-selected-window | ||
255 | (posn-window | ||
256 | (event-start ev)) | ||
257 | (god-local-mode -1) | ||
258 | (force-mode-line-update))))) | ||
259 | 'mouse-face 'mode-line-highlight)))) | ||
260 | |||
243 | (provide '+modeline) | 261 | (provide '+modeline) |
244 | ;;; +modeline.el ends here | 262 | ;;; +modeline.el ends here |