Split large setq init block for Org Mode into smaller parts

This makes it easier to evaluate assignments individually.
This commit is contained in:
Daniel - 2020-01-30 15:32:38 +01:00
parent bea691cc9b
commit 4dbc4b14c6
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 88 additions and 84 deletions

172
init.el
View File

@ -716,104 +716,108 @@ With given ARG, display files in `db/important-document-path."
:commands (org-store-link) :commands (org-store-link)
:bind (:map org-mode-map :bind (:map org-mode-map
([remap org-return] . org-return-indent)) ([remap org-return] . org-return-indent))
:init (setq org-deadline-warning-days 14 :init (progn
org-read-date-popup-calendar t (setq org-deadline-warning-days 14
org-insert-heading-respect-content t org-read-date-popup-calendar t
org-list-description-max-indent 5 org-insert-heading-respect-content t
org-adapt-indentation nil org-list-description-max-indent 5
org-edit-timestamp-down-means-later t org-adapt-indentation nil
org-archive-location "%s_archive.gpg::" org-edit-timestamp-down-means-later t
org-image-actual-width nil org-archive-location "%s_archive.gpg::"
org-footnote-section nil org-image-actual-width nil
org-log-into-drawer "LOGBOOK" org-footnote-section nil
org-log-reschedule 'time org-log-into-drawer "LOGBOOK"
org-log-redeadline 'note org-log-reschedule 'time
org-log-note-clock-out nil org-log-redeadline 'note
org-log-done 'time org-log-note-clock-out nil
org-clone-delete-id t org-log-done 'time
org-catch-invisible-edits 'error org-clone-delete-id t
org-M-RET-may-split-line '((default . nil)) org-catch-invisible-edits 'error
org-highlight-latex-and-related '(latex) org-M-RET-may-split-line '((default . nil))
org-use-sub-superscripts '{} org-highlight-latex-and-related '(latex)
org-src-fontify-natively t org-use-sub-superscripts '{}
org-src-preserve-indentation t org-src-fontify-natively t
org-ellipsis "" org-src-preserve-indentation t
org-fontify-done-headline nil org-ellipsis ""
org-cycle-separator-lines 0 org-fontify-done-headline nil
org-cycle-separator-lines 0
org-duration-format '(("y") ("w") ("d") (special . h:mm)) org-duration-format '(("y") ("w") ("d") (special . h:mm))
org-todo-keywords org-treat-S-cursor-todo-selection-as-state-change nil
'((sequence "TODO(t)" "CONT(n!)" "|" "DONE(d@)")
(sequence "GOTO(g)" "ATTN(a)" "|" "DONE(d@)")
(sequence "READ(r)" "CONT(n!)" "|" "DONE(d@)")
(sequence "DELG(e@/!)" "WAIT(w@/!)" "HOLD(h@/!)"
"|" "CANC(c@/!)" "PHONE" "MEETING"))
org-todo-state-tags-triggers org-global-properties
'(("WAIT" ("WAIT" . t)) '(("Effort_ALL" . "0:00 0:15 0:30 0:45 1:00 2:00 3:00 4:00 5:00 6:00"))
("HOLD" ("HOLD" . t))
(done ("HOLD") ("WAIT") ("DATE") ("NO_EXPORT" . t))
("TODO" ("HOLD") ("WAIT") ("NO_EXPORT"))
("READ" ("READ" . t) ("HOLD") ("WAIT"))
("GOTO" ("DATE" . t) ("HOLD") ("WAIT"))
("CONT" ("HOLD") ("WAIT"))
("ATTN" ("HOLD") ("WAIT")))
org-tag-alist org-columns-default-format
'((:startgroup . nil) "%80ITEM(Task) %10Effort(Effort){:} %10CLOCKSUM")
("WORK" . ?w)
("HOME" . ?h)
("FUN" . ?f)
("UNTAGGED" . ?u)
(:endgroup . nil)
("NOTE" . ?n))
org-treat-S-cursor-todo-selection-as-state-change nil ;; Keywords and Tags
org-fast-tag-selection-single-key 'expert
org-global-properties (setq org-todo-keywords
'(("Effort_ALL" . "0:00 0:15 0:30 0:45 1:00 2:00 3:00 4:00 5:00 6:00")) '((sequence "TODO(t)" "CONT(n!)" "|" "DONE(d@)")
(sequence "GOTO(g)" "ATTN(a)" "|" "DONE(d@)")
(sequence "READ(r)" "CONT(n!)" "|" "DONE(d@)")
(sequence "DELG(e@/!)" "WAIT(w@/!)" "HOLD(h@/!)"
"|" "CANC(c@/!)" "PHONE" "MEETING"))
org-columns-default-format org-todo-state-tags-triggers
"%80ITEM(Task) %10Effort(Effort){:} %10CLOCKSUM" '(("WAIT" ("WAIT" . t))
("HOLD" ("HOLD" . t))
(done ("HOLD") ("WAIT") ("DATE") ("NO_EXPORT" . t))
("TODO" ("HOLD") ("WAIT") ("NO_EXPORT"))
("READ" ("READ" . t) ("HOLD") ("WAIT"))
("GOTO" ("DATE" . t) ("HOLD") ("WAIT"))
("CONT" ("HOLD") ("WAIT"))
("ATTN" ("HOLD") ("WAIT")))
;; Faces org-tag-alist
'((:startgroup . nil)
("WORK" . ?w)
("HOME" . ?h)
("FUN" . ?f)
("UNTAGGED" . ?u)
(:endgroup . nil)
("NOTE" . ?n))
org-todo-keyword-faces org-fast-tag-selection-single-key 'expert)
'(("TODO" :foreground "red" :weight normal)
("GOTO" :foreground "red" :weight normal)
("READ" :foreground "red" :weight normal)
("CONT" :foreground "DeepSkyBlue" :weight normal)
("ATTN" :foreground "DeepSkyBlue" :weight normal)
("DONE" :foreground "forest green" :weight normal)
("DELG" :foreground "dark orange" :weight normal)
("WAIT" :foreground "orange" :weight normal)
("HOLD" :foreground "magenta" :weight normal)
("CANC" :foreground "lime green" :weight normal)
("MEETING" :foreground "forest green" :weight normal)
("PHONE" :foreground "forest green" :weight normal)
("REPEAT" :foreground "indian red" :weight normal))
org-priority-faces ;; Faces
'((?A . (:foreground "Red" :weight bold))
(?B . (:foreground "firebrick"))
(?C . (:foreground "tomato")))
;; Refiling (setq org-todo-keyword-faces
'(("TODO" :foreground "red" :weight normal)
("GOTO" :foreground "red" :weight normal)
("READ" :foreground "red" :weight normal)
("CONT" :foreground "DeepSkyBlue" :weight normal)
("ATTN" :foreground "DeepSkyBlue" :weight normal)
("DONE" :foreground "forest green" :weight normal)
("DELG" :foreground "dark orange" :weight normal)
("WAIT" :foreground "orange" :weight normal)
("HOLD" :foreground "magenta" :weight normal)
("CANC" :foreground "lime green" :weight normal)
("MEETING" :foreground "forest green" :weight normal)
("PHONE" :foreground "forest green" :weight normal)
("REPEAT" :foreground "indian red" :weight normal))
org-refile-targets '((org-agenda-files . (:maxlevel . 9)) org-priority-faces
(nil . (:maxlevel . 9))) '((?A . (:foreground "Red" :weight bold))
org-refile-use-outline-path 'file (?B . (:foreground "firebrick"))
org-refile-allow-creating-parent-nodes 'confirm (?C . (:foreground "tomato"))))
org-indirect-buffer-display 'current-window
org-outline-path-complete-in-steps nil
org-refile-target-verify-function 'db/verify-refile-target
;; Bable ;; Refiling
org-babel-load-languages '((shell . t) (setq org-refile-targets '((org-agenda-files . (:maxlevel . 9))
(emacs-lisp . t))) (nil . (:maxlevel . 9)))
org-refile-use-outline-path 'file
org-refile-allow-creating-parent-nodes 'confirm
org-indirect-buffer-display 'current-window
org-outline-path-complete-in-steps nil
org-refile-target-verify-function 'db/verify-refile-target)
;; Bable
(setq org-babel-load-languages '((shell . t)
(emacs-lisp . t))))
:config (progn :config (progn
;; Reset checkboxes if the RESET_CHECK_BOXES property is set ;; Reset checkboxes if the RESET_CHECK_BOXES property is set
(add-hook 'org-after-todo-state-change-hook 'org-reset-checkbox-state-maybe) (add-hook 'org-after-todo-state-change-hook 'org-reset-checkbox-state-maybe)