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

---
 init.el         |  3 +--
 lisp/+casing.el | 16 ++++++++++------
 2 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/init.el b/init.el
index e93ea19..8ebdb45 100644
--- a/init.el
+++ b/init.el
@@ -22,8 +22,7 @@
   (require (or (car-safe feature) feature) (cdr-safe feature) :noerror))
 
 (setup (:require +casing)
-  (with-eval-after-load '+key
-    (define-key +key-mode-map (kbd "C-c c") +casing-map))
+  (:+key "M-c" +casing-map)
   ;; Unbind default casing bindings
   (:global "M-u" nil "M-c" nil "M-l" nil
            "C-x C-u" nil "C-x C-l" nil))
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