From c76475e427c788ae24e12e283cb07607f89c6526 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Fri, 19 Apr 2024 04:39:42 +0530
Subject: (Emacs/*)~cleaning up

---
 Emacs/.config/emacs/app.org    | 30 ++++++++++++------------------
 Emacs/.config/emacs/config.org | 11 +++++++----
 Emacs/.config/emacs/core.org   |  4 ++--
 3 files changed, 21 insertions(+), 24 deletions(-)

(limited to 'Emacs/.config/emacs')

diff --git a/Emacs/.config/emacs/app.org b/Emacs/.config/emacs/app.org
index 4fda55d..4e413f7 100644
--- a/Emacs/.config/emacs/app.org
+++ b/Emacs/.config/emacs/app.org
@@ -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
diff --git a/Emacs/.config/emacs/config.org b/Emacs/.config/emacs/config.org
index 9219e66..8d2c83d 100644
--- a/Emacs/.config/emacs/config.org
+++ b/Emacs/.config/emacs/config.org
@@ -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
diff --git a/Emacs/.config/emacs/core.org b/Emacs/.config/emacs/core.org
index 0f0d9c6..bc3a2cd 100644
--- a/Emacs/.config/emacs/core.org
+++ b/Emacs/.config/emacs/core.org
@@ -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
-- 
cgit v1.2.3-13-gbd6f