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) |