Merge branch 'main' of tildegit.org:acdw/emacs

1 files changed, 82 insertions, 75 deletions

@@ -19,7 +19,7 @@
 ;;; Setup
 
 ;;;; `setup'
-(straight-use-package '(setup :host nil :repo "https://git.sr.ht/~zge/setup"))
+(straight-use-package '(setup :host nil :repo "https://git.sr.ht/~pkal/setup"))
 (require 'setup)
 
 (setup setup
@@ -174,25 +174,31 @@
            custom-unlispify-tag-names nil
            custom-variable-default-form 'lisp)
 
-  (defun unpackaged/custom-toggle-all-more-hide (&rest _)
-    "Toggle all \"More/Hide\" widgets in current buffer."
-    (interactive)
-    (widget-map-buttons (lambda (widget _)
-                          (pcase (widget-get widget :off)
-                            ("More" (widget-apply-action widget)))
-                          nil)))
-  (advice-add 'custom-buffer-create
-              :after #'unpackaged/custom-toggle-all-more-hide)
-
-  (defun acdw/custom-toggle-showing-all-values (&rest _)
-    "Toggle all \"Show Value\" widgets in current buffer."
-    (interactive)
-    (widget-map-buttons (lambda (widget _)
-                          (pcase (widget-get widget :off)
-                            ("Show Value" (widget-apply-action widget)))
-                          nil)))
-  (advice-add 'custom-buffer-create
-              :after #'acdw/custom-toggle-showing-all-values))
+  ;; `Custom-mode-hook' fires /before/ the widgets are built, so I have to
+  ;; install advice after the widgets are made.
+  (advice-add
+   'custom-buffer-create :after
+   (defun custom-buffer@expand-widgets (&rest _)
+     "Expand descriptions and values of variables in `Custom-mode' buffers."
+     (interactive)
+     ;; "More/Hide" widgets (thanks alphapapa!)
+     (widget-map-buttons (lambda (widget _)
+                           (pcase (widget-get widget :off)
+                             ("More" (widget-apply-action widget)))
+                           nil))
+     ;; "Show Value" widgets (the little triangles)
+     (widget-map-buttons (lambda (widget _)
+                           (pcase (widget-get widget :off)
+                             ("Show Value" (widget-apply-action widget)))
+                           nil))))
+
+  (add-hook                            ; thanks u/oantolin!
+   'Custom-mode-hook
+   (defun custom-mode@imenu ()
+     "Build `imenu' for `Custom-mode'."
+     (setq imenu-generic-expression
+           '(("Faces" "^\\(?:Show\\|Hide\\) \\(.*\\) face: \\[sample\\]" 1)
+             ("Variables" "^\\(?:Show Value\\|Hide\\) \\([^:\n]*\\)" 1))))))
 
 (setup debugger
   (:hook visual-line-mode)
@@ -337,8 +343,7 @@
    erc-fill-static-center 14
    erc-format-nick-function #'erc-format-truncate-@nick
    erc-header-line-face-method #'erc/update-header-line-show-disconnected
-   erc-hide-list '("NICK" "MODE" "JOIN" "NICK" "PART" "QUIT"
-                   "324" "329" "332" "333" "353" "477")
+   erc-hide-list '("NICK" "MODE" "JOIN" "PART" "QUIT")
    erc-interpret-controls-p t
    erc-interpret-mirc-color t
    erc-join-buffer 'bury
@@ -347,7 +352,7 @@
    erc-kill-server-buffer-on-quit t
    erc-nick "acdw"
    erc-nick-truncate (- erc-fill-static-center 1)
-   erc-prompt (lambda () (acdw-erc/prompt))
+   erc-prompt #'acdw-erc/prompt
    erc-prompt-for-password nil          ; use ~/.authinfo
    erc-rename-buffers t
    erc-server erc-default-server
@@ -356,7 +361,8 @@
      (mapcar #'car erc-autojoin-channels-alist))
    erc-server-coding-system '(utf-8 . utf-8)
    erc-track-exclude-types (append erc-hide-list
-                                   '("AWAY"))
+                                   '("AWAY"
+                                     "353" "324" "329" "332" "333" "477"))
    erc-track-exclude-server-buffer t
    erc-track-position-in-mode-line 'before-modes
    erc-track-visibility nil             ; only the selected frame
@@ -845,12 +851,6 @@ like a dumbass."
            "M-u" upcase-dwim
            "M-l" downcase-dwim)
 
-  ;; (when (display-graphic-p)
-  ;;   (:global "<escape>" keyboard-escape-quit))
-
-  ;; Remap C-h to DEL -- <f1> can be the "help" key
-  ;; (define-key key-translation-map [?\C-h] [?\C-?])
-
   (:global "C-c t" acdw/insert-iso-date
            "C-z" nil))
 
@@ -939,7 +939,6 @@ if ripgrep is installed, otherwise `consult-grep'."
    ;; C-x bindings (`ctl-x-map')
    "C-x M-:" consult-complex-command
    "C-x b" consult-buffer
-   "<f1>" consult-buffer                ; trying this out ...
    "C-x 4 b" consult-buffer-other-window
    "C-x 5 b" consult-buffer-other-frame
    ;; Custom M-# bindings for fast register access
