From 75e03850c0ba098208c4999518b1b164c63a5eff Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Thu, 6 Jan 2022 15:48:19 -0600 Subject: Fix naming bug I also added aliases just in case I forget the proper names for these maps again. --- init.el | 2 +- lisp/+casing.el | 2 ++ lisp/+lookup.el | 2 ++ 3 files changed, 5 insertions(+), 1 deletion(-) diff --git a/init.el b/init.el index a822cb8..432ded7 100644 --- a/init.el +++ b/init.el @@ -1237,7 +1237,7 @@ See also `crux-reopen-as-root-mode'." :host github :repo "duckwork/titlecase.el" :files ("*"))) - (:with-map +casing-map + (:with-map +casing-mode-map (:bind "t" #'titlecase-dwim))) (setup (:straight topsy) diff --git a/lisp/+casing.el b/lisp/+casing.el index a21e710..5f39b2e 100644 --- a/lisp/+casing.el +++ b/lisp/+casing.el @@ -75,5 +75,7 @@ Otherwise, it calls `capitalize-word' on the word at point (using (define-key +key-mode-map (kbd "M-c") (when +casing-mode +casing-mode-map))) +(defvaralias '+casing-map '+casing-mode-map) + (provide '+casing) ;;; +casing.el ends here diff --git a/lisp/+lookup.el b/lisp/+lookup.el index 8fa8795..755f84e 100644 --- a/lisp/+lookup.el +++ b/lisp/+lookup.el @@ -20,5 +20,7 @@ (define-key +key-mode-map (kbd "C-c l") (when +lookup-mode +lookup-mode-map))) +(defvaralias '+lookup-map '+lookup-mode-map) + (provide '+lookup) ;;; +lookup.el ends here -- cgit 1.4.1-21-gabe81