Use setopt for Org settings

Also restructure settings minimally.
This commit is contained in:
Daniel Borchmann 2025-07-27 14:38:49 +02:00
parent 99f89be39c
commit 4d23f4a9a4
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1

17
init.el
View File

@ -737,7 +737,7 @@ split horizontally again, but this extra work should not matter much."
org-entry-get) org-entry-get)
:commands (org-return) :commands (org-return)
:init (progn :init (progn
(setq org-deadline-warning-days 14 (setopt org-deadline-warning-days 14
org-read-date-popup-calendar t org-read-date-popup-calendar t
org-insert-heading-respect-content t org-insert-heading-respect-content t
org-adapt-indentation nil org-adapt-indentation nil
@ -754,6 +754,9 @@ split horizontally again, but this extra work should not matter much."
org-log-done 'note org-log-done 'note
org-clone-delete-id t org-clone-delete-id t
org-fold-catch-invisible-edits 'show-and-error org-fold-catch-invisible-edits 'show-and-error
org-fold-show-context-detail '((default . lineage)) ; reveal more context by
; default, to avoid
; incompletly revealed items
org-M-RET-may-split-line '((default . nil)) org-M-RET-may-split-line '((default . nil))
org-highlight-latex-and-related '(latex) org-highlight-latex-and-related '(latex)
org-use-sub-superscripts '{} org-use-sub-superscripts '{}
@ -791,7 +794,7 @@ split horizontally again, but this extra work should not matter much."
;; Keywords and Tags ;; Keywords and Tags
(setq org-todo-keywords (setopt org-todo-keywords
'((sequence "TODO(t@)" "CONT(n!)" "REFINE(f!)" "|" "DONE(d@)" "CANC(c@)" "MRGD(m@)") '((sequence "TODO(t@)" "CONT(n!)" "REFINE(f!)" "|" "DONE(d@)" "CANC(c@)" "MRGD(m@)")
(sequence "GOTO(g@)" "ATTN(a!)" "|" "DONE(d@)") (sequence "GOTO(g@)" "ATTN(a!)" "|" "DONE(d@)")
(sequence "READ(r@)" "CONT(n!)" "|" "DONE(d@)") (sequence "READ(r@)" "CONT(n!)" "|" "DONE(d@)")
@ -855,7 +858,7 @@ split horizontally again, but this extra work should not matter much."
;; Refiling ;; Refiling
(setq org-refile-targets '((org-agenda-files . (:maxlevel . 9)) (setopt org-refile-targets '((org-agenda-files . (:maxlevel . 9))
(nil . (:maxlevel . 9)) (nil . (:maxlevel . 9))
(db/org-default-notes-file . (:maxlevel . 9))) (db/org-default-notes-file . (:maxlevel . 9)))
org-refile-use-outline-path 'buffer-name org-refile-use-outline-path 'buffer-name
@ -867,13 +870,9 @@ split horizontally again, but this extra work should not matter much."
;; Babel ;; Babel
(setq org-babel-load-languages '((shell . t) (setopt org-babel-load-languages '((shell . t)
(emacs-lisp . t) (emacs-lisp . t)
(sql . t))) (sql . t))))
;; Show more context when revealing locations, to avoid incompletly revealed items.
(setopt org-fold-show-context-detail '((default . lineage))))
:config (progn :config (progn