howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Flesh the "toggles" leader menu

Browse source 
Wanted to toggle the whitespace, so I might as well put a few more.
This commit is contained in:
Howard Abrams 2021-11-11 21:02:58 -08:00
parent 0afe98086d
commit ddbdc55eaf
2 changed files with 18 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
ha-config.org
View file

@ -68,8 +68,7 @@ Rewriting my shell scripts in Emacs Lisp uses my [[https://gitlab.com/howardabra
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package piper (use-package piper
:straight nil :straight (:type git :protocol ssh :host gitlab :repo "howardabrams/emacs-piper")
:load-path "~/other/emacs-piper/"
:commands shell-command-to-list ; I use this function quite a bit :commands shell-command-to-list ; I use this function quite a bit
:bind (:map evil-normal-state-map :bind (:map evil-normal-state-map
("|" . piper-user-interface))) ("|" . piper-user-interface)))
@ -468,9 +467,16 @@ The goal here is toggle switches and other miscellaneous settings.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(ha-leader (ha-leader
"t" '(:ignore t :which-key "toggles") "t" '(:ignore t :which-key "toggles")
"t a" '("abbrev" . abbrev-mode)
"t d" '("debug" . toggle-debug-on-error)
"t f" '("auto-fill" . auto-fill-mode)
"t l" '("line numbers" . display-line-numbers-mode) "t l" '("line numbers" . display-line-numbers-mode)
"t r" '("relative lines" . ha-toggle-relative-line-numbers)) "t r" '("relative lines" . ha-toggle-relative-line-numbers)
"t t" '("truncate" . toggle-truncate-lines)
"t v" '("visual" . visual-line-mode)
"t w" '("whitespace" . whitespace-mode))
#+END_SRC #+END_SRC
Really? We can't automatically toggle between relative and absolute line numbers? Really? We can't automatically toggle between relative and absolute line numbers?
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun ha-toggle-relative-line-numbers () (defun ha-toggle-relative-line-numbers ()
@ -629,6 +635,7 @@ Stealing much of this from Spacemacs.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(ha-leader (ha-leader
"x" '(:ignore t :which-key "text") "x" '(:ignore t :which-key "text")
"x a" '("align" . align-regexp)
"x q" '("fill paragraph" . fill-paragraph) "x q" '("fill paragraph" . fill-paragraph)
"x p" '("unfill paragraph" . unfill-paragraph)) "x p" '("unfill paragraph" . unfill-paragraph))
#+END_SRC #+END_SRC

1
ha-org-journaling.org
View file

@ -111,6 +111,7 @@ Capturing a task (that when uncompleted, would then spillover to following days)
(org-narrow-to-subtree) (org-narrow-to-subtree)
(goto-char (point-max))) (goto-char (point-max)))
(defvar org-capture-templates (list))
(add-to-list 'org-capture-templates (add-to-list 'org-capture-templates
'("j" "Journal Task/Entry" plain '("j" "Journal Task/Entry" plain
(function org-journal-find-location) (function org-journal-find-location)