Commit 223d0f183b75

Vincent Demeester <vincent@sbr.pm>
2026-02-11 07:17:35
fix(emacs): removed org-mode config overrides in batch files
Batch functions were overriding user's init.el org-mode settings, breaking C-c C-t TODO selection menu by setting org-use-fast-todo-selection to nil. Removed these overrides to respect interactive configuration while preserving batch operation functionality.
main
1 parent 1bcadf2
Changed files (2)
dots
config
emacs
site-lisp
org-batch-functions.el
org-ql-batch-functions.el
dots/config/emacs/site-lisp/org-batch-functions.el
@@ -28,17 +28,27 @@
 
 ;;; Configuration
 
-(setq org-todo-keywords
-      '((sequence "STRT(s)" "NEXT(n)" "TODO(t)" "WAIT(w)" "|" "DONE(d!)" "CANX(c@/!)")))
+;; These configurations are applied when running batch operations
+;; but should NOT override user's interactive settings in init.el
 
-(setq org-priority-highest ?1  ; Highest priority (character '1' = ASCII 49)
-      org-priority-lowest ?5   ; Lowest priority (character '5' = ASCII 53)
-      org-priority-default ?4) ; Default priority (character '4' = ASCII 52)
+;; Priority defaults (used by batch conversion functions)
+(defvar org-batch-priority-highest ?1
+  "Highest priority for batch operations (character '1' = ASCII 49).")
+(defvar org-batch-priority-lowest ?5
+  "Lowest priority for batch operations (character '5' = ASCII 53).")
+(defvar org-batch-priority-default ?4
+  "Default priority for batch operations (character '4' = ASCII 52).")
 
-;; Silence interactive prompts
-(setq org-use-fast-todo-selection nil
-      org-log-done nil  ; Will be set per-operation as needed
-      org-agenda-inhibit-startup t)
+;; Set priority defaults only if not already configured
+(unless org-priority-highest
+  (setq org-priority-highest org-batch-priority-highest))
+(unless org-priority-lowest
+  (setq org-priority-lowest org-batch-priority-lowest))
+(unless org-priority-default
+  (setq org-priority-default org-batch-priority-default))
+
+;; Don't override org-use-fast-todo-selection - respect user's init.el setting
+;; Don't override org-todo-keywords - respect user's init.el setting
 
 ;;; Utility Functions
dots/config/emacs/site-lisp/org-ql-batch-functions.el
@@ -25,14 +25,10 @@
 (require 'org-element)
 (require 'json)
 
-;;; Configuration (same as original)
+;;; Configuration
 
-(setq org-priority-highest ?1
-      org-priority-lowest ?5
-      org-priority-default ?4)
-
-(setq org-todo-keywords
-      '((sequence "STRT(s)" "NEXT(n)" "TODO(t)" "WAIT(w)" "|" "DONE(d!)" "CANX(c@/!)")))
+;; Don't override user's init.el settings for org-mode
+;; Priority and todo keywords should be configured in init.el
 
 ;;; Utility Functions