(Emacs/*)~cleaning up

This commit is contained in:
2024-04-19 04:39:42 +05:30
parent 7e77b603ad
commit c76475e427
10 changed files with 86 additions and 594 deletions

View File

@@ -213,8 +213,8 @@ are some corners I'd like to adjust).
"d" #'dired
"D" #'dired-other-frame
"i" #'image-dired
"p" `((proc (interactive)
(dired "~/Text/PDFs/"))
"p" `(,(proc (interactive)
(dired "~/Text/PDFs/"))
:which-key "Open PDFs"))
:config
(defun +dired/insert-all-subdirectories ()
@@ -786,29 +786,23 @@ work for me given the various TeX utilities installed via Arch.
(use-package evil-ledger
:after ledger-mode)
#+end_src
* WAIT Zone
:PROPERTIES:
:header-args:emacs-lisp: :tangle no
:END:
* Zone
Of course Emacs has a cool screensaver software.
#+begin_src emacs-lisp
(use-package zone-matrix
:straight t
:after dashboard
:commands (zone)
:general
(leader
"z" #'zone)
:init
(setq zone-programs
[zone-pgm-jitter
zone-pgm-putz-with-case
zone-pgm-dissolve
zone-pgm-whack-chars
zone-pgm-drip
zone-pgm-rat-race
zone-pgm-random-life
zone-matrix
])
:config
(zone-when-idle 15))
[zone-pgm-drip
zone-pgm-drip-fretfully
zone-pgm-martini-swan-dive
zone-pgm-stress
zone-pgm-random-life]))
#+end_src
* (Wo)man
Man pages are the user manuals for most software on Linux. Really

View File

@@ -560,10 +560,10 @@ need to use it.
:after evil
:general
(nmmap
:keymaps 'override
"C-s" #'avy-goto-char-timer
"M-s" #'isearch-forward)
(search-leader
"l" #'avy-goto-line))
"M-s" #'isearch-forward
"gl" #'avy-goto-line))
#+end_src
** Ace window
Though evil provides a great many features in terms of window
@@ -608,7 +608,10 @@ possible options for the next key.
:config
(which-key-mode))
#+end_src
** Keychord
** WAIT Keychord
:PROPERTIES:
:header-args:emacs-lisp: :tangle no
:END:
Keychord is only really here for this one chord I wish to define: "jk"
for exiting insert state.
#+begin_src emacs-lisp

View File

@@ -125,7 +125,7 @@ Some bindings that I couldn't fit elsewhere easily.
(leader
"SPC" '(execute-extended-command :which-key "M-x")
"'" '(browse-url-emacs :which-key "Open url in Emacs")
"'" '(browse-url-emacs :which-key "Download URL to Emacs")
";" 'eval-expression
":" `(,(proc (interactive) (switch-to-buffer "*scratch*"))
:which-key "Switch to *scratch*")
@@ -185,7 +185,7 @@ Setup the evil package, with some opinionated keybindings:
"TAB" #'evil-jump-item
"r" #'evil-replace-state
"zC" #'hs-hide-level
"zO" #'hs-show-all
"zO" #'hs-show-all
"'" #'evil-goto-mark
"`" #'evil-goto-mark-line
"C-w" #'evil-window-map