87 lines
3.0 KiB
EmacsLisp
87 lines
3.0 KiB
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)
|
|
|
|
;; https://github.com/abo-abo/hydra/wiki/Dired
|
|
(defhydra hydra-dired (:hint nil :color pink)
|
|
"
|
|
_+_ mkdir _v_iew _m_ark _(_ details _i_nsert-subdir wdired
|
|
_C_opy _O_ view other _U_nmark all _)_ omit-mode _$_ hide-subdir C-x C-q : edit
|
|
_D_elete _o_pen other _u_nmark _l_ redisplay _w_ kill-subdir C-c C-c : commit
|
|
_R_ename _M_ chmod _t_oggle _g_ revert buf _e_ ediff C-c ESC : abort
|
|
_Y_ rel symlink _G_ chgrp _E_xtension mark _s_ort _=_ pdiff
|
|
_S_ymlink ^ ^ _F_ind marked _._ toggle hydra \\ flyspell
|
|
_r_sync ^ ^ ^ ^ ^ ^ _?_ summary
|
|
_z_ compress-file _A_ find regexp
|
|
_Z_ compress _Q_ repl regexp
|
|
|
|
T - tag prefix
|
|
"
|
|
("\\" dired-do-ispell)
|
|
("(" dired-hide-details-mode)
|
|
(")" dired-omit-mode)
|
|
("+" dired-create-directory)
|
|
("=" diredp-ediff) ;; smart diff
|
|
("?" dired-summary)
|
|
("$" diredp-hide-subdir-nomove)
|
|
("A" dired-do-find-regexp)
|
|
("C" dired-do-copy) ;; Copy all marked files
|
|
("D" dired-do-delete)
|
|
("E" dired-mark-extension)
|
|
("e" dired-ediff-files)
|
|
("F" dired-do-find-marked-files)
|
|
("G" dired-do-chgrp)
|
|
("g" revert-buffer) ;; read all directories again (refresh)
|
|
("i" dired-maybe-insert-subdir)
|
|
("l" dired-do-redisplay) ;; relist the marked or singel directory
|
|
("M" dired-do-chmod)
|
|
("m" dired-mark)
|
|
("O" dired-display-file)
|
|
("o" dired-find-file-other-window)
|
|
("Q" dired-do-find-regexp-and-replace)
|
|
("R" dired-do-rename)
|
|
("r" dired-do-rsynch)
|
|
("S" dired-do-symlink)
|
|
("s" dired-sort-toggle-or-edit)
|
|
("t" dired-toggle-marks)
|
|
("U" dired-unmark-all-marks)
|
|
("u" dired-unmark)
|
|
("v" dired-view-file) ;; q to exit, s to search, = gets line #
|
|
("w" dired-kill-subdir)
|
|
("Y" dired-do-relsymlink)
|
|
("z" diredp-compress-this-file)
|
|
("Z" dired-do-compress)
|
|
("q" nil)
|
|
("." nil :color blue))
|
|
|
|
(define-key dired-mode-map "." 'hydra-dired/body)
|