Compare commits

..

No commits in common. "8c5f54709b1ed37bbed4f0a56086b1d0f1f95ae3" and "99f89be39c973630d00e10b481cd52572054f155" have entirely different histories.

195
init.el
View File

@ -737,105 +737,100 @@ 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
(setopt org-deadline-warning-days 14 (setq 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
org-edit-timestamp-down-means-later t org-edit-timestamp-down-means-later t
org-archive-location "%s_archive.gpg::" org-archive-location "%s_archive.gpg::"
org-image-actual-width nil org-image-actual-width nil
org-imenu-depth 10 org-imenu-depth 10
org-footnote-section nil org-footnote-section nil
org-log-into-drawer "LOGBOOK" org-log-into-drawer "LOGBOOK"
org-log-reschedule 'note org-log-reschedule 'note
org-log-redeadline 'note org-log-redeadline 'note
org-log-refile 'note org-log-refile 'note
org-log-note-clock-out nil org-log-note-clock-out nil
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 org-M-RET-may-split-line '((default . nil))
; default, to avoid org-highlight-latex-and-related '(latex)
; incompletly revealed items org-use-sub-superscripts '{}
org-M-RET-may-split-line '((default . nil)) org-src-fontify-natively t
org-highlight-latex-and-related '(latex) org-src-preserve-indentation t
org-use-sub-superscripts '{} org-src-tab-acts-natively nil
org-src-fontify-natively t org-ellipsis ""
org-src-preserve-indentation t org-fontify-done-headline nil
org-src-tab-acts-natively nil org-cycle-separator-lines 2
org-ellipsis "" org-special-ctrl-a/e t
org-fontify-done-headline nil org-highlight-latex-and-related nil
org-cycle-separator-lines 2 org-attach-store-link-p 'attached
org-special-ctrl-a/e t org-attach-auto-tag nil
org-highlight-latex-and-related nil org-bookmark-names-plist nil
org-attach-store-link-p 'attached org-goto-interface 'outline-path-completion
org-attach-auto-tag nil org-id-link-to-org-use-id t
org-bookmark-names-plist nil
org-goto-interface 'outline-path-completion
org-id-link-to-org-use-id t
org-return-follows-link t
org-hide-emphasis-markers t
org-blank-before-new-entry '((heading . t) org-blank-before-new-entry '((heading . t)
(plain-list-item . auto)) (plain-list-item . auto))
org-duration-format '(("y") ("w") ("d") (special . h:mm)) org-duration-format '(("y") ("w") ("d") (special . h:mm))
org-treat-S-cursor-todo-selection-as-state-change nil org-treat-S-cursor-todo-selection-as-state-change nil
org-global-properties org-global-properties
'(("Effort_ALL" . "0:00 0:05 0:10 0:15 0:30 0:45 1:00 2:00 3:00 4:00 6:00 8:00")) '(("Effort_ALL" . "0:00 0:05 0:10 0:15 0:30 0:45 1:00 2:00 3:00 4:00 6:00 8:00"))
org-columns-default-format org-columns-default-format
"%80ITEM(Task) %10Effort(Effort) %10CLOCKSUM" "%80ITEM(Task) %10Effort(Effort) %10CLOCKSUM"
;; We activate speed keys primarily to avoid invalidating headlines by accidentally ;; We activate speed keys primarily to avoid invalidating headlines by accidentally
;; typing non-star characters when at the start of a headline. See ;; typing non-star characters when at the start of a headline. See
;; `db/org-ignore-insert-on-headline-start'. ;; `db/org-ignore-insert-on-headline-start'.
org-use-speed-commands t) org-use-speed-commands t)
;; Keywords and Tags ;; Keywords and Tags
(setopt org-todo-keywords (setq 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@)")
(sequence "DELG(e@)" "WAIT(w@)" "HOLD(h@)" "|" "CANC(c@)")) (sequence "DELG(e@)" "WAIT(w@)" "HOLD(h@)" "|" "CANC(c@)"))
org-todo-state-tags-triggers org-todo-state-tags-triggers
'(("WAIT" ("HOLD") ("WAIT" . t)) '(("WAIT" ("HOLD") ("WAIT" . t))
("DELG" ("HOLD") ("WAIT" . t)) ("DELG" ("HOLD") ("WAIT" . t))
("HOLD" ("HOLD" . t) ("WAIT")) ("HOLD" ("HOLD" . t) ("WAIT"))
(done ("HOLD") ("WAIT")) (done ("HOLD") ("WAIT"))
("TODO" ("HOLD") ("WAIT") ("DATE") ("READ")) ("TODO" ("HOLD") ("WAIT") ("DATE") ("READ"))
("READ" ("READ" . t) ("DATE") ("HOLD") ("WAIT")) ("READ" ("READ" . t) ("DATE") ("HOLD") ("WAIT"))
("GOTO" ("DATE" . t) ("READ") ("HOLD") ("WAIT")) ("GOTO" ("DATE" . t) ("READ") ("HOLD") ("WAIT"))
("CONT" ("DATE") ("HOLD") ("WAIT") ("READ")) ("CONT" ("DATE") ("HOLD") ("WAIT") ("READ"))
("REFINE" ("DATE") ("HOLD") ("WAIT") ("READ")) ("REFINE" ("DATE") ("HOLD") ("WAIT") ("READ"))
("ATTN" ("DATE" . t) ("READ") ("HOLD") ("WAIT")) ("ATTN" ("DATE" . t) ("READ") ("HOLD") ("WAIT"))
("" ("HOLD") ("WAIT") ("DATE") ("READ"))) ("" ("HOLD") ("WAIT") ("DATE") ("READ")))
org-tag-alist org-tag-alist
'((:startgroup) '((:startgroup)
("WORK" . ?w) ("WORK" . ?w)
("HOME" . ?h) ("HOME" . ?h)
("FUN" . ?f) ("FUN" . ?f)
("UNTAGGED" . ?u) ("UNTAGGED" . ?u)
(:endgroup) (:endgroup)
("NOTE" . ?n) ("NOTE" . ?n)
(:startgroup) (:startgroup)
("PERIODIC" . ?p) ("PERIODIC" . ?p)
("NOP" . ?o) ("NOP" . ?o)
("TOPIC" . ?t) ("TOPIC" . ?t)
("TEMPLATE" . ?l) ("TEMPLATE" . ?l)
("GOAL" . ?g) ("GOAL" . ?g)
(:endgroup)) (:endgroup))
org-tags-exclude-from-inheritance org-tags-exclude-from-inheritance
'("NOP" "TOPIC" "GOAL") '("NOP" "TOPIC" "GOAL")
org-tags-column -85 org-tags-column -85
org-fast-tag-selection-single-key 'expert) org-fast-tag-selection-single-key 'expert)
;; Faces ;; Faces
@ -860,21 +855,25 @@ split horizontally again, but this extra work should not matter much."
;; Refiling ;; Refiling
(setopt org-refile-targets '((org-agenda-files . (:maxlevel . 9)) (setq 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
org-refile-use-cache nil org-refile-use-cache nil
org-refile-allow-creating-parent-nodes 'confirm org-refile-allow-creating-parent-nodes 'confirm
org-indirect-buffer-display 'current-window org-indirect-buffer-display 'current-window
org-outline-path-complete-in-steps nil 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)
;; Babel ;; Babel
(setopt org-babel-load-languages '((shell . t) (setq 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