From b9190966d194bd31e67a97e8b085afbb49be4945 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 2 Sep 2021 23:50:50 -0500
Subject: Add powerthesaurus and lookup-map

`lookup-map' might come in very handy later on...
---
 init.el | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'init.el')

diff --git a/init.el b/init.el
index a3b3efa..6d08f29 100644
--- a/init.el
+++ b/init.el
@@ -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."
-- 
cgit 1.4.1-21-gabe81