blob: 97bd426300a7fba31fa748579130a4b5004d0031 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
# -*- mode: snippet -*-
# name: hydra
# key: <hydra
# --
(with-eval-after-load '$1
(defhydra hydra-$2 (:color teal :timeout 10 :hint nil)
"$2 common commands menu"
("q" quit-window "quit" :column "")
)
(defun $1-hook-hydra-setup ()
"Create $2 hydra/menu keybinding when entering ledger mode."
(local-set-key (kbd "C-c ?") 'hydra-$2/body))
(add-hook '$1-hook '$1-hook-hydra-setup))
|
