provide 'cce/hydra-dipswitch) (
I have a Hydra function called hydra-dipswitch
which exposes some common
important Emacs variables, allowing me to
quickly toggle common systems. I would love to expand this some day to
include system-level things like Wi-Fi, power management, etc…
(defhydra hydra-dipswitch ()"Toggles"
"e" toggle-debug-on-error "Debug on Error")
("q" toggle-debug-on-quit "Debug on Quit")
("r" tasshin/read-write-toggle "Read/Write")
("w" whitespace-mode "Whitespace")
("l" lsp-ui-mode "LSP UI")
("f" focus-mode "Focus")
("t" bh/set-truncate-lines "Truncate")
("n" cce/toggle-theme "Light/Dark")
("d" visible-mode "Visible Mode")
("v" variable-pitch-mode "Variable Pitch"))
(
'evil-leader
(with-eval-after-load "t" 'hydra-dipswitch/body)) (evil-leader/set-key
defun tasshin/read-write-toggle ()
("Toggles read-only in any relevant mode: ag-mode, Dired, or
just any file at all."
(interactive)if (equal major-mode 'ag-mode)
(;; wgrep-ag can support ag-mode
(wgrep-change-to-wgrep-mode);; dired-toggle-read-only has its own conditional:
;; if the mode is Dired, it will make the directory writable
;; if it is not, it will just toggle read only, as desired
(dired-toggle-read-only)))
defun bh/set-truncate-lines ()
("Toggle value of truncate-lines and refresh window display."
(interactive)setq truncate-lines (not truncate-lines))
(;; now refresh window display (an idiom from simple.el):
(save-excursion
(set-window-start (selected-window) (window-start (selected-window)))))