blob: f13f5358852b442425e7fbc10e7a2d8839e6b749 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
;;; +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)
map)
(define-key +key-mode-map (kbd "C-c l") (when +lookup-mode
+lookup-mode-map)))
(provide '+lookup)
;;; +lookup.el ends here
|
