emacs.d: initial config version
- starting init.el just basics (package, use-package, path-handlin) - include my-site-start.el that includes site-start.d directory and imports all *.el files in lexical order - functionality is imported via use-package inside the *.el file (first run: internet connection is needed to MELPA)
This commit is contained in:
29
site-start.d/102-hydra.el
Normal file
29
site-start.d/102-hydra.el
Normal file
@@ -0,0 +1,29 @@
|
||||
;;; 102-hydra.el --- tie related commands into a family of short bindings
|
||||
|
||||
;;; Commentary:
|
||||
;; Hydra enables you to tie related commands into a family of short bindings
|
||||
;; with a common prefix - a Hydra.
|
||||
;; reference: https://github.com/abo-abo/hydra
|
||||
|
||||
;;; Code:
|
||||
(use-package hydra
|
||||
:config
|
||||
(setq hydra-lv nil))
|
||||
|
||||
;; Zooming
|
||||
(defhydra hydra-zoom ()
|
||||
"zoom"
|
||||
("+" text-scale-increase "in")
|
||||
("=" text-scale-increase "in")
|
||||
("-" text-scale-decrease "out")
|
||||
("_" text-scale-decrease "out")
|
||||
("0" (text-scale-adjust 0) "reset")
|
||||
("q" nil "quit" :color blue))
|
||||
|
||||
(bind-keys ("C-x C-0" . hydra-zoom/body)
|
||||
("C-x C-=" . hydra-zoom/body)
|
||||
("C-x C--" . hydra-zoom/body)
|
||||
("C-x C-+" . hydra-zoom/body))
|
||||
|
||||
(provide '102-hydra)
|
||||
;;; 102-hydra.el ends here
|
||||
Reference in New Issue
Block a user