8 files changed, 148 insertions, 94 deletions

@@ -60,49 +60,51 @@
       (make-directory (file-name-directory script) :parents)
       (with-temp-buffer
         (insert
-         (prin1-to-string ;; Print the following s-expression to a string
-          `(progn
-             ;; Set up the environment
-             (setq lexical-binding t)
-             (load (locate-user-emacs-file "early-init"))
-             (dolist (pkg '(elfeed elfeed-org))
-               (straight-use-package pkg)
-               (require pkg))
-             ;; Copy variables from current environment
-             (progn
-               ,@(cl-loop for copy-var in '(rmh-elfeed-org-files
-                                            elfeed-db-directory
-                                            elfeed-curl-program-name
-                                            elfeed-use-curl
-                                            elfeed-curl-extra-arguments
-                                            elfeed-enclosure-default-dir)
-                          collect `(progn (message "%S = %S" ',copy-var ',(symbol-value copy-var))
-                                          (setq ,copy-var ',(symbol-value copy-var)))))
-             ;; Define new variables for this environment
-             (progn
-               ,@(cl-loop for (new-var . new-val) in '((elfeed-curl-max-connections . 4))
-                          collect `(progn (message "%S = %S" ',new-var ',new-val)
-                                          (setq ,new-var ',new-val))))
-             ;; Redefine `elfeed-log' to log everything
-             (defun elfeed-log (level fmt &rest objects)
-               (princ (format "[%s] [%s]: %s\n"
-                              (format-time-string "%F %T")
-                              level
-                              (apply #'format fmt objects))))
-             ;; Run elfeed
-             (elfeed-org)
-             (elfeed)
-             (elfeed-db-load)
-             (elfeed-update)
-             ;; Wait for `elfeed-update' to finish
-             (while (> (elfeed-queue-count-total) 0)
-               (sleep-for 5)
-               (message "%s" (elfeed-queue-count-total))
-               (accept-process-output))
-             ;; Garbage collect and save the database
-             (elfeed-db-gc)
-             (elfeed-db-save)
-             (princ (format ,update-message-format "done.")))))
+         (let ((print-level nil)
+               (print-length nil))
+           (prin1-to-string ;; Print the following s-expression to a string
+            `(progn
+               ;; Set up the environment
+               (setq lexical-binding t)
+               (load (locate-user-emacs-file "early-init"))
+               (dolist (pkg '(elfeed elfeed-org))
+                 (straight-use-package pkg)
+                 (require pkg))
+               ;; Copy variables from current environment
+               (progn
+                 ,@(cl-loop for copy-var in '(rmh-elfeed-org-files
+                                              elfeed-db-directory
+                                              elfeed-curl-program-name
+                                              elfeed-use-curl
+                                              elfeed-curl-extra-arguments
+                                              elfeed-enclosure-default-dir)
+                            collect `(progn (message "%S = %S" ',copy-var ',(symbol-value copy-var))
+                                            (setq ,copy-var ',(symbol-value copy-var)))))
+               ;; Define new variables for this environment
+               (progn
+                 ,@(cl-loop for (new-var . new-val) in '((elfeed-curl-max-connections . 4))
+                            collect `(progn (message "%S = %S" ',new-var ',new-val)
+                                            (setq ,new-var ',new-val))))
+               ;; Redefine `elfeed-log' to log everything
+               (defun elfeed-log (level fmt &rest objects)
+                 (princ (format "[%s] [%s]: %s\n"
+                                (format-time-string "%F %T")
+                                level
+                                (apply #'format fmt objects))))
+               ;; Run elfeed
+               (elfeed-org)
+               (elfeed)
+               (elfeed-db-load)
+               (elfeed-update)
+               ;; Wait for `elfeed-update' to finish
+               (while (> (elfeed-queue-count-total) 0)
+                 (sleep-for 5)
+                 (message "%s" (elfeed-queue-count-total))
+                 (accept-process-output))
+               ;; Garbage collect and save the database
+               (elfeed-db-gc)
+               (elfeed-db-save)
+               (princ (format ,update-message-format "done."))))))
         (write-file script))
       (chmod script #o777)
       (message update-message-format "start")
@@ -60,15 +60,18 @@ Do this only if the buffer is not visiting a file."
  enable-recursive-minibuffers t
  executable-prefix-env t
  fast-but-imprecise-scrolling t
- find-file-visit-truename t
  file-name-shadow-properties '(invisible t intangible t)
  fill-column 80
+ find-file-visit-truename t
  frame-resize-pixelwise t
  global-auto-revert-non-file-buffers t
  global-mark-ring-max 100
  hscroll-margin 1
  hscroll-step 1
  imenu-auto-rescan t
+ image-use-external-converter (or (executable-find "convert")
+                                  (executable-find "gm")
+                                  (executable-find "ffmpeg"))
  indent-tabs-mode nil
  indicate-buffer-boundaries 'left
  indicate-empty-lines nil
@@ -104,7 +107,7 @@ Do this only if the buffer is not visiting a file."
  save-interprogram-paste-before-kill t
  scroll-conservatively 101
  scroll-down-aggressively 0.01
- scroll-margin 1
+ scroll-margin 2
  scroll-preserve-screen-position 1
  scroll-step 1
  scroll-up-aggressively 0.01
@@ -148,6 +151,9 @@ Do this only if the buffer is not visiting a file."
 
 ;;; Encodings
 
+;; Allegedly, this is the only one you need...
+(set-language-environment "UTF-8")
+;; But I still set all of these, for fun.
 (setq-default locale-coding-system 'utf-8-unix
               coding-system-for-read 'utf-8-unix
               coding-system-for-write 'utf-8-unix
@@ -159,7 +165,6 @@ Do this only if the buffer is not visiting a file."
                                       STRING))
 
 (set-charset-priority 'unicode)
-(set-language-environment "UTF-8")
 (prefer-coding-system 'utf-8-unix)
 (set-default-coding-systems 'utf-8-unix)
 (set-terminal-coding-system 'utf-8-unix)
@@ -58,30 +58,34 @@ prefix ARG is non-nil; then it just saves them."
   (unless (buffer-file-name)
     (user-error "Buffer not attached to file"))
   (hack-dir-local-variables)
-  (when-let ((new-words (+ispell-append-removing-duplicates
-                              :test #'string=
-                              ispell-buffer-session-localwords
-                              (alist-get 'ispell-buffer-session-localwords
-                                         dir-local-variables-alist)
-                              (alist-get 'ispell-buffer-session-localwords
-                                         file-local-variables-alist)
-                              (+ispell-buffer-local-words-list))))
-    (save-excursion
-      (add-dir-local-variable
-       major-mode
-       'ispell-buffer-session-localwords
-       (setq ispell-buffer-session-localwords
-             new-words))
-      (when (or arg
-                (y-or-n-p "Save .dir-locals.el?"))
-        (save-buffer))
-      (bury-buffer))
-    (or ispell-buffer-local-name
-        (setq ispell-buffer-local-name (buffer-name)))
-    (save-excursion
-      (goto-char (point-min))
-      (while (search-forward ispell-words-keyword nil t)
-        (delete-region (point-at-bol) (1+ (point-at-eol)))))))
+  (let ((print-level nil)
+        (print-length nil))
+    (when-let ((new-words (cl-remove-if (lambda (el) (eq el '\.\.\.)) ; XXX: NO IDEA
+                                        ; where this came from
+                                        (+ispell-append-removing-duplicates
+                                         :test #'string=
+                                         ispell-buffer-session-localwords
+                                         (alist-get 'ispell-buffer-session-localwords
+                                                    dir-local-variables-alist)
+                                         (alist-get 'ispell-buffer-session-localwords
+                                                    file-local-variables-alist)
+                                         (+ispell-buffer-local-words-list)))))
+      (save-excursion
+        (add-dir-local-variable
+         major-mode
+         'ispell-buffer-session-localwords
+         (setq ispell-buffer-session-localwords
+               new-words))
+        (when (or arg
+                  (y-or-n-p "Save .dir-locals.el?"))
+          (save-buffer))
+        (bury-buffer))
+      (or ispell-buffer-local-name
+          (setq ispell-buffer-local-name (buffer-name)))
+      (save-excursion
+        (goto-char (point-min))
+        (while (search-forward ispell-words-keyword nil t)
+          (delete-region (point-at-bol) (1+ (point-at-eol))))))))
 
 ;;;###autoload
 (defun +ispell-move-buffer-words-to-dir-locals-hook ()
@@ -21,6 +21,7 @@
 
 (defun +kmacro-change-mode-line (&rest _)
   "Remap the mode-line face when recording a kmacro."
+
   (add-to-list 'face-remapping-alist '(mode-line . +kmacro-modeline)))
 
 (defun +kmacro-restore-mode-line (&rest _)
@@ -296,7 +296,7 @@ See `line-number-mode', `column-number-mode', `file-percentage-mode'"
                                                 (interactive "e")
                                                 (with-selected-window
                                                     (posn-window
-                                                     (event-start ev))
+                                                     (event-start e))
                                                   (god-local-mode -1)
                                                   (force-mode-line-update)))))
                         'mouse-face 'mode-line-highlight))))
@@ -326,5 +326,26 @@ See `line-number-mode', `column-number-mode', `file-percentage-mode'"
                                       map))
                         'mouse-face 'mode-line-highlight))))
 
+(defface +modeline-kmacro-indicator '((t :foreground "Firebrick"))
+  "Face for the kmacro indicator in the modeline.")
+
+(defun +modeline-kmacro-indicator (&optional spacer)
+  "Display an indicator when recording a kmacro."
+  (when defining-kbd-macro
+    (concat (or spacer +modeline-default-spacer)
+            (propertize "●"
+                        'face '+modeline-kmacro-indicator
+                        'help-echo (format (concat "Defining a macro\n"
+                                                   "Current step: %d\n"
+                                                   "mouse-1: Stop recording")
+                                           kmacro-counter)
+                        'local-map (purecopy (simple-modeline-make-mouse-map
+                                              'mouse-1 (lambda (e)
+                                                         (interactive "e")
+                                                         (with-selected-window
+                                                             (posn-window (event-start e))
+                                                           (kmacro-end-macro nil)))))
+                        'mouse-face 'mode-line-highlight))))
+
 (provide '+modeline)
 ;;; +modeline.el ends here
@@ -550,6 +550,7 @@ language name.")
   "Export region to HTML, and copy it to the clipboard.
 Arguments ASYNC, SUBTREEP, VISIBLE-ONLY, BODY-ONLY, EXT-PLIST,
 and POST-PROCESS are passed to `org-export-to-file'."
+  (interactive) ; XXX: hould this be interactive?
   (message "Exporting Org to HTML...")
   (let ((org-tmp-file "/tmp/org.html"))
     (org-export-to-file 'html org-tmp-file
@@ -567,8 +568,5 @@ and POST-PROCESS are passed to `org-export-to-file'."
   (interactive)
   (+org-export-clip-to-html nil :subtree))
 
