mirror of
http://github.com/JaeUs3792/dotfiles
synced 2025-12-13 23:51:34 +09:00
85 lines
3.7 KiB
EmacsLisp
85 lines
3.7 KiB
EmacsLisp
;; init-hydra.el -*- lexical-binding: t -*-
|
|
(require 'init-const)
|
|
(require 'init-funcs)
|
|
(use-package hydra
|
|
:straight t
|
|
:ensure t
|
|
:defer t
|
|
:hook (emacs-lisp-mode . hydra-add-imenu))
|
|
|
|
(use-package pretty-hydra
|
|
:straight t
|
|
:ensure t
|
|
:defer t
|
|
:bind ("<f6>" . toggles-hydra/body)
|
|
:hook (emacs-lisp-mode . (lambda ()
|
|
(add-to-list
|
|
'imenu-generic-expression
|
|
'("Hydras"
|
|
"^.*(\\(pretty-hydra-define\\) \\([a-zA-Z-]+\\)"
|
|
2))))
|
|
:init
|
|
(cl-defun pretty-hydra-title (title &optional icon-type icon-name
|
|
&key face height v-adjust)
|
|
"Add an icon in the hydra title."
|
|
(let ((face (or face `(:foreground ,(face-background 'highlight))))
|
|
(height (or height 1.2))
|
|
(v-adjust (or v-adjust 0.0)))
|
|
(concat
|
|
(when (and (icons-displayable-p) icon-type icon-name)
|
|
(let ((f (intern (format "nerd-icons-%s" icon-type))))
|
|
;;(let ((f (intern (format "all-the-icons-%s" icon-type))))
|
|
(when (fboundp f)
|
|
(concat
|
|
(apply f (list icon-name :face face :height height :v-adjust v-adjust))
|
|
" "))))
|
|
(propertize title 'face face))))
|
|
|
|
;; Global toggles
|
|
(with-no-warnings
|
|
(pretty-hydra-define toggles-hydra (:title (pretty-hydra-title "Toggles" 'faicon "nf-fa-toggle_on")
|
|
:color amaranth :quit-key ("q" "C-g"))
|
|
("Basic"
|
|
(("n" (cond ((fboundp 'display-line-numbers-mode)
|
|
(display-line-numbers-mode (if display-line-numbers-mode -1 1)))
|
|
((fboundp 'gblobal-linum-mode)
|
|
(global-linum-mode (if global-linum-mode -1 1))))
|
|
"line number"
|
|
:toggle (or (bound-and-true-p display-line-numbers-mode)
|
|
(bound-and-true-p global-linum-mode)))
|
|
("a" global-aggressive-indent-mode "aggressive indent" :toggle t)
|
|
("d" global-hungry-delete-mode "hungry delete" :toggle t)
|
|
("e" electric-pair-mode "electric pair" :toggle t)
|
|
("c" flyspell-mode "spell check" :toggle t)
|
|
("s" prettify-symbols-mode "pretty symbol" :toggle t)
|
|
("l" global-page-break-lines-mode "page break lines" :toggle t)
|
|
("b" display-battery-mode "battery" :toggle t)
|
|
("i" display-time-mode "time" :toggle t)
|
|
("m" doom-modeline-mode "modern mode-line" :toggle t))
|
|
"Highlight"
|
|
(("h l" global-hl-line-mode "line" :toggle t)
|
|
("h p" show-paren-mode "paren" :toggle t)
|
|
("h s" symbol-overlay-mode "symbol" :toggle t)
|
|
("h r" rainbow-mode "rainbow" :toggle t)
|
|
("h w" (setq-default show-trailing-whitespace (not show-trailing-whitespace))
|
|
"whitespace" :toggle show-trailing-whitespace)
|
|
("h d" rainbow-delimiters-mode "delimiter" :toggle t)
|
|
("h i" highlight-indent-guides-mode "indent" :toggle t)
|
|
("h t" global-hl-todo-mode "todo" :toggle t))
|
|
"Program"
|
|
(("f" flycheck-mode "flycheck" :toggle t)
|
|
("F" flymake-mode "flymake" :toggle t)
|
|
("O" hs-minor-mode "hideshow" :toggle t)
|
|
("u" subword-mode "subword" :toggle t)
|
|
("W" which-function-mode "which function" :toggle t)
|
|
("E" toggle-debug-on-error "debug on error" :toggle (default-value 'debug-on-error))
|
|
("Q" toggle-debug-on-quit "debug on quit" :toggle (default-value 'debug-on-quit))
|
|
("v" global-diff-hl-mode "gutter" :toggle t)
|
|
("V" diff-hl-flydiff-mode "live gutter" :toggle t)
|
|
("M" diff-hl-margin-mode "margin gutter" :toggle t)
|
|
("D" diff-hl-dired-mode "dired gutter" :toggle t))))))
|
|
|
|
|
|
(provide 'init-hydra)
|
|
;;; init-hydra.el ends here
|