33 lines
997 B
EmacsLisp
33 lines
997 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)
|
|
|
|
|
|
;; Esta es de cosecha propia a partir de https://github.com/ramnes/move-border
|
|
(defhydra hydra-resize-window ()
|
|
"Cambia el tamaño de las ventanas"
|
|
("<down>" move-border-down "Baja borde")
|
|
("<up>" move-border-up "Sube borde")
|
|
("<left>" move-border-left "Mueve izda.")
|
|
("<right>" move-border-right "Mueve dcha.")
|
|
("q" nil "Salir")
|
|
)
|
|
|
|
(global-set-key (kbd "C-M-m") 'hydra-resize-window/body)
|