blob: af031841d10f07ba3488f143d62aed720f410eb5 (
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
|
(use-package org
:ensure t
:after evil
:commands (org-mode org-agenda org-store-link org-capture)
:mode (("\\.org$" . org-mode))
:hook ((org-mode . (lambda () (setq tab-width 4))))
:init
(setq org-src-tab-acts-natively t)
(evil-define-key 'normal 'global
(kbd "<leader>a") 'org-agenda
(kbd "<leader>l") 'org-store-link
(kbd "<leader>c") 'org-capture)
:config
(require 'org-tempo)
(setq org-directory "~/notes/")
(setq org-default-notes-file (concat org-directory "/inbox.org"))
(setq org-capture-templates
'(("t" "TODO" entry (file+headline org-default-notes-file "Tasks")
"* TODO %?\nCaptured on %U\n %i\n %a")
("j" "Journal" entry (file+datetree org-default-notes-file)
"* %?\nCaptured on %U\n %i\n %a")))
(add-hook 'org-mode-hook (lambda () (setq truncate-lines nil)))
(setq org-agenda-start-on-weekday 0)
(setq org-adapt-indentation nil)
(setq org-return-follows-link t)
(setq org-descriptive-links nil)
(evil-define-key 'normal org-mode-map
(kbd "TAB") 'org-cycle
(kbd "RET") 'org-open-at-point
(kbd "<leader>os") 'org-schedule
(kbd "<leader>od") 'org-deadline
(kbd "<leader>or") 'org-refile
(kbd "<leader>oil") 'org-insert-link
(kbd "<leader>oih") 'org-insert-heading)
(setq org-tags-exclude-from-inheritance
'("PROJECT"))
;; refile
(setq org-refile-targets '((nil :maxlevel . 9)
(org-agenda-files :maxlevel . 9))
org-outline-path-complete-in-steps nil
org-refile-use-outline-path 'file)
(setq org-stuck-projects
'("+PROJECT/-SOMEDAY-DONE-MAYBE" ("NEXT") ("@shop")
"\\<IGNORE\\>"))
;; todo
(setq org-todo-keywords
'((sequence "TODO(t)" ; to do later
"NEXT" ; doing now or to do soon
"WAITING(w)" "SOMEDAY(s)"
"|" "DONE(d)" "CANCELED(c)")))
(setq org-log-done t)
;; tags
(setq org-tag-alist '((:startgroup . nil)
("@work" . ?w) ("@home" . ?h) ("errants" . ?e)
(:endgroup . nil)
("phone" . ?p)
("FLAGGED" . ?f)
("URGENT" . ?u)
("PROJECT" . ?p)))
;; org babel
(org-babel-do-load-languages
'org-babel-load-languages
'((shell . t))))
(use-package org-agenda
:ensure nil
:after (org)
:commands (org-agenda)
:init
(setq org-agenda-dim-blocked-tasks nil)
(setq org-agenda-skip-deadline-prewarning-if-scheduled t)
(setq org-deadline-warning-days 10)
(setq org-agenda-compact-blocks t)
(setq org-agenda-custom-commands
'(("D" "Daily agenda and all TODOs"
((agenda "" ((org-agenda-span 1)))
(tags-todo "+PRIORITY=\"A\"")
(tags-todo "computer|@office|phone")
(tags "PROJECT+CATEGORY=\"elephants\"")
(todo "WAITING"))
((org-agenda-compact-blocks t)))
("W" "Weekly Review"
((agenda "" ((org-agenda-ndays-to-span 7)))
(stuck "") ; review stuck porjects as designated by org-stuck-projects
(todo "NEXT")
(todo "WAITING")))
("d" "Upcoming deadlines" agenda ""
((org-agenda-time-grid nil)
(org-deadline-warning-days 365)
(org-agenda-entry-types '(:deadline))))
("c" "Weekly schedule" agenda ""
((org-agenda-span 7)
(org-agenda-repeating-timestamp-show-all t)
(org-agenda-entry-types '(:deadline :scheduled))))
("g" . "GTD contexts")
("gh" "Home" tags-todo "home")
("p" . "Priorities")
("pa" "A items" tags-todo "+PRIORITIES=\"A\"")
("pb" "B items" tags-todo "+PRIORITIES=\"B\"")
("pc" "C items" tags-todo "+PRIORITIES=\"C\""))))
(use-package evil-org
:ensure t
:after (org evil)
:hook (org-mode . (lambda () (evil-org-mode)))
:config
(evil-org-set-key-theme '(navigation insert textobjects additional calendar todo))
(require 'evil-org-agenda)
(evil-org-agenda-set-keys)
(evil-define-key 'motion org-agenda-mode-map
(kbd "q") (lambda ()
(interactive)
(org-save-all-org-buffers)
(org-agenda-quit))))
(provide 'init-org-mode)
|
