From a59178fc7b15645ee4da04e649ef205b4a160bcb Mon Sep 17 00:00:00 2001
From: Case Duckworth <acdw@acdw.net>
Date: Wed, 5 Jan 2022 11:23:47 -0600
Subject: [PATCH] Add +lookup

---
 init.el         |  3 +++
 lisp/+lookup.el | 17 +++++++++++++++++
 2 files changed, 20 insertions(+)
 create mode 100644 lisp/+lookup.el

diff --git a/init.el b/init.el
index 49e549e..e93ea19 100644
--- a/init.el
+++ b/init.el
@@ -59,6 +59,9 @@
 (setup (:require +key)
   (+ensure-after-init #'+key-global-mode))
 
+(setup (:require +lookup)
+  (:+key "C-c l" +lookup-map))
+
 (setup (:require auth-source)
   (:option auth-sources (list (private/ "authinfo"))))
 
diff --git a/lisp/+lookup.el b/lisp/+lookup.el
new file mode 100644
index 0000000..dfa0180
--- /dev/null
+++ b/lisp/+lookup.el
@@ -0,0 +1,17 @@
+;;; +lookup.el                                       -*- lexical-binding: t; -*-
+
+;;; Commentary:
+
+;; I look up a lot of things in Emacs.  Let's bind them all to an easy-to-use
+;; keymap.
+
+;;; Code:
+
+(defvar +lookup-map (let ((map (make-sparse-keymap)))
+                      (define-key map "f" #'find-function)
+                      (define-key map "l" #'find-library)
+                      map)
+  "Keymap for looking up things.")
+
+(provide '+lookup)
+;;; +lookup.el ends here