-
Notifications
You must be signed in to change notification settings - Fork 2
/
agenda.el
111 lines (106 loc) · 5.17 KB
/
agenda.el
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
;; Timesheets
(setq org-clock-persist 'history)
(org-clock-persistence-insinuate)
;; Agenda files
(setq org-agenda-files (quote ("~/.emacs.d/agenda.org")))
;; Do not dim blocked tasks
(setq org-agenda-dim-blocked-tasks nil)
;; Do not compact the block agenda view
(setq org-agenda-compact-blocks nil)
;; Show time spent in columns
(setq org-columns-default-format "%50ITEM(Task) %10CLOCKSUM %16TIMESTAMP_IA")
;; Custom views
(setq org-agenda-custom-commands
'((" " "Agenda"
((agenda "" ((org-agenda-span 1)
(org-deadline-warning-days 0)
(org-agenda-block-separator nil)
(org-scheduled-past-days 0)
(org-agenda-day-face-function (lambda (date) 'org-agenda-date))
(org-agenda-format-date "%A %-e %B %Y")
(org-agenda-skip-scheduled-if-done t)
(org-agenda-skip-timestamp-if-done t)
(org-agenda-skip-deadline-if-done t)
(org-agenda-overriding-header "Today's agenda\n")))
(agenda "" ((org-agenda-start-on-weekday nil)
(org-agenda-start-day "+1d")
(org-agenda-span 30)
(org-deadline-warning-days 0)
(org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
(org-agenda-overriding-header "\nNext 20 days\n")))
(agenda "" ((org-agenda-time-grid nil)
(org-agenda-start-on-weekday nil)
;; We don't want to replicate the previous section's
;; five days, so we start counting from the day after.
(org-agenda-start-day "+6d")
(org-agenda-span 90)
(org-agenda-show-all-dates nil)
(org-deadline-warning-days 0)
(org-agenda-entry-types '(:deadline))
(org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
(org-agenda-overriding-header "\nUpcoming deadlines (+90d)\n")))
(todo "TODO" ((org-agenda-skip-function
'(org-agenda-skip-entry-if 'scheduled 'deadline))
(org-agenda-skip-scheduled-if-done t)
(org-agenda-overriding-header "\nNext\n")))
(todo "LATER" ((org-agenda-overriding-header "\nLATER\n")))))
("c" "Class Schedule"
((agenda "" ((org-agenda-span 7)
(org-agenda-start-on-weekday 1)
(org-agenda-block-separator nil)
(org-deadline-warning-days 0)
(org-agenda-block-separator nil)
(org-scheduled-past-days 0)
(org-agenda-category-filter-preset (quote ("+CLASS")))
(org-agenda-day-face-function (lambda (date) 'org-agenda-date))
(org-agenda-overriding-header "This week's Classes\n")))))
("t" "Global Todo"
((todo "*" ((org-agenda-skip-function
'(org-agenda-skip-entry-if 'todo '("MEETING" "CANCELLED" "DONE")))
(org-agenda-overriding-header "\nGLOBAL TODO\n")))))
("s" "Timesheets"
((agenda "" ((org-agenda-span 1)
(org-agenda-clockreport-mode t)
(org-agenda-time-grid nil)
(org-deadline-warning-days 0)
(org-agenda-block-separator nil)
(org-scheduled-past-days 0)
(org-agenda-day-face-function (lambda (date) 'org-agenda-date))
(org-agenda-format-date "%A %-e %B %Y")
(org-agenda-overriding-header "Today\n")))
(agenda "" ((org-agenda-span 1)
(org-agenda-clockreport-mode t)
(org-agenda-time-grid nil)
(org-deadline-warning-days 0)
(org-agenda-start-day "-1d")
(org-scheduled-past-days 0)
(org-agenda-day-face-function (lambda (date) 'org-agenda-date))
(org-agenda-format-date "%A %-e %B %Y")
(org-agenda-overriding-header "Yesterday\n")))
(agenda "" ((org-agenda-span 7)
(org-agenda-clockreport-mode t)
(org-agenda-time-grid nil)
(org-deadline-warning-days 0)
(org-agenda-start-day "-7d")
(org-scheduled-past-days 0)
(org-agenda-day-face-function (lambda (date) 'org-agenda-date))
(org-agenda-format-date "%A %-e %B %Y")
(org-agenda-overriding-header "Last 7d\n")))
(agenda "" ((org-agenda-span 14)
(org-agenda-clockreport-mode t)
(org-agenda-time-grid nil)
(org-deadline-warning-days 0)
(org-agenda-start-day "-14d")
(org-scheduled-past-days 0)
(org-agenda-day-face-function (lambda (date) 'org-agenda-date))
(org-agenda-format-date "%A %-e %B %Y")
(org-agenda-overriding-header "Last 14d\n")))
(agenda "" ((org-agenda-span 30)
(org-agenda-time-grid nil)
(org-agenda-clockreport-mode t)
(org-deadline-warning-days 0)
(org-agenda-start-day "-30d")
(org-scheduled-past-days 0)
(org-agenda-day-face-function (lambda (date) 'org-agenda-date))
(org-agenda-format-date "%A %-e %B %Y")
(org-agenda-overriding-header "Last 30d\n")))))))