diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/+casing.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/+casing.el b/lisp/+casing.el index 115cb43..fe97310 100644 --- a/lisp/+casing.el +++ b/lisp/+casing.el | |||
@@ -4,12 +4,16 @@ | |||
4 | 4 | ||
5 | (require 'thingatpt) | 5 | (require 'thingatpt) |
6 | 6 | ||
7 | (defvar +casing-map (let ((map (make-sparse-keymap))) | 7 | (defvar +casing-map (make-sparse-keymap) |
8 | (define-key map "u" #'+upcase-dwim) | 8 | "Keymap for word-casing.") |
9 | (define-key map "l" #'+downcase-dwim) | 9 | |
10 | (define-key map "c" #'+capitalize-dwim) | 10 | (let ((map +casing-map)) |
11 | map) | 11 | (define-key map "u" #'+upcase-dwim) |
12 | "Keymap for word-casing.") | 12 | (define-key map (kbd "M-u") #'+upcase-dwim) |
13 | (define-key map "l" #'+downcase-dwim) | ||
14 | (define-key map (kbd "M-l") #'+downcase-dwim) | ||
15 | (define-key map "c" #'+capitalize-dwim) | ||
16 | (define-key map (kbd "M-c") #'+capitalize-dwim)) | ||
13 | 17 | ||
14 | ;;;###autoload | 18 | ;;;###autoload |
15 | (defun +upcase-dwim (arg) | 19 | (defun +upcase-dwim (arg) |