blob: f9e6e4f38c9ab4540e5dbd04bf5314bf30c1b154 (
plain)
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
132
133
134
135
136
137
|
;;; oni-org.el --- Org mode configuration -*- lexical-binding: t; -*-
;; Copyright (C) 2019 Tom Willemse
;; Author: Tom Willemse <tom@ryuslash.org>
;; Keywords: local
;; Version: 20190212005505
;; Package-Requires: (org-plus-contrib org-bullets)
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;; Configuration for `org-mode'.
;;; Code:
(require 'org)
(require 'org-capture)
(require 'org-habit)
(defun oni-org-expand-to-home (file-name)
"Expand FILE-NAME to the base directory for that system.
The base for all org files on Windows is u:/, but on my linux
installs it will always be ~."
(let ((base-dir (if (eq system-type 'windows-nt) "u:/" "~")))
(expand-file-name file-name base-dir)))
(defun oni-org-setup-prettify-symbols-mode ()
"Set up prettify symbols mode for org mode."
(when (member "Ionicons" (font-family-list))
(setq-local prettify-symbols-alist
'(("[ ]" . #xf372)
("[X]" . #xf374)))
(set-face-attribute 'org-checkbox nil :family "Ionicons")
(prettify-symbols-mode)))
(defun oni-org-heading-has-predecessor-p ()
"Determine if the heading at point has any predecessors.
Only tasks of a level greater than 3 are considered. A task has a
predecessor if there is a non-DONE sibling defined before it."
(let ((point (point)))
(save-excursion
(org-backward-heading-same-level 1)
(seq-let [level _ keyword] (org-heading-components)
(not (or (< level 3)
(= point (point))
(member keyword org-done-keywords)))))))
(defun oni-org-looking-for-tag-p (tag)
"Return t if we're currently looking for TAG in an agenda."
(and (eql 'org-tags-view (car org-agenda-redo-command))
(string-match-p (rx-to-string `(and word-start ,tag word-end))
org-agenda-query-string)))
(defun oni-org-next-heading-position ()
"Get the position of the next Org heading."
(or (ignore-errors
(org-forward-element)
(point))
(point-max)))
(defun oni-org-skip-tasks ()
"Skip over tasks I don't want to see right now.
Tasks being skipped over include ones with the \"ex\" tag and
ones that have a predecessor."
(let ((tags (org-get-tags (point))))
(when (or (and (not (oni-org-looking-for-tag-p "ex"))
(member "ex" tags))
(oni-org-heading-has-predecessor-p))
(oni-org-next-heading-position))))
(setq org-default-notes-file
(oni-org-expand-to-home "documents/gtd/inbox.org"))
(setq org-src-fontify-natively t)
(setq org-return-follows-link t)
(setq org-fontify-whole-heading-line t)
(setq org-hide-emphasis-markers t)
(setq org-return-follows-link t)
(setq org-use-fast-todo-selection t)
(setq org-log-into-drawer t)
(setq org-agenda-todo-ignore-scheduled 'future)
(setq org-agenda-skip-function-global #'oni-org-skip-tasks)
(setq org-agenda-files
(mapcar #'oni-org-expand-to-home
'("documents/gtd/todo.org"
"documents/gtd/projects.org"
"documents/gtd/appointments.org")))
(setq org-refile-targets
(mapcar (lambda (pair)
(cons (oni-org-expand-to-home (car pair))
(cdr pair)))
'(("documents/gtd/todo.org" :maxlevel . 1)
("documents/gtd/projects.org" :level . 2)
("documents/gtd/someday.org" :maxlevel . 2)
("documents/gtd/appointments.org" :maxlevel . 1))))
(setq org-capture-templates
`(("t" "Note" entry
(file ,(oni-org-expand-to-home "documents/gtd/inbox.org"))
"* TODO %i%?")
("a" "Appointment" entry
(file ,(oni-org-expand-to-home "documents/gtd/appointments.org"))
"* %i%?\n %U")
("j" "Journal entry" entry
(file+olp+datetree
,(oni-org-expand-to-home "documents/gtd/journal.org"))
"* %<%H:%M:%S>\n %?")))
(setq org-todo-keywords
'((sequence "TODO(t)" "BLOCKED(b@)" "PROGRESS(p)"
"|" "DONE(d!)" "CANCELLED(c@)")))
(add-to-list 'org-modules 'org-habit)
(add-hook 'org-mode-hook 'auto-fill-mode)
(unless (eq system-type 'windows-nt)
(require 'org-bullets)
(add-hook 'org-mode-hook 'org-bullets-mode)
(add-hook 'org-mode-hook #'oni-org-setup-prettify-symbols-mode))
(provide 'oni-org)
;;; oni-org.el ends here
|
