yay

2 files changed, 49 insertions, 1 deletions

diff --git a/doom/.config/doom/config.el b/doom/.config/doom/config.el
index 944be5d..d700b8e 100644
--- a/doom/.config/doom/config.el
+++ b/doom/.config/doom/config.el
@@ -335,6 +335,29 @@ emms-cache-file (concat doom-cache-dir "emms-cache"))
     (vc-jj--command-dispatched nil 0 nil "new" "--quiet")))
   (advice-add 'vc-jj-checkin :override #'my/vc-jj-checkin))
 
+(after! vc-jj
+  (add-to-list 'display-buffer-alist
+               '("\\`\\*vc-jj : "
+                 (display-buffer-no-window)
+                 (allow-no-window . t)))
+
+  (defun my/vc-jj--report-push (&rest _)
+    (when-let* ((root (vc-jj-root default-directory))
+                (buf  (get-buffer (format "*vc-jj : %s*" (expand-file-name root))))
+                (proc (get-buffer-process buf)))
+      (add-function
+       :around (process-sentinel proc)
+       (lambda (orig p event)
+         (unwind-protect (funcall orig p event)
+           (when (memq (process-status p) '(exit signal))
+             (if (zerop (process-exit-status p))
+                 (message "vc-jj: push done")
+               (message "vc-jj: push FAILED, output below")
+               (let ((display-buffer-alist nil))
+                 (pop-to-buffer buf)))))))))
+
+  (advice-add 'vc-jj-push :after #'my/vc-jj--report-push))
+
 (setq org-directory "~/org/")
 
 (after! org
diff --git a/doom/.config/doom/config.org b/doom/.config/doom/config.org
index 10fa070..299fdc6 100644
--- a/doom/.config/doom/config.org
+++ b/doom/.config/doom/config.org
@@ -619,7 +619,32 @@ Here we fix it!
     (vc-jj--command-dispatched nil 0 nil "new" "--quiet")))
   (advice-add 'vc-jj-checkin :override #'my/vc-jj-checkin))
 #+end_src
-
+Now, this opens an ugly buffer in a split window and just... leaves it there.
+A simple fix indeed.
+#+begin_src emacs-lisp
+(after! vc-jj
+  (add-to-list 'display-buffer-alist
+               '("\\`\\*vc-jj : "
+                 (display-buffer-no-window)
+                 (allow-no-window . t)))
+
+  (defun my/vc-jj--report-push (&rest _)
+    (when-let* ((root (vc-jj-root default-directory))
+                (buf  (get-buffer (format "*vc-jj : %s*" (expand-file-name root))))
+                (proc (get-buffer-process buf)))
+      (add-function
+       :around (process-sentinel proc)
+       (lambda (orig p event)
+         (unwind-protect (funcall orig p event)
+           (when (memq (process-status p) '(exit signal))
+             (if (zerop (process-exit-status p))
+                 (message "vc-jj: push done")
+               (message "vc-jj: push FAILED, output below")
+               (let ((display-buffer-alist nil))
+                 (pop-to-buffer buf)))))))))
+
+  (advice-add 'vc-jj-push :after #'my/vc-jj--report-push))
+#+end_src
 
 * Org
 ~Protesting for Org README support.~