From 96f0a998e9556f61d06e1e5ed3ad36120a2f164b Mon Sep 17 00:00:00 2001 From: Magdalena Szweda Date: Sat, 3 Oct 2026 10:15:33 +0200 Subject: yay --- doom/.config/doom/config.el | 23 +++++++++++++++++++++++ doom/.config/doom/config.org | 27 ++++++++++++++++++++++++++- 2 files changed, 49 insertions(+), 1 deletion(-) 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.~ -- cgit v1.2.3