Add +lookup
This commit is contained in:
parent
710dfe7cd5
commit
a59178fc7b
3
init.el
3
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"))))
|
||||
|
||||
|
|
|
@ -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
|
Loading…
Reference in New Issue