24 lines
638 B
EmacsLisp
24 lines
638 B
EmacsLisp
;;; +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
|