From 56304658779dae0bd720f56f49f1b296110653f8 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 6 Jan 2022 08:55:43 -0600
Subject: Add find-variable to +lookup-map

---
 lisp/+lookup.el | 1 +
 1 file changed, 1 insertion(+)

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

diff --git a/lisp/+lookup.el b/lisp/+lookup.el
index f13f535..8fa8795 100644
--- a/lisp/+lookup.el
+++ b/lisp/+lookup.el
@@ -15,6 +15,7 @@
   :keymap (let ((map (make-sparse-keymap)))
              (define-key map "f" #'find-function)
              (define-key map "l" #'find-library)
+             (define-key map "v" #'find-variable)
              map)
   (define-key +key-mode-map (kbd "C-c l") (when +lookup-mode
                                             +lookup-mode-map)))
-- 
cgit 1.4.1-21-gabe81


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(-)

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

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