-;;; Taskwise functions
-;; TODO: break out into another library
-
 (provide '+org)
 ;;; +org.el ends here
@@ -27,7 +27,8 @@
   "Display `tracking-mode-line-buffers' in the tab-bar."
   ;; TODO: write something to convert a mode-line construct to a tab-bar
   ;; construct.
-  (when tracking-mode
+  (when (and tracking-mode
+             (not (bound-and-true-p org-clock-current-task)))
     (cons (when (> (length tracking-mode-line-buffers) 0)
             '(track-mode-line-separator menu-item " " ignore))
           (cl-loop for i from 0 below (length tracking-mode-line-buffers)
@@ -63,7 +64,8 @@
 
 (defun +tab-bar-org-clock ()
   "Display `org-mode-line-string' in the tab-bar."
-  (when (org-clocking-p)
+  (when (and (fboundp 'org-clocking-p)
+             (org-clocking-p))
     ;; org-mode-line-string
     `((org-clocking menu-item
                     ,org-mode-line-string
@@ -281,24 +281,30 @@ always nil; this function is mostly intended for use in init."
 (defun chat-disconnect ()
   "Disconnect from all chats."
   (interactive)
-  (ignore-errors
-    (circe-command-GQUIT "☮ 🫀 🍞"))
-  (ignore-errors
-    (jabber-disconnect))
-  (dolist (team +slack-teams)
+  (+with-progress "Quitting circe..."
     (ignore-errors
-      (slack-team-disconnect team)))
-  (ignore-errors (slack-ws-close))
-  (+mapc-some-buffers (lambda () "Remove the buffer from tracking and kill it unconditionally."
-                        (let ((kill-buffer-query-functions nil))
-                          (tracking-remove-buffer (current-buffer))
-                          (kill-buffer)))
-                      (lambda () "Return t if derived from the following modes."
-                        (derived-mode-p 'lui-mode
-                                        'jabber-chat-mode
-                                        'jabber-roster-mode
-                                        'jabber-browse-mode
-                                        'slack-mode))))
+      (circe-command-GQUIT "☮ 🫀 🍞")
+      (cancel-timer (irc-connection-get conn :flood-timer))))
+  (+with-progress "Quitting jabber..."
+    (ignore-errors
+      (jabber-disconnect)))
+  (+with-progress "Quitting-slack..."
+      (dolist (team +slack-teams)
+        (ignore-errors
+          (slack-team-disconnect team)))
+      (ignore-errors (slack-ws-close)))
+  (+with-progress "Killing buffers..."
+    (ignore-errors
+     (+mapc-some-buffers (lambda () "Remove the buffer from tracking and kill it unconditionally."
+                           (let ((kill-buffer-query-functions nil))
+                             (tracking-remove-buffer (current-buffer))
+                             (kill-buffer)))
+                         (lambda () "Return t if derived from the following modes."
+                           (derived-mode-p 'lui-mode
+                                           'jabber-chat-mode
+                                           'jabber-roster-mode
+                                           'jabber-browse-mode
+                                           'slack-mode))))))
 
 ;; I can never remember all the damn chat things I run, so this just does all of em.
 (defun chat (&optional arg)
@@ -306,7 +312,9 @@ always nil; this function is mostly intended for use in init."
 With optional ARG, kill all chat-related buffers first."
   (interactive "P")
   (when arg (chat-disconnect))
-  (mapc #'call-interactively chat-functions))
+  (dolist-with-progress-reporter (fn chat-functions)
+      "Connecting to chat..."
+    (call-interactively fn)))
 
 (defun +forward-paragraph (arg)
   "Move forward ARG (simple) paragraphs.
@@ -353,5 +361,18 @@ SEPARATOR defaults to the newline (\\n)."
   (with-current-buffer (find-file-noselect file)
     (buffer-string)))
 
+(defmacro +with-progress (pr-args &rest body)
+  "Perform BODY wrapped in a progress reporter.
+PR-ARGS is the list of arguments to pass to
+`make-progress-reporter'; it can be a single string for the
+message, as well.  If you want to use a formatted string, wrap
+the `format' call in a list."
+  (declare (indent 1))
+  (let ((reporter (gensym))
+        (pr-args (if (listp pr-args) pr-args (list pr-args))))
+    `(let ((,reporter (make-progress-reporter ,@pr-args)))
+       (prog1 (progn ,@body)
+         (progress-reporter-done ,reporter)))))
+
 (provide 'acdw)
 ;;; acdw.el ends here