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

36
init.el
View File

@ -716,7 +716,8 @@ With given ARG, display files in `db/important-document-path."
:commands (org-store-link)
:bind (:map org-mode-map
([remap org-return] . org-return-indent))
:init (setq org-deadline-warning-days 14
:init (progn
(setq org-deadline-warning-days 14
org-read-date-popup-calendar t
org-insert-heading-respect-content t
org-list-description-max-indent 5
@ -743,7 +744,17 @@ With given ARG, display files in `db/important-document-path."
org-duration-format '(("y") ("w") ("d") (special . h:mm))
org-todo-keywords
org-treat-S-cursor-todo-selection-as-state-change nil
org-global-properties
'(("Effort_ALL" . "0:00 0:15 0:30 0:45 1:00 2:00 3:00 4:00 5:00 6:00"))
org-columns-default-format
"%80ITEM(Task) %10Effort(Effort){:} %10CLOCKSUM")
;; Keywords and Tags
(setq org-todo-keywords
'((sequence "TODO(t)" "CONT(n!)" "|" "DONE(d@)")
(sequence "GOTO(g)" "ATTN(a)" "|" "DONE(d@)")
(sequence "READ(r)" "CONT(n!)" "|" "DONE(d@)")
@ -769,18 +780,11 @@ With given ARG, display files in `db/important-document-path."
(:endgroup . nil)
("NOTE" . ?n))
org-treat-S-cursor-todo-selection-as-state-change nil
org-fast-tag-selection-single-key 'expert
org-global-properties
'(("Effort_ALL" . "0:00 0:15 0:30 0:45 1:00 2:00 3:00 4:00 5:00 6:00"))
org-columns-default-format
"%80ITEM(Task) %10Effort(Effort){:} %10CLOCKSUM"
org-fast-tag-selection-single-key 'expert)
;; Faces
org-todo-keyword-faces
(setq org-todo-keyword-faces
'(("TODO" :foreground "red" :weight normal)
("GOTO" :foreground "red" :weight normal)
("READ" :foreground "red" :weight normal)
@ -798,22 +802,22 @@ With given ARG, display files in `db/important-document-path."
org-priority-faces
'((?A . (:foreground "Red" :weight bold))
(?B . (:foreground "firebrick"))
(?C . (:foreground "tomato")))
(?C . (:foreground "tomato"))))
;; Refiling
org-refile-targets '((org-agenda-files . (:maxlevel . 9))
(setq org-refile-targets '((org-agenda-files . (:maxlevel . 9))
(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
org-refile-target-verify-function 'db/verify-refile-target)
;; Bable
org-babel-load-languages '((shell . t)
(emacs-lisp . t)))
(setq org-babel-load-languages '((shell . t)
(emacs-lisp . t))))
:config (progn
;; Reset checkboxes if the RESET_CHECK_BOXES property is set
(add-hook 'org-after-todo-state-change-hook 'org-reset-checkbox-state-maybe)