As many things into one large setq as possible

Why not lol

diff --git a/re/re-org.el b/re/re-org.el
index acb45a46d0ec3a3a1e930f414d2e1e9c56d2d166..708ab124cde13fd44dd6afc104c088006b7f17c8 100644 (file)
--- 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)))
 \f
 ;; Time Clocking
 (org-clock-persistence-insinuate)
@@ -51,20 +48,16 @@
 
 \f
 ;; 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