Merge branch 'main' of github.com:duckwork/.emacs.d

1 files changed, 92 insertions, 43 deletions

@@ -448,12 +448,10 @@
   (:local-set outline-regexp eshell-prompt-regexp
               page-delimiter eshell-prompt-regexp)
 
-  (:bind "C-d" #'eshell-quit-or-delete-char)
-
   (:hook #'eshell-arg-hist-mode
          (defun eshell-mode@setup ()
-           (unless (bound-and-true-p eshell-customizations-loaded)
-             (load (expand-file-name "eshell" user-emacs-directory))))))
+           (require 'eshellrc (locate-user-emacs-file "eshell") :noerror)
+           (:bind "C-d" #'eshell-quit-or-delete-char))))
 
 (setup eww
   (:also-load acdw-eww)
@@ -682,9 +680,6 @@ specific to most general, they are these:
   ;; <anything> -> mouse-1 /always/ follows link
   (:option mouse-1-click-follows-link t))
 
-(setup mouse-avoidance
-  (mouse-avoidance-mode 'banish))
-
 (setup mu4e
   (:load-from "/usr/share/emacs/site-lisp/mu4e")
   (:option mu4e-change-filenames-when-moving t
@@ -752,16 +747,21 @@ specific to most general, they are these:
            pulse-delay 0.5
            pulse-iterations 1)
 
-  (defun pulse-line (&rest _)
-    "Pulse the current line."
-    (pulse-momentary-highlight-one-line (point)))
+  ;; XXX: this doesn't work yet.  I only want to pulse the line in the active
+  ;; window, so when I have the same buffer viewed in multiple windows I can
+  ;; still see where my cursor is.  To see the issue, C-x 2 then C-x o a few
+  ;; times.
+  (defun pulse-line-current-window (&rest _)
+    "Pulse the current line, but only if this window is active."
+    (pulse-momentary-highlight-one-line (window-point (selected-window))))
   
   (dolist (func '(scroll-up-command
                   scroll-down-command
-                  recenter-top-bottom other-window
+                  recenter-top-bottom
+                  other-window
                   switch-to-buffer
                   redraw-frame))
-    (advice-add func :after #'pulse-line)))
+    (advice-add func :after #'pulse-line-current-window)))
 
 (setup re-builder
   (require 'acdw-re)
@@ -993,6 +993,11 @@ specific to most general, they are these:
                    :repo "willvaughn/emacs-0x0"))
   (:option 0x0-default-server 'ttm))
 
+(setup (:straight (actually-selected-window
+                   :host github
+                   :repo "duckwork/actually-selected-window.el"))
+  (actually-selected-window-mode +1))
+
 (setup (:straight-when affe
          (and (or (executable-find "fd")
                   (executable-find "find"))
@@ -1091,8 +1096,9 @@ specific to most general, they are these:
   (with-eval-after-load 'circe
     (:face circe-nick-highlight-face
            ((t (:inherit (modus-themes-hl-line modus-themes-bold))))
-           circe-my-message-face
-           ((t (:inherit (modus-themes-slant))))))
+           ;; circe-my-message-face
+           ;; ((t (:inherit (modus-themes-slant))))
+           ))
   
   (:bind "C-c C-p" #'circe-command-PART
          "C-l" #'lui-track-jump-to-indicator
@@ -1243,7 +1249,7 @@ specific to most general, they are these:
 
 (setup (:straight crux)
   (:global "C-o" #'crux-smart-open-line
-           "M-o" #'crux-smart-open-line-above
+           "M-o" #'open-paragraph
            "C-M-\\" #'crux-cleanup-buffer-or-region
            "C-x 4 t" #'crux-transpose-windows)
 
@@ -1393,9 +1399,6 @@ specific to most general, they are these:
            (defun elfeed@protocol-update (&rest _)
              (elfeed-search-fetch nil)))
 
-  (:face message-header-subject
-         ((t (:height 1.5))))
-
   (:with-mode elfeed-show-mode
     (:hook #'reading-mode)
 
@@ -1444,11 +1447,11 @@ specific to most general, they are these:
   ;; (t (apply fn url args))))
   )
 
-(setup (:straight-if emacs-everywhere
-                     (and (executable-find "xclip")
-                          (executable-find "xdotool")
-                          (executable-find "xprop")
-                          (executable-find "xwininfo"))))
+(setup (:straight-when emacs-everywhere
+         (and (executable-find "xclip")
+              (executable-find "xdotool")
+              (executable-find "xprop")
+              (executable-find "xwininfo"))))
 
 (setup (:straight (embark               ; gotta git that fresh fresh
                    :host github
@@ -1851,6 +1854,15 @@ browser defined in `browse-url-secondary-browser-function'."
   (:option nov-text-width fill-column)
   (:file-match (rx ".epub" eos)))
 
+(setup (:straight (nyan-mode
+                   :host github :repo "TeMPOraL/nyan-mode"
+                   :fork (:host github :repo "duckwork/nyan-mode")
+                   :files ("nyan-mode.el" "img")))
+  (:option nyan-animate-nyancat nil
+           nyan-bar-length 20
+           nyan-minimum-window-width fill-column)
+  (nyan-mode +1))
+
 ;; (setup (:straight olivetti)
 ;;   (:option olivetti-body-width (+ fill-column 4)
 ;;            olivetti-minimum-body-width fill-column)
@@ -1942,7 +1954,7 @@ browser defined in `browse-url-secondary-browser-function'."
            org-clock-clocked-in-display 'mode-line
            org-clock-frame-title-format (cons '(t org-mode-line-string)
                                               (cons " --- " frame-title-format))
-           ;;org-clock-string-limit 7             ; gives time and not title
+           org-clock-string-limit 25    ; gives enough information
            org-clock-persist t
            org-confirm-babel-evaluate nil
            org-cycle-separator-lines 0
@@ -1989,12 +2001,24 @@ browser defined in `browse-url-secondary-browser-function'."
   (:unbind "C-j"                        ; org-return-and-maybe-indent
            "M-j")
 
-  (:local-set unfill-fill-function #'org-fill-paragraph)
+  (:local-set unfill-fill-function #'org-fill-paragraph
+              wc-count-words-function
+              (lambda (start end) "Count words stupidly with a limit."
+                (acdw-org/count-words-stupidly start
+                                               end
+                                               999)))
   
   (with-eval-after-load 'org-export
     (:option (append org-export-filter-final-output-functions)
              #'org-export-remove-zero-width-spaces))
 
+  (:local-hook before-save-hook
+               (defun org/before-save@fix-blank-lines ()
+                 (acdw-org/fix-blank-lines t))
+               before-save-hook
+               (defun org/before-save@align-tags ()
+                 (org-align-tags :all)))
+  
   (:hook ;; #'variable-pitch-mode
 
    ;; (defun org-mode@before-save@fill-buffer ()
@@ -2006,22 +2030,23 @@ browser defined in `browse-url-secondary-browser-function'."
    ;; This is super ugly because I need to add a function to
    ;; `before-save-hook', but only in org-mode buffers.  So I make a hook
    ;; to make a hook.  I'm sure there's a better way to do this.
-   (defun org-mode@fix-blank-lines-on-save ()
-     (add-hook 'before-save-hook
-               (defun acdw-org/fix-blank-lines-in-buffer ()
-                 (acdw-org/fix-blank-lines t))
-               0 :local))
+   ;; (defun org-mode@fix-blank-lines-on-save ()
+   ;;   (add-hook 'before-save-hook
+   ;;             (defun acdw-org/fix-blank-lines-in-buffer ()
+   ;;               (acdw-org/fix-blank-lines t))
+   ;;             0 :local))
    
-   (defun org-mode@wc-stupid ()
-     (unless (and wc-mode
-                  (> 0 (+ (or wc-orig-words 0)
-                          (or wc-words-delta 0)))))
-     (setq-local
-      wc-count-words-function
-      (lambda (start end) "Count words stupidly with a limit."
-        (acdw-org/count-words-stupidly start
-                                       end
-                                       999)))))
+   ;; (defun org-mode@wc-stupid ()
+   ;;   (unless (and wc-mode
+   ;;                (> 0 (+ (or wc-orig-words 0)
+   ;;                        (or wc-words-delta 0)))))
+   ;;   (setq-local
+   ;;    wc-count-words-function
+   ;;    (lambda (start end) "Count words stupidly with a limit."
+   ;;      (acdw-org/count-words-stupidly start
+   ;;                                     end
+   ;;                                     999))))
+   )
 
   (with-eval-after-load 'org
     (org-clock-persistence-insinuate))
@@ -2197,6 +2222,7 @@ the default is \"/\"."
               acdw-modeline/buffer-name
               acdw-modeline/vc-branch
               acdw-modeline/wc
+              acdw-modeline/nyan-cat
               acdw-modeline/position
               ) (;; right
               acdw-modeline/track
@@ -2324,6 +2350,18 @@ the default is \"/\"."
   (auto-save-visited-mode -1)
   (super-save-mode +1))
 
+(setup (:straight-when system-packages
+         (seq-some #'executable-find
+                   ;; I can't use `system-packages-supported-package-managers'
+                   ;; because, well, the package isn't installed yet.  So
+                   ;; ... update this list if any package managers are added.
+                   '("guix" "nix"
+                     "brew" "macports"
+                     "pacman" "emerge"
+                     "zypper" "dnf"
+                     "apt" "aptitude"
+                     "xbps"))))
+
 (setup (:straight-when systemd
          (executable-find "systemd")))
 
@@ -2337,8 +2375,11 @@ the default is \"/\"."
               (list
                (propertize " "
                            'display
-                           '((space :align-to 
-                                    ,(unless visual-fill-column-mode 0))))
+                           '((space
+                              :align-to 
+                              ,(unless
+                                   (bound-and-true-p visual-fill-column-mode)
+                                 0))))
                (funcall topsy-fn))))))
 
 (setup (:straight trashed)
@@ -2434,7 +2475,15 @@ If used with a numeric prefix argument N, N backticks will be inserted."
                (setq-local indicate-empty-lines nil
                            indicate-buffer-boundaries nil)
              (acdw/setup-fringes))))
-  (:advise text-scale-adjust :after #'visual-fill-column-adjust))
+  (:advise text-scale-adjust :after #'visual-fill-column-adjust)
+  ;; Fix bindings
+  (when (bound-and-true-p mouse-wheel-mode)
+    (with-eval-after-load 'visual-fill-column
+      (dolist (margin '(right-margin left-margin))
+        (dolist (event '(wheel-down wheel-up))
+          (define-key visual-fill-column-mode-map
+            (vector margin event)
+            #'mwheel-scroll))))))
 
 (setup (:straight visual-regexp)
   (:global "M-%" #'vr/query-replace))