Readd hydra for shortcuts
Turns out I am using those shortcuts indeed, but forget about it ;)
This commit is contained in:
parent
d1c4ad5b5d
commit
edf9afa68f
8
init.el
8
init.el
|
@ -162,6 +162,7 @@
|
||||||
(bind-key "<XF86Back>" #'winner-undo)
|
(bind-key "<XF86Back>" #'winner-undo)
|
||||||
(bind-key "<XF86Forward>" #'winner-redo)
|
(bind-key "<XF86Forward>" #'winner-redo)
|
||||||
(bind-key "<f1>" #'db/run-or-hide-eshell)
|
(bind-key "<f1>" #'db/run-or-hide-eshell)
|
||||||
|
(bind-key "<f2>" #'hydra-feature-shortcuts/body)
|
||||||
(bind-key "<f5>" #'rgrep)
|
(bind-key "<f5>" #'rgrep)
|
||||||
(bind-key "<f6>" #'hydra-zoom/body)
|
(bind-key "<f6>" #'hydra-zoom/body)
|
||||||
(bind-key "<f7>" #'dictcc)
|
(bind-key "<f7>" #'dictcc)
|
||||||
|
@ -554,6 +555,10 @@
|
||||||
:commands (endless/fill-or-unfill
|
:commands (endless/fill-or-unfill
|
||||||
db/delete-trailing-whitespace-maybe
|
db/delete-trailing-whitespace-maybe
|
||||||
db/run-or-hide-shell
|
db/run-or-hide-shell
|
||||||
|
db/gnus
|
||||||
|
db/org-agenda
|
||||||
|
db/scratch
|
||||||
|
db/find-user-init-file
|
||||||
db/run-or-hide-ansi-term
|
db/run-or-hide-ansi-term
|
||||||
db/hex-to-ascii
|
db/hex-to-ascii
|
||||||
db/text-to-hex
|
db/text-to-hex
|
||||||
|
@ -578,7 +583,8 @@
|
||||||
(use-package db-hydras
|
(use-package db-hydras
|
||||||
:commands (hydra-toggle/body
|
:commands (hydra-toggle/body
|
||||||
hydra-zoom/body
|
hydra-zoom/body
|
||||||
hydra-rectangle/body))
|
hydra-rectangle/body
|
||||||
|
hydra-feature-shortcuts/body))
|
||||||
|
|
||||||
(use-package git-commit
|
(use-package git-commit
|
||||||
:commands (global-git-commit-mode))
|
:commands (global-git-commit-mode))
|
||||||
|
|
|
@ -7,6 +7,7 @@
|
||||||
(autoload 'rectangle-exchange-point-and-mark "rect")
|
(autoload 'rectangle-exchange-point-and-mark "rect")
|
||||||
|
|
||||||
(require 'hydra)
|
(require 'hydra)
|
||||||
|
(require 'db-customize)
|
||||||
|
|
||||||
(defhydra hydra-toggle (:color blue)
|
(defhydra hydra-toggle (:color blue)
|
||||||
"toggle"
|
"toggle"
|
||||||
|
@ -52,5 +53,13 @@ _h_ _l_ _o_k _y_ank
|
||||||
("e" rectangle-exchange-point-and-mark nil)
|
("e" rectangle-exchange-point-and-mark nil)
|
||||||
("o" nil nil))
|
("o" nil nil))
|
||||||
|
|
||||||
|
(eval
|
||||||
|
`(defhydra hydra-feature-shortcuts (:color blue)
|
||||||
|
""
|
||||||
|
,@(mapcar (lambda (entry)
|
||||||
|
(pcase-let ((`(,description ,shortcut ,function) entry))
|
||||||
|
(list (string shortcut) function description)))
|
||||||
|
db/frequently-used-features)))
|
||||||
|
|
||||||
(provide 'db-hydras)
|
(provide 'db-hydras)
|
||||||
;; db-hydras.el ends here
|
;; db-hydras.el ends here
|
||||||
|
|
Loading…
Reference in New Issue