blob: 338e68f161420bd37a956731d0b9e6efb03db7a7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
;;; init-org.el --- configure org -*- lexical-binding:t -*-
;;; Commentary:
;;; Code:
(defun mpolden/org-goto ()
"Jump to an Org heading.
Uses `consult-org-heading' if available, and otherwise falls back
to `org-goto'."
(interactive)
(if (functionp 'consult-org-heading)
(call-interactively 'consult-org-heading)
(org-goto)))
(use-package org
:mode ("\\.org\\'" . org-mode)
:bind (("C-c c" . org-capture)
("C-c l" . org-store-link)
("C-c a" . org-agenda)
:map org-mode-map
("C-c o a" . org-archive-subtree)
("C-c o s" . org-save-all-org-buffers)
("C-c C-j" . mpolden/org-goto))
:init
;; set default org directory
(setq org-directory "~/org")
;; save archive file when archiving
(setq org-archive-subtree-save-file-p t)
;; sparse tree construction shows matches in archived trees
(setq org-sparse-tree-open-archived-trees t)
;; display all org files in agenda
(setq org-agenda-files (list org-directory))
;; refile targets 1 level in current buffer and all org agenda files
(setq org-refile-targets '((nil :maxlevel . 2) (org-agenda-files :maxlevel . 1)))
;; visual indenting only
(setq org-startup-indented t
org-adapt-indentation nil)
;; record time when moving a task to done state
(setq org-log-done 'time)
;; capture template including title, date and time
(setq org-capture-templates '(("i" "Inbox" entry (file "inbox.org")
"* TODO %?\n%U")
("t" "Tasks" entry (file+headline "notes.org" "Tasks")
"* TODO %?\n%U")))
;; cycle opens archived trees
(setq org-cycle-open-archived-trees t)
;; fold by default
(setq org-startup-folded t)
;; define todo states
(setq org-todo-keywords '((sequence "TODO(t)" "WAIT(w@)" "|" "ABRT(a@)" "DONE(d)")))
;; disallow invisible edits
(setq org-catch-invisible-edits 'error)
;; complete tags from all agenda files
(setq org-complete-tags-always-offer-all-agenda-tags t)
;; search headlines via completion
(setq org-goto-interface 'outline-path-completion)
;; include the full path when searching headlines
(setq org-outline-path-complete-in-steps nil)
;; insert state change notes and time stamps into a drawer
(setq org-log-into-drawer t)
;; export as html5
(setq org-html-doctype "html5")
;; hide todo entries whose deadline is far away according to
;; org-deadline-warning-days
(setq org-agenda-todo-ignore-deadlines 'far)
;; hide todo entries scheduled in the future
(setq org-agenda-todo-ignore-scheduled 'future)
;; include two weeks in agenda
(setq org-agenda-span 'fortnight)
;; customize agenda
(setq org-agenda-custom-commands
'(;; default view
("n" "Agenda and all TODOs" ((agenda "") (alltodo "")))
;; split by state
("m" "Agenda and all TODOs split by state"
((agenda "") (todo "TODO") (todo "WAIT")))))
;; set export backends
(setq org-export-backends '(ascii html md))
;; babel languages
(setq org-babel-load-languages '((emacs-lisp . t)
(python . t)
(shell . t))
org-babel-python-command "python3")
;; skip confirmation when evaluating code blocks
(setq org-confirm-babel-evaluate nil)
:config
;; enable template expansion when typing <s in org-mode
(add-to-list 'org-modules 'org-tempo t))
(use-package org-mac-link
:ensure t
:after org
:if (eq system-type 'darwin)
:bind (:map org-mode-map
("C-c o g" . org-mac-link-get-link)))
(use-package org-modern
:ensure t
:init
;; do not use folding indicators
(setq org-modern-star 'replace)
:config
(global-org-modern-mode 1))
(provide 'init-org)
;;; init-org.el ends here
|