@@ -1006,15 +1005,14 @@ if ripgrep is installed, otherwise `consult-grep'."
     (:advise completing-read-multiple
              :filter-args #'crm-indicator))
 
-  (with-eval-after-load 'vertico
-    (with-eval-after-load 'consult
-      (when (boundp 'consult-crm-map)
-        (define-key consult-crm-map "\r" #'+vertico-crm-exit)
-        (define-key consult-crm-map "\t" #'vertico-exit)
-        (defun +vertico-crm-exit ()
-          (interactive)
-          (run-at-time 0 nil #'vertico-exit)
-          (funcall #'vertico-exit))))))
+  (with-eval-after-loads (vertico consult)
+    (when (boundp 'consult-crm-map)
+      (define-key consult-crm-map "\r" #'+vertico-crm-exit)
+      (define-key consult-crm-map "\t" #'vertico-exit)
+      (defun +vertico-crm-exit ()
+        (interactive)
+        (run-at-time 0 nil #'vertico-exit)
+        (funcall #'vertico-exit)))))
 
 (setup (:straight crux)
   
@@ -1086,11 +1084,10 @@ if ripgrep is installed, otherwise `consult-grep'."
           #'which-key--hide-popup-ignore-command)
         embark-become-indicator embark-action-indicator)
   
-  (with-eval-after-load 'embark
-    (with-eval-after-load 'consult
-      (setup (:straight embark-consult)
-        (add-hook 'embark-collect-mode-hook
-                  #'consult-preview-at-point-mode)))))
+  (with-eval-after-loads (embark consult)
+    (setup (:straight embark-consult)
+      (add-hook 'embark-collect-mode-hook
+                #'consult-preview-at-point-mode))))
 
 (setup (:straight epithet)
   (add-hook 'Info-selection-hook #'epithet-rename-buffer)
@@ -1201,6 +1198,7 @@ if ripgrep is installed, otherwise `consult-grep'."
 (setup (:straight (mastodon
                    :host github
                    :repo "mooseyboots/mastodon.el"))
+  (:straight request)
   (:option mastodon-instance-url "https://writing.exchange"
            mastodon-auth-source-file (car auth-sources)
            mastodon-client--token-file (acdw/dir "mastodon.plstore")))
@@ -1301,35 +1299,39 @@ if ripgrep is installed, otherwise `consult-grep'."
 (setup (:straight org)
   (:straight org-contrib)
   (require 'acdw-org)                   ; so I don't clutter up init.el
-  (:option org-adapt-indentation nil
-           org-catch-invisible-edits 'smart
-           org-clock-clocked-in-display 'mode-line
-           org-clock-string-limit 7     ; gives time and not title
-           org-confirm-babel-evaluate nil
-           org-ellipsis " …"
-           org-export-coding-system 'utf-8-unix
-           org-export-headline-levels 8
-           org-export-with-section-numbers nil
-           org-export-with-smart-quotes t
-           org-export-with-sub-superscripts t
-           org-export-with-toc nil
-           org-fontify-done-headline t
-           org-fontify-quote-and-verse-blocks t
-           org-fontify-whole-heading-line t
-           org-hide-emphasis-markers t
-           org-html-coding-system  'utf-8-unix
-           org-imenu-depth 3
-           org-outline-path-complete-in-steps nil
-           org-pretty-entities t
-           org-refile-use-outline-path 'file
-           org-special-ctrl-a/e t
-           org-special-ctrl-k t
-           org-src-fontify-natively t
-           org-src-tab-acts-natively t
-           org-src-window-setup 'current-window
-           org-startup-truncated nil
-           org-tags-column 0 ; (- 0 fill-column -3)
-           org-directory "~/org")
+  (:option
+   org-adapt-indentation nil
+   org-catch-invisible-edits 'smart
+   org-clock-clocked-in-display 'mode-line
+   org-clock-string-limit 7     ; gives time and not title
+   org-confirm-babel-evaluate nil
+   org-directory "~/org"
+   org-ellipsis " …"
+   org-export-coding-system 'utf-8-unix
+   org-export-headline-levels 8
+   org-export-with-section-numbers nil
+   org-export-with-smart-quotes t
+   org-export-with-sub-superscripts t
+   org-export-with-toc nil
+   org-fontify-done-headline t
+   org-fontify-quote-and-verse-blocks t
+   org-fontify-whole-heading-line t
+   org-hide-emphasis-markers t
+   org-html-coding-system  'utf-8-unix
+   org-image-actual-width '(300)
+   org-imenu-depth 3
+   org-outline-path-complete-in-steps nil
+   org-pretty-entities t
+   org-refile-use-outline-path 'file
+   org-special-ctrl-a/e t
+   org-special-ctrl-k t
+   org-src-fontify-natively t
+   org-src-tab-acts-natively t
+   org-src-window-setup 'current-window
+   org-startup-truncated nil
+   org-startup-with-inline-images t
+   org-tags-column 0 ; (- 0 fill-column -3)
+   )
 
   (:bind "RET" acdw-org/return-dwim
          "<S-return>" acdw-org/org-table-copy-down
@@ -1348,7 +1350,10 @@ if ripgrep is installed, otherwise `consult-grep'."
          acdw/org-fix-lines-before-save)
   
   (advice-add 'org-delete-backward-char
-              :override #'acdw-org/delete-backward-char))
+              :override #'acdw-org/delete-backward-char)
+
+  (setup (:straight org-appear)
+    (:hook-into org-mode)))
 
 (setup (:straight paredit)
 
@@ -1463,6 +1468,8 @@ if ripgrep is installed, otherwise `consult-grep'."
   
   (global-undo-fu-session-mode +1))
 
+(setup (:straight unfill))
+
 (setup (:straight (unfocused
                    :host github
                    :repo "duckwork/unfocused"))