Add +lookup

2 files changed, 20 insertions, 0 deletions

@@ -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"))))
 
@@ -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