Update hm-changes-report script

.emacs.d/init.el

@@ -25,9 +25,10 @@
            (cdar elpaca--status-counts)
            (string-to-number (emacs-init-time))))
 
-(add-hook 'after-init-hook #'(lambda ()
-                               (setq gc-cons-threshold (* 100 1024 1024)
-                                     gc-cons-percentage 0.1)))
+(add-hook 'elpaca-after-init-hook #'(lambda ()
+                                      (setq gc-cons-threshold (* 100 1024 1024)
+                                            gc-cons-percentage 0.1))
+          99)
 
 ;; Some straight functions need to be able to reload everything, so require won't do
 (defun require! (feature &optional filename noerror)

.emacs.d/lisp/init-clojure.el

@@ -136,6 +136,7 @@
         cider-connection-message-fn nil
         cider-show-error-buffer 'except-in-repl
         clojure-toplevel-inside-comment-form t)
+  (setq-default cider-use-overlays t)
   (unbind-key "C-c C-l" cider-mode-map)
   (unbind-key "C-c C-b" cider-mode-map)
   (unbind-key "C-c C-b" cider-repl-mode-map)

.emacs.d/lisp/init-packages.el

@@ -46,7 +46,8 @@
   ;; Assume :elpaca t unless otherwise specified.
   (setq elpaca-use-package-by-default t
         use-package-always-defer t
-        package-native-compile t)
+        package-native-compile t
+        elpaca-queue-limit 10)
   (bind-key "C-c e u" 'elpaca-fetch-all)
   (bind-key "C-c e m" 'elpaca-manager))
 
@@ -55,6 +56,31 @@
 ;; Block until current queue processed.
 (elpaca-wait)
 
+;; https://github.com/progfolio/elpaca/wiki/Logging#how-to-change-a-commands-log-query
+(with-eval-after-load 'elpaca-log
+  (setf (alist-get '(eval-buffer eval-region eval-defun eval-last-sexp org-ctrl-c-ctrl-c)
+                   elpaca-log-command-queries nil nil #'equal)
+        "#unique | !finished"))
+
+;; https://github.com/progfolio/elpaca/wiki/Logging#auto-hiding-the-elpaca-log-buffer
+(defvar +elpaca-hide-log-commands '(eval-buffer eval-region eval-defun eval-last-sexp org-ctrl-c-ctrl-c)
+  "List of commands for which a successfully processed log is auto hidden.")
+(defun +elpaca-hide-successful-log ()
+  "Hide Elpaca log buffer if queues processed successfully."
+  (message "this: %S last: %S" this-command last-command)
+  (if-let ((incomplete (cl-find 'incomplete elpaca--queues :key #'elpaca-q<-status))
+           ((elpaca-q<-elpacas incomplete)))
+      nil
+    (when-let ((log (bound-and-true-p elpaca-log-buffer))
+               (window (get-buffer-window log t)) ;; log buffer visible
+               ((or (member last-command +elpaca-hide-log-commands)
+                    (member this-command +elpaca-hide-log-commands))))
+      (with-selected-window window (quit-window 'kill window)))))
+(add-hook 'elpaca-post-queue-hook #'+elpaca-hide-successful-log)
+
+;; https://github.com/progfolio/elpaca/wiki/Logging#customizing-the-position-of-the-elpaca-log-buffer
+(add-to-list 'display-buffer-alist '("\\*elpaca-log\\*" (display-buffer-reuse-window display-buffer-at-bottom)))
+
 ;; https://github.com/radian-software/radian/blob/e3aad124c8e0cc870ed09da8b3a4905d01e49769/emacs/radian.el#L352
 (defmacro use-feature (name &rest args)
   "Like `use-package', but with `elpaca-use-package-by-default' disabled.

.emacs.d/lisp/init-smartparens.el

@@ -104,6 +104,8 @@ Equivalent to raising then wrapping."
               ("M-q" . sp-indent-defun)
               ("C-j" . sp-newline)
               ("M-R" . kill-around-sexp)
+              ("M-D" . sp-unwrap-sexp)
+              ("C-M-S-d" . sp-backward-unwrap-sexp)
               ("C-c C-S-d" . duplicate-sexp-after-point)
               ("C-c M-(" . wrap-round-from-behind)))
 

.emacs.d/lisp/init-windows.el

@@ -62,10 +62,11 @@
   (uniquify-buffer-name-style 'forward))
 
 (use-package fullframe
-  :defer 8
+  :defer 4
   :config
   (fullframe magit-status magit-mode-bury-buffer)
-  (fullframe vc-annotate quit-window))
+  (fullframe vc-annotate quit-window)
+  (fullframe elpaca-fetch-all quit-window))
 
 (use-package ace-window
   :diminish

nix-conf/home/includes/scripts/hm-changes-report.nix

@@ -3,7 +3,7 @@
 # https://github.com/gvolpe/nix-config/blob/e28a220d0087064e6bad6b992b4914a65eb545e5/home/scripts/changes-report.nix
 let
   #hm-profiles = "/nix/var/nix/profiles/per-user/${config.home.username}/home-manager-*-link";
-  hm-profiles = "/nix/var/nix/profiles/per-user/djm/home-manager-*-link";
+  hm-profiles = "/nix/var/nix/profiles/per-user/djm/{profile,home-manager}-*-link";
 in
 pkgs.writeShellScriptBin "hm-changes-report" ''
   # Disable nvd if there are less than 2 hm profiles.