From a3fc41f61b6e1f634222970557b8b4aa31ff57fe Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 5 Jan 2022 11:24:05 -0600
Subject: Change +casing keymap

---
 lisp/+casing.el | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

(limited to 'lisp/+casing.el')

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 @@
 
 (require 'thingatpt)
 
-(defvar +casing-map (let ((map (make-sparse-keymap)))
-                      (define-key map "u" #'+upcase-dwim)
-                      (define-key map "l" #'+downcase-dwim)
-                      (define-key map "c" #'+capitalize-dwim)
-                      map)
-  "Keymap for word-casing.")
+(defvar +casing-map (make-sparse-keymap)
+         "Keymap for word-casing.")
+
+(let ((map +casing-map))
+  (define-key map "u" #'+upcase-dwim)
+  (define-key map (kbd "M-u") #'+upcase-dwim)
+  (define-key map "l" #'+downcase-dwim)
+  (define-key map (kbd "M-l") #'+downcase-dwim)
+  (define-key map "c" #'+capitalize-dwim)
+  (define-key map (kbd "M-c") #'+capitalize-dwim))
 
 ;;;###autoload
 (defun +upcase-dwim (arg)
-- 
cgit 1.4.1-21-gabe81