diff options
| author | Case Duckworth | 2022-01-05 11:24:05 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-05 11:24:05 -0600 |
| commit | a3fc41f61b6e1f634222970557b8b4aa31ff57fe (patch) | |
| tree | c45b9619ef726d42768f5a61e1154f4da7056b4a /lisp/+casing.el | |
| parent | Add +lookup (diff) | |
| download | emacs-a3fc41f61b6e1f634222970557b8b4aa31ff57fe.tar.gz emacs-a3fc41f61b6e1f634222970557b8b4aa31ff57fe.zip | |
Change +casing keymap
Diffstat (limited to 'lisp/+casing.el')
| -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) |