From f2b652dabc6c457094254f778483864f225cdaa9 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 24 Apr 2022 15:01:58 -0500
Subject: Bleh

---
 init.el | 34 ++++++++++++++++++++++++----------
 1 file changed, 24 insertions(+), 10 deletions(-)

diff --git a/init.el b/init.el
index 46f0071..3ed63c2 100644
--- a/init.el
+++ b/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
-- 
cgit 1.4.1-21-gabe81