From 31c68bac113295127b33105550a05db2a769c5b2 Mon Sep 17 00:00:00 2001 From: rearman Date: Thu, 23 Apr 2026 17:05:49 -0400 Subject: [PATCH] As many things into one large setq as possible Why not lol --- re/re-org.el | 146 +++++++++++++++++++++++---------------------------- 1 file changed, 65 insertions(+), 81 deletions(-) diff --git a/re/re-org.el b/re/re-org.el index acb45a4..708ab12 100644 --- a/re/re-org.el +++ b/re/re-org.el @@ -17,27 +17,24 @@ org-table-export-default-format "orgtbl-to-csv" org-list-allow-alphabetical t org-fold-catch-invisible-edits 'show-and-error - org-ellipsis " ↴") - -(setq org-tags-column 0 + org-ellipsis " ↴" + org-tags-column 0 org-enforce-todo-dependencies t org-enforce-todo-checkbox-dependencies t - org-fontify-done-headline nil) - -(setq org-goto-interface 'outline-path-completion + org-fontify-done-headline nil + org-goto-interface 'outline-path-completion org-outline-path-complete-in-steps nil - org-goto-auto-isearch nil) - -(setq org-special-ctrl-a/e t + org-goto-auto-isearch nil + org-special-ctrl-a/e t org-special-ctrl-k t org-return-follows-link t - org-yank-adjusted-subtrees t) + org-yank-adjusted-subtrees t + org-todo-keyword-faces '(("WAITING" :foreground "#e15400" :weight bold) + ("UNDERTAKEN" :foreground "magenta" :weight bold) + ("MEETING" :foreground "#315e9a" :weight bold))) (add-hook 'org-agenda-mode-hook #'hl-line-mode) -(setq org-todo-keyword-faces '(("WAITING" :foreground "#e15400" :weight bold) - ("UNDERTAKEN" :foreground "magenta" :weight bold) - ("MEETING" :foreground "#315e9a" :weight bold))) ;; Time Clocking (org-clock-persistence-insinuate) @@ -51,20 +48,16 @@ ;; Agenda and capture -(setq org-agenda-files '("~/org/")) - -;; Allow 9 levels in current file, any other org file, allow toplevel refile, and allow creation of new parents -(setq org-refile-targets '((nil :maxlevel . 9) +(setq org-agenda-files '("~/org/") + org-refile-targets '((nil :maxlevel . 9) (org-agenda-files :maxlevel . 9)) org-refile-use-outline-path 'file - org-refile-allow-creating-parent-nodes 'confirm) - -(setq org-todo-keywords '((sequence "UNDERTAKEN(u)" "|") + org-refile-allow-creating-parent-nodes 'confirm + org-todo-keywords '((sequence "UNDERTAKEN(u)" "|") (sequence "TODO(t)" "WAITING(w@)" "|") (sequence "|" "DONE(d)" "BELAYED(b@)" "GIVEN(g@)") - (sequence "MEETING(m)" "|" "MET(M)"))) - -(setq org-tag-alist '((:startgroup . nil) ; contexts + (sequence "MEETING(m)" "|" "MET(M)")) + org-tag-alist '((:startgroup . nil) ; contexts ("buy" . ?b) ("call" . ?c) ("email" . ?m) @@ -86,9 +79,8 @@ ("pm" . nil) ("psm" . nil) ("sm" . nil) - (:endgroup . nil))) - -(setq org-agenda-restore-windows-after-quit t + (:endgroup . nil)) + org-agenda-restore-windows-after-quit t org-agenda-start-on-weekday nil org-agenda-compact-blocks t org-agenda-span 'day @@ -101,17 +93,15 @@ org-agenda-tags-column 0 org-agenda-skip-additional-timestamps-same-entry t org-agenda-skip-deadline-if-done t - org-agenda-skip-scheduled-if-done t) - -(setq org-agenda-prefix-format '((agenda . "%25c:%?-12t% s") + org-agenda-skip-scheduled-if-done t + org-agenda-prefix-format '((agenda . "%25c:%?-12t% s") (todo . "%25c:%?-12t% s") (tags . "%25c:%?-12t% s") (search . "%25c:%?-12t% s")) org-agenda-scheduled-leaders '("BOOKED: " "Booked %2d d. ago: ") org-agenda-deadline-leaders '("DEADLINE: " "In %3d d.: " "%2d d. ago: ") - org-read-date-prefer-future 'time) - -(setq org-agenda-custom-commands + org-read-date-prefer-future 'time + org-agenda-custom-commands '(("d" "Done items" todo "DONE|BELAYED|GIVEN|MET" ((org-agenda-skip-function '(org-agenda-skip-entry-if 'notregexp "^\\*\\* ")) (org-agenda-overriding-header "DONE - MAYBE KEEP:"))) @@ -128,55 +118,49 @@ ("N" "Notes" tags "note" ((org-agenda-overriding-header "NOTES:"))) ("p" "JobPCs" tags "jobpc" ((org-agenda-overriding-header "JOB PCS:"))) ("u" "Undertakings" todo "UNDERTAKEN" ((org-agenda-overriding-header "UNDERTAKINGS:"))) - ("w" "Waiting" todo "WAITING" ((org-agenda-overriding-header "WAITING:"))))) - -;; Configure stuck projects -(setq org-stuck-projects '("+TODO=\"UNDERTAKEN\"" ("TODO") nil "")) - -(setq org-agenda-start-with-log-mode t - org-agenda-log-mode-items '(closed clock state) - org-log-done 'time - org-log-into-drawer t) - -(setq org-capture-templates - '(("i" "Inbox" entry - (file+olp "gtd.org" "inbox") - "* %^{Description}\nAdded: %U\n%?" - :empty-lines-before 1 - :clock-in t - :clock-resume t) - ("n" "Next Item" entry - (file+olp "gtd.org" "next") - "* TODO %^{Description} %^{tags}G\nAdded: %U\n%?" - :empty-lines-before 1 - :clock-in t - :clock-resume t) - ("u" "Undertake" entry - (file+olp "gtd.org" "undertakings") - "* UNDERTAKEN %^{Description}\nAdded: %U\n%?" - :empty-lines-before 1 - :clock-in t - :clock-resume t) - ("m" "Meeting" entry - (file+olp "gtd.org" "meetings") - "* %^{Description}\n%^{Scheduled:}T\n%?" - :empty-lines-before 1 - :clock-in t - :clock-resume t) - ("p" "Phone Call" entry - (file+olp "gtd.org" "inbox") - "* %^{Description} :call:\nAdded: %U\n%?" - :empty-lines-before 1 - :clock-in t - :clock-resume t) - ("s" "Someday/Maybe" entry - (file+olp "gtd.org" "someday") - "* %^{Description} :call:\nAdded: %U\n%?" - :empty-lines-before 1 - :clock-in t - :clock-resume t))) - -(setq org-id-link-to-org-use-id 'create-if-interactive-and-no-custom-id + ("w" "Waiting" todo "WAITING" ((org-agenda-overriding-header "WAITING:")))) + org-stuck-projects '("+TODO=\"UNDERTAKEN\"" ("TODO") nil "") + org-agenda-start-with-log-mode t + org-agenda-log-mode-items '(closed clock state) + org-log-done 'time + org-log-into-drawer t + org-capture-templates '(("i" "Inbox" entry + (file+olp "gtd.org" "inbox") + "* %^{Description}\nAdded: %U\n%?" + :empty-lines-before 1 + :clock-in t + :clock-resume t) + ("n" "Next Item" entry + (file+olp "gtd.org" "next") + "* TODO %^{Description} %^{tags}G\nAdded: %U\n%?" + :empty-lines-before 1 + :clock-in t + :clock-resume t) + ("u" "Undertake" entry + (file+olp "gtd.org" "undertakings") + "* UNDERTAKEN %^{Description}\nAdded: %U\n%?" + :empty-lines-before 1 + :clock-in t + :clock-resume t) + ("m" "Meeting" entry + (file+olp "gtd.org" "meetings") + "* %^{Description}\n%^{Scheduled:}T\n%?" + :empty-lines-before 1 + :clock-in t + :clock-resume t) + ("p" "Phone Call" entry + (file+olp "gtd.org" "inbox") + "* %^{Description} :call:\nAdded: %U\n%?" + :empty-lines-before 1 + :clock-in t + :clock-resume t) + ("s" "Someday/Maybe" entry + (file+olp "gtd.org" "someday") + "* %^{Description} :call:\nAdded: %U\n%?" + :empty-lines-before 1 + :clock-in t + :clock-resume t)) + org-id-link-to-org-use-id 'create-if-interactive-and-no-custom-id org-id-method 'ts org-clone-delete-id t org-attach-id-to-path-function-list '(org-attach-id-ts-folder-format -- 2.39.5