diff options
| author | Case Duckworth | 2021-12-13 10:29:50 -0600 |
|---|---|---|
| committer | Case Duckworth | 2021-12-13 10:29:50 -0600 |
| commit | b11adad984e8160e366d7e154d12c378a9545b9a (patch) | |
| tree | 72c23feb56d4d05107ac8285537429786efcda0d /lisp/+key.el | |
| parent | Mostley add +key.el (but of course other stuff) (diff) | |
| download | emacs-b11adad984e8160e366d7e154d12c378a9545b9a.tar.gz emacs-b11adad984e8160e366d7e154d12c378a9545b9a.zip | |
Lots of changes, most interestingly browse-url stuff
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'." |