Add powerthesaurus and lookup-map

`lookup-map' might come in very handy later on...

1 files changed, 7 insertions, 0 deletions

@@ -814,6 +814,10 @@ like a dumbass."
   (defvar case-map (make-sparse-keymap)
     "A keymap for setting case in various ways.")
   (global-set-key (kbd "C-c c") case-map)
+
+  (defvar lookup-map (make-sparse-keymap)
+    "A keymap for looking up things.")
+  (global-set-key (kbd "C-c l") lookup-map)
   
   (:global "M-=" count-words
            "C-w" kill-region-or-backward-word
@@ -1660,6 +1664,9 @@ browser defined in `browse-url-secondary-browser-function'."
               (persistent-scratch-mode +1))))
         (buffer-list)))
 
+(setup (:straight powerthesaurus)
+  (:global (kbd "C-c l t") #'powerthesaurus-lookup-word-dwim))
+
 (setup (:straight restart-emacs)
   (defun emacs-upgrade (&optional update-packages)
     "Pull config, upgrade packages, restart Emacs."