1 files changed, 13 insertions, 12 deletions

@@ -3,7 +3,6 @@
 ;;; Code:
 
 (require 'thingatpt)
-(require '+key)
 
 ;;;###autoload
 (defun +upcase-dwim (arg)
@@ -61,21 +60,23 @@ Otherwise, it calls `capitalize-word' on the word at point (using
 
 ;; Later on, I'll add repeat maps and stuff in here...
 
+(defvar +casing-map (let ((map (make-sparse-keymap)))
+                      (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)
+                      map)
+  "Keymap for case-related twiddling.")
+
 (define-minor-mode +casing-mode
   "Enable easy case-twiddling commands."
   :lighter " cC"
+  :global t
   :keymap (let ((map (make-sparse-keymap)))
-            (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)
-            map)
-  (define-key +key-mode-map (kbd "M-c") (when +casing-mode
-                                          +casing-mode-map)))
-
-(defvaralias '+casing-map '+casing-mode-map)
+            (define-key map (kbd "M-c") +casing-map)
+            map))
 
 (provide '+casing)
 ;;; +casing.el ends here