From c892241af9fd84e7753fba89b240b97c6f5c1f76 Mon Sep 17 00:00:00 2001 From: Magdalena Szweda Date: Sat, 3 Oct 2026 09:58:40 +0200 Subject: test2 --- doom/.config/doom/config.el | 13 +++++++------ doom/.config/doom/config.org | 13 +++++++------ tmp.txt | 1 + 3 files changed, 15 insertions(+), 12 deletions(-) create mode 100644 tmp.txt diff --git a/doom/.config/doom/config.el b/doom/.config/doom/config.el index d80b253..483b6c7 100644 --- a/doom/.config/doom/config.el +++ b/doom/.config/doom/config.el @@ -326,12 +326,13 @@ emms-cache-file (concat doom-cache-dir "emms-cache")) (defun my/vc-jj--advance-before-push (&rest _) (my/vc-jj-bookmark-advance)) (advice-add 'vc-jj-push :before #'my/vc-jj--advance-before-push) - - (defun my/vc-jj-checkin (files comment &optional _rev) - "Describe @, then push. FILES is ignored: jj has no partial checkin." - (let ((default-directory (vc-jj-root (car files)))) - (vc-jj-modify-change-comment nil "@" comment) - (vc-jj-push nil))) + (setq my/vc-jj-advance-to "@-") +(defun my/vc-jj-checkin (files comment &optional _rev) + "Describe @, start a fresh change, advance bookmarks, push." + (let ((default-directory (vc-jj-root (car files)))) + (vc-jj-modify-change-comment nil "@" comment) + (vc-jj--command-dispatched nil 0 nil "new" "--quiet") + (vc-jj-push nil))) (advice-add 'vc-jj-checkin :override #'my/vc-jj-checkin)) (setq org-directory "~/org/") diff --git a/doom/.config/doom/config.org b/doom/.config/doom/config.org index 96ef07d..95e35ab 100644 --- a/doom/.config/doom/config.org +++ b/doom/.config/doom/config.org @@ -610,12 +610,13 @@ Here we fix it! (defun my/vc-jj--advance-before-push (&rest _) (my/vc-jj-bookmark-advance)) (advice-add 'vc-jj-push :before #'my/vc-jj--advance-before-push) - - (defun my/vc-jj-checkin (files comment &optional _rev) - "Describe @, then push. FILES is ignored: jj has no partial checkin." - (let ((default-directory (vc-jj-root (car files)))) - (vc-jj-modify-change-comment nil "@" comment) - (vc-jj-push nil))) + (setq my/vc-jj-advance-to "@-") +(defun my/vc-jj-checkin (files comment &optional _rev) + "Describe @, start a fresh change, advance bookmarks, push." + (let ((default-directory (vc-jj-root (car files)))) + (vc-jj-modify-change-comment nil "@" comment) + (vc-jj--command-dispatched nil 0 nil "new" "--quiet") + (vc-jj-push nil))) (advice-add 'vc-jj-checkin :override #'my/vc-jj-checkin)) #+end_src diff --git a/tmp.txt b/tmp.txt new file mode 100644 index 0000000..c46a168 --- /dev/null +++ b/tmp.txt @@ -0,0 +1 @@ +hii!! -- cgit v1.2.3