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
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
|
;;; org-config --- Settings and Enhancements to Org Mode -*- lexical-binding: t; coding: utf-8; -*-
;; author Craig Jennings <c@cjennings.net>
;;; Commentary:
;; note: org-archive-location is set in the :config section after org loads
;;; Code:
;; ---------------------------------- Org Mode ---------------------------------
(use-package org
:defer t
:ensure nil ;; use the built-in package
:pin manual ;; never upgrade from the version built-into Emacs
:init
(defvar-keymap cj/org-table-map
:doc "org table operations.")
(keymap-global-set "C-c t" cj/org-table-map)
:bind
("C-c c" . org-capture)
("C-c a" . org-agenda)
(:map org-mode-map
("C-c I" . org-table-field-info) ;; was C-c ?
("C-\\" . org-match-sparse-tree)
("C-c t" . org-set-tags-command)
("C-c l" . org-store-link)
("C-c C-l" . org-insert-link)
("s-<up>" . org-priority-up)
("s-<down>" . org-priority-down)
("C-c N" . org-narrow-to-subtree)
("C-c >" . cj/org-narrow-forward)
("C-c <" . cj/org-narrow-backwards)
("<f5>" . org-reveal)
("C-c <ESC>" . widen))
(:map cj/org-table-map
("r i" . org-table-insert-row)
("r d" . org-table-kill-row)
("c i" . org-table-insert-column)
("c d" . org-table-delete-column))
;; backward and forward day are ',' and '.'
;; shift & meta moves by week or year
;; C-. jumps to today
;; original keybindings blocked by windmove keys
;; these are consistent with plain-old calendar mode
(:map org-read-date-minibuffer-local-map
("," . (lambda () (interactive)
(org-eval-in-calendar '(calendar-backward-day 1))))
("." . (lambda () (interactive)
(org-eval-in-calendar '(calendar-forward-day 1))))
("<" . (lambda () (interactive)
(org-eval-in-calendar '(calendar-backward-month 1))))
(">" . (lambda () (interactive)
(org-eval-in-calendar '(calendar-forward-month 1))))
("M-," . (lambda () (interactive)
(org-eval-in-calendar '(calendar-backward-year 1))))
("M-." . (lambda () (interactive)
(org-eval-in-calendar '(calendar-forward-year 1)))))
:init
;; windmove's keybindings conflict with org-agenda-todo-nextset/previousset keybindings
;; solution: map the super key so that
;; - super up/down increases and decreases the priority
;; - super left/right changes the todo state
(setq org-replace-disputed-keys t)
(setq org-disputed-keys
'(([(shift left)] . [(super left)])
([(shift right)] . [(super right)])
([(shift up)] . [(super up)])
([(shift down)] . [(super down)])
([(control shift right)] . [(meta shift +)])
([(control shift left)] . [(meta shift -)])))
(defun cj/org-narrow-forward ()
"Narrow to the next subtree at the same level."
(interactive)
(widen)
(org-forward-heading-same-level 1)
(org-narrow-to-subtree))
(defun cj/org-narrow-backwards ()
"Narrow to the previous subtree at the same level."
(interactive)
(widen)
(org-backward-heading-same-level 1)
(org-narrow-to-subtree))
:hook
(org-mode . turn-on-visual-line-mode)
(org-mode . (lambda () (setq-local tab-width 8)))
:config
;; Load org-protocol for org-protocol:// URL handling
(require 'org-protocol nil t)
;; Set archive location (must be done after org loads)
(setq org-archive-location
(concat org-dir "/archives/archive.org::datetree/"))
(cj/org-general-settings)
(cj/org-appearance-settings)
(cj/org-todo-settings))
;; ---------------------------- Org General Settings ---------------------------
(defun cj/org-general-settings ()
"All general `org-mode' settings are grouped and set in this function."
;; Unbind org-cycle-agenda-files keys for use elsewhere
(keymap-unset org-mode-map "C-'" t)
(keymap-unset org-mode-map "C-," t)
;; ORG-MODULES
;; enable recognition of org-protocol:// as a parameter
(setq org-modules '(org-protocol ol-eww ol-w3m ol-info))
;; GENERAL
(setq org-startup-folded t) ;; all org files should start in the folded state
(setq org-cycle-open-archived-trees t) ;; re-enable opening headings with archive tags with TAB
(setopt org-outline-path-complete-in-steps nil)
(setq org-return-follows-link t) ;; hit return to follow an org-link
(setq org-list-allow-alphabetical t) ;; allow alpha ordered lists (i.e., a), A), a., etc.)
;; INDENTATION
(setq org-startup-indented t) ;; load org files indented
(setq org-adapt-indentation t) ;; adapt indentation to outline node level
;; TASK: this variable doesn't exist. Remove
;; (setq org-indent-indentation-per-level 2) ;; indent two character-widths per level
;; IMAGES / MEDIA
(setq org-startup-with-inline-images t) ;; preview images by default
(setq org-image-actual-width '(500)) ;; keep image sizes in check
(setq org-yank-image-save-method 'attach) ;; attach images; save to data directory
(setq org-bookmark-names-plist nil) ;; don't set org-capture bookmarks
;; make org-store-link binding global
(keymap-global-set "C-c l" #'org-store-link)
;; force pdfs exported from org to open in emacs
(add-to-list 'org-file-apps '("\\.pdf\\'" . emacs)))
;; -------------------------- Org Appearance Settings --------------------------
(defun cj/org-appearance-settings()
"Set foreground, background, and font styles for org mode."
(interactive)
;; org-hide should use fix-pitch to align indents for proportional fonts
(set-face-attribute 'org-hide nil :inherit 'fixed-pitch)
(set-face-attribute 'org-meta-line nil :inherit 'shadow)
;; Remove foreground and background from block faces
(set-face-attribute 'org-block nil :foreground 'unspecified :background 'unspecified)
(set-face-attribute 'org-block-begin-line nil :foreground 'unspecified :background 'unspecified)
(set-face-attribute 'org-block-end-line nil :foreground 'unspecified :background 'unspecified)
;; Get rid of the background on column views
(set-face-attribute 'org-column nil :background 'unspecified)
(set-face-attribute 'org-column-title nil :background 'unspecified)
;; make sure org-links are underlined
(set-face-attribute 'org-link nil :underline t)
(setq org-ellipsis " ▾") ;; change ellipses to down arrow
(setq org-hide-emphasis-markers t) ;; remove emphasis markers to keep the screen clean
(setq org-hide-leading-stars t) ;; hide leading stars, just show one per line
(setq org-pretty-entities t) ;; render special symbols
(setq org-pretty-entities-include-sub-superscripts nil) ;; ...except superscripts and subscripts
(setq org-fontify-emphasized-text nil) ;; ...and don't render bold and italic markup
(setq org-fontify-whole-heading-line t) ;; fontify the whole line for headings (for face-backgrounds)
(add-hook 'org-mode-hook 'prettify-symbols-mode))
;; ----------------------------- Org TODO Settings ---------------------------
(defun cj/org-todo-settings ()
"All org-todo related settings are grouped and set in this function."
;; logging task creation, task start, and task resolved states
(setq org-todo-keywords '((sequence "TODO(t)" "PROJECT(p)" "DOING(i)"
"WAITING(w)" "VERIFY(v)" "STALLED(s)"
"DELEGATED(x)" "|"
"FAILED(f!)" "DONE(d!)" "CANCELLED(c!)")))
(setq org-todo-keyword-faces
'(("TODO" . "green")
("PROJECT" . "blue")
("DOING" . "yellow")
("WAITING" . "white")
("VERIFY" . "orange")
("STALLED" . "light blue")
("DELEGATED" . "green")
("FAILED" . "red")
("DONE" . "dark grey")
("CANCELLED" . "dark grey")))
(setq org-highest-priority ?A)
(setq org-lowest-priority ?D)
(setq org-default-priority ?D)
(setq org-priority-faces '((?A . (:foreground "Cyan" :weight bold))
(?B . (:foreground "Yellow"))
(?C . (:foreground "Green"))
(?D . (:foreground "Grey"))))
(setq org-enforce-todo-dependencies t)
(setq org-enforce-todo-checkbox-dependencies t)
(setq org-deadline-warning-days 7) ;; warn me w/in a week of deadlines
(setq org-treat-insert-todo-heading-as-state-change nil) ;; log task creation
(setq org-log-into-drawer nil) ;; don't log into drawer
(setq org-log-done nil) ;; don't log completions
;; inherit parents properties (sadly not schedules or deadlines)
(setq org-use-property-inheritance t))
;; ------------------------------- Org Superstar -------------------------------
(use-package org-superstar
:after org
:hook (org-mode . org-superstar-mode)
:config
(org-superstar-configure-like-org-bullets)
(setq org-superstar-leading-bullet ?\s))
;; ------------------------------- Org-Checklist -------------------------------
;; needed for org-habits to reset checklists once task is complete
;; this was a part of org-contrib which was deprecated
(use-package org-checklist
:ensure nil ;; in custom folder
:load-path "custom"
:after org)
;; -------------------------- Org Link To Current File -------------------------
(defun cj/org-link-to-current-buffer-file ()
"Create an Org mode link to the current file and copy it to the clipboard.
The link is formatted as [[file:<file-path>][<file-name>]], where <file-path>
is the full path to the current file and <file-name> is the name of the current
file without any directory information. If the current buffer is not associated
with a file, the function will throw an error."
(interactive)
(if (buffer-file-name)
(let* ((filename (buffer-file-name))
(description (file-name-nondirectory filename))
(link (format "[[file:%s][%s]]" filename description)))
(kill-new link)
(message "Copied Org link to current file to clipboard: %s" link))
(user-error "Buffer isn't associated with a file, so no link sent to clipboard")))
(provide 'org-config)
;;; org-config.el ends here
|
