blob: f0bef3f05848e50b0b45f8edd7db2d62ce6337af (
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
|
;;; -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(defvar-local agenda-file "~/dc/agenda/agenda_tasks.org")
(use-package visual-fill-column
:hook (org-mode . visual-fill-column-mode)
:custom
(visual-fill-column-center-text t)
(visual-fill-column-width 120))
(defun bd/org-mode-setup-hook ()
"Sets up improved org-mode defaults upon
each org file open."
(org-indent-mode)
(org-toggle-inline-images)
(org-latex-preview '(16)))
;;;; hooks
(add-hook 'org-mode-hook 'bd/org-mode-setup-hook)
;;;; binds
(keymap-global-set "C-c n a" 'org-agenda)
(keymap-global-set "C-c n c" 'org-capture)
(keymap-global-set "C-c n s" 'org-schedule)
(keymap-global-set "C-c n d" 'org-deadline)
(keymap-global-set "C-c n r" 'org-refile)
;;;; source blocks
(org-babel-do-load-languages
'org-babel-load-languages
'((emacs-lisp . t)
(shell . t)
(lisp . t)
(scheme . t)
(dot . t)))
;;;; standard
(setopt org-startup-folded 'show2levels
org-ellipsis " ▾")
;;;; export
(setopt org-export-with-toc nil
org-export-preserve-breaks t)
;;;; agenda
(advice-add 'org-refile :after 'org-save-all-org-buffers) ; after refiling tasks, save all buffers
(setopt org-agenda-files
`(,agenda-file "~/dc/agenda/archived_tasks.org")
org-deadline-warning-days 7
org-log-done 'time
org-log-into-drawer "history"
org-todo-keywords
'((sequence "TODO(t)" "NEXT(n!)" "HOLD(h!)" "|" "DONE(d)" "CANC(c)"))
org-refile-targets ; refile into the headings of these files, not tags
'(("archived_tasks.org" :maxlevel . 1)
("agenda_tasks.org" :maxlevel . 1))
org-capture-templates
`(("c" " College")
("cs" "Software Engineering Theory" entry (file+olp ,agenda-file "CS520")
"* TODO %?\n DEADLINE: %^t")
("cm" "Combinatorics/Graph Theory" entry (file+olp ,agenda-file "CS575")
"* TODO %?\n DEADLINE: %^t")
("cc" "Compiler Techniques" entry (file+olp ,agenda-file "CS610")
"* TODO %?\n DEADLINE: %^t")
("s" " Self")
("si" "Idea" entry (file+olp ,agenda-file "Idea / Return")
"* TODO %?\n %u")
("sc" "Context" entry (file+olp ,agenda-file "Idea / Return")
"* TODO %?\n %a")
("st" "Deadline" entry (file+olp ,agenda-file "Deadline")
"* TODO %?\n DEADLINE: %^t")
("sb" "Book" entry (file+olp ,agenda-file "Book List")
"* TODO %?\n %u"))
org-agenda-custom-commands
'(("S" "Standard Block Agenda"
((tags-todo "*"
((org-agenda-skip-function '(org-agenda-skip-if nil '(timestamp)))
(org-agenda-block-separator nil)
(org-agenda-skip-function '(org-agenda-skip-entry-if 'todo '("HOLD")))
(org-agenda-overriding-header "Undated Tasks\n")))
(agenda "" ((org-agenda-span 8)
(org-deadline-warning-days 0)
(org-agenda-block-separator nil)
(org-scheduled-past-days 4)
(org-agenda-skip-function '(org-agenda-skip-entry-if 'todo '("HOLD")))
(org-agenda-overriding-header "\nUpcoming Tasks\n")))
(agenda "" ((org-agenda-time-grid nil)
(org-agenda-show-all-dates nil)
(org-agenda-span 21)
(org-deadline-warning-days 0)
(org-agenda-block-separator nil)
(org-agenda-entry-types '(:deadline))
(org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
(org-agenda-overriding-header "\nFuture Deadlines (+21d)\n"))))))
org-agenda-restore-windows-after-quit t)
(provide 'bd--org)
;;; bd-org ends here
|
