Bleh

init.el

@@ -119,7 +119,8 @@
            pulse-iterations 1)
   (dolist (command '(+ace-window-or-switch-buffer
                      pop-mark pop-global-mark
-                     Info-history-back Info-history-forward))
+                     Info-history-back Info-history-forward
+                     ))
     (add-to-list '+pulse-location-commands command))
   (+ensure-after-init #'+pulse-location-mode))
 
@@ -129,6 +130,8 @@
 
 (setup (:require user-save)
   (add-hook 'user-save-hook #'+clean-empty-lines)
+  (add-hook 'user-save-hook (defun user-save@save-some-buffers ()
+                              (save-some-buffers t t)))
   (user-save-global-mode +1))
 
 (setup (:require winner)
@@ -623,6 +626,17 @@
                                 ("=" org-verbatim)
                                 ("~" org-code)
                                 ("+" org-strikethrough)))
+  ;; (setq org-todo-keywords
+  ;;       '((sequence
+  ;;          "TODO(t)"
+  ;;          "NEXT(n!)" ; next action
+  ;;          "DONE(d)"  ; done)
+  ;;          (sequence
+  ;;           "WAIT(w@)"   ; waiting to be actionable again
+  ;;           "HOLD(h@/!)" ; actinable, but will do later
+  ;;           "IDEA(i)"    ; maybe someday
+  ;;           "KILL(k@/!)" ;  cancelled, aborted or is no longer applicable
+  ;;           ))))
   (:bind "RET" #'+org-return-dwim
          "<S-return>" #'+org-table-copy-down
          "C-c C-l" #'+org-insert-link-dwim
@@ -774,7 +788,14 @@
         :unnarrowed t))
   (+org-capture-sort))
 
-(setup org-export
+(setup org-id
+  (:load-after org)
+  ;; https://helpdeskheadesk.net/2022-03-13/
+  (:option org-id-method 'ts
+           org-attach-id-to-path-function-list '(org-attach-id-ts-folder-format
+                                                 org-attach-id-uuid-folder-format)))
+
+(setup ox                               ; org-export
   (:also-load ox-md)
   (:option org-export-coding-system 'utf-8-unix
            org-export-headline-levels 8
@@ -784,14 +805,7 @@
            org-export-with-sub-superscripts t
            org-export-with-toc nil)
   (with-eval-after-load 'user-save
-    (advice-add 'org-export-dispatch :before 'user-save-run-hooks)))
-
-(setup org-id
-  (:load-after org)
-  ;; https://helpdeskheadesk.net/2022-03-13/
-  (:option org-id-method 'ts
-           org-attach-id-to-path-function-list '(org-attach-id-ts-folder-format
-                                                 org-attach-id-uuid-folder-format)))
+    (advice-add 'org-export-as :before #'user-save-run-hooks)))
 
 (setup password-cache
   (:option password-cache t