diff options
Diffstat (limited to 'lisp/+key.el')
-rw-r--r-- | lisp/+key.el | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/lisp/+key.el b/lisp/+key.el index 5b4f467..7a51be1 100644 --- a/lisp/+key.el +++ b/lisp/+key.el | |||
@@ -14,6 +14,9 @@ | |||
14 | 14 | ||
15 | ;;; Code: | 15 | ;;; Code: |
16 | 16 | ||
17 | (require 'easy-mmode) | ||
18 | (require 'setup nil t) | ||
19 | |||
17 | ;; I need to define this map before the proper mode map. | 20 | ;; I need to define this map before the proper mode map. |
18 | (defvar +key-leader-map (let ((map (make-sparse-keymap)) | 21 | (defvar +key-leader-map (let ((map (make-sparse-keymap)) |
19 | (c-z (global-key-binding "\C-z"))) | 22 | (c-z (global-key-binding "\C-z"))) |
@@ -30,13 +33,18 @@ | |||
30 | (define-minor-mode +key-mode | 33 | (define-minor-mode +key-mode |
31 | "A minor mode with keybindings that will override every other mode." | 34 | "A minor mode with keybindings that will override every other mode." |
32 | :init-value t | 35 | :init-value t |
33 | :lighter " +" | 36 | :lighter " +") |
34 | :keymap +key-mode-map) | 37 | (add-to-list 'emulation-mode-map-alists `((+key-mode . ,+key-mode-map))) |
35 | 38 | ||
36 | ;;;###autoload | 39 | ;;;###autoload |
37 | (define-globalized-minor-mode +key-global-mode +key-mode +key-mode) | 40 | (define-globalized-minor-mode +key-global-mode +key-mode +key-mode) |
38 | 41 | ||
39 | (add-to-list 'emulation-mode-map-alists `((+key-mode . ,+key-mode-map))) | 42 | ;;;###autoload |
43 | (defun +key-setup () | ||
44 | "Setup `+key-mode' after everything else." | ||
45 | (if after-init-time | ||
46 | (+key-global-mode +1) | ||
47 | (add-hook 'after-init-hook '+key-global-mode))) | ||
40 | 48 | ||
41 | (defun turn-off-+key-mode () | 49 | (defun turn-off-+key-mode () |
42 | "Turn off `+key-mode'." | 50 | "Turn off `+key-mode'." |