32 lines
881 B
EmacsLisp
32 lines
881 B
EmacsLisp
(straight-use-package 'hydra)
|
|
|
|
;; Hydras
|
|
|
|
(defhydra hydra-zoom (global-map "<f2>")
|
|
"zoom"
|
|
("+" text-scale-increase "in")
|
|
("-" text-scale-decrease "out"))
|
|
|
|
;; Esta debería ir en la configuración de org
|
|
(defhydra hydra-org-navegacion ()
|
|
"Navega adelante y atrás entre encabezados"
|
|
("<down>" org-next-visible-heading "Siguiente")
|
|
("<up>" org-previous-visible-heading "Anterior")
|
|
("<next>" org-forward-heading-same-level "Adelante")
|
|
("<prior>" org-backward-heading-same-level "Atrás")
|
|
("q" nil "quit")
|
|
)
|
|
(define-key org-mode-map (kbd "C-c m") 'hydra-org-navegacion/body)
|
|
|
|
|
|
|
|
(defhydra hydra-resize-window (global-map "C-M-m")
|
|
"Cambia el tamaño de las ventanas"
|
|
("<down>" move-border-down "Baja borde")
|
|
("o<up>" move-border-up "Sube borde")
|
|
("<left>" move-border-left "Mueve izda.")
|
|
("<right>" move-border-right "Mueve dcha.")
|
|
("q" nil "Salir")
|
|
)
|
|
|