blob: 755f84ee7ef24eaff32dcb89e4627c6cdbefc814 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
;;; +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:
(require '+key)
(define-minor-mode +lookup-mode
"A mode for easily looking things up."
:lighter " l^"
:keymap (let ((map (make-sparse-keymap)))
(define-key map "f" #'find-function)
(define-key map "l" #'find-library)
(define-key map "v" #'find-variable)
map)
(define-key +key-mode-map (kbd "C-c l") (when +lookup-mode
+lookup-mode-map)))
(defvaralias '+lookup-map '+lookup-mode-map)
(provide '+lookup)
;;; +lookup.el ends here
|
