blob: 179c937366180f112849e5615937a8057638893a (
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
|
(require 'bard-calendar)
(setq org-directory "~/Notes/denote/")
;; symlinked file to shorten denote file name in agenda buffers
(setq org-agenda-files (list "~/Notes/denote/todo.org"))
;; Calendar
(use-package calendar-mode
:config
(setq calendar-holidays (append calendar-holidays russian-holidays))
:hook
(calendar-today-visible . calendar-mark-today)
(calendar-today-visible . calendar-mark-holidays))
;; Org todo keywords - changed to using hl-todo faces fixed by modus/ef themes
(setq org-todo-keywords
'((sequence "TODO(t)" "|" "DONE(d)" "KILLED(k)")
(sequence "MEET(m)" "|" "MET(M)")))
;;; Org Agenda
;; clock tables
(setq org-clock-clocktable-default-properties '(:maxlevel 7 :scope agenda)
org-clock-persist 'history
org-clock-mode-line-total 'current)
(org-clock-persistence-insinuate)
(use-package org
:demand t
:hook
((org-clock-out . bard/org-clock-update-mode-line)))
(global-set-key (kbd "M-<f1>") 'bard/choose-agenda)
(global-set-key (kbd "C-c a c") 'bard/choose-agenda)
(global-set-key (kbd "<f1>") 'bard/default-agenda)
(global-set-key (kbd "C-c a a") 'bard/default-agenda)
;; Org Agenda
(setq org-agenda-include-diary t)
(setq org-agenda-custom-commands
`(("D" "Daily agenda and top priority tasks"
((tags-todo "!TODO"
((org-agenda-overriding-header "Unscheduled Tasks \n")
(org-agenda-skip-function '(org-agenda-skip-entry-if 'timestamp))))
(tags-todo "+DEADLINE<>\"\""
((org-agenda-sorting-strategy '(deadline-up priority-down))
(org-agenda-overriding-header "Deadline Items")
(org-agenda-prefix-format " %i %-12:c%?-12t% s")
(org-agenda-format-date "%A %-e %B %Y")))
(agenda "" ((org-agenda-span 1)
(org-agenda-start-day nil)
(org-deadline-warning-days 0)
(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's agenda \n")))
(agenda "" ((org-agenda-span 8)
(org-calendar-holiday)
(org-deadline-warning-days 0)
(org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
(org-agenda-overriding-header "Upcoming this week \n")))))
("Y" "Yearly view for all tasks"
((agenda "" ((org-agenda-span 365)
(org-deadline-warning-days 2)
(org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
(org-agenda-overriding-header "Upcoming this Year\n")))))
("M" "Monthly view for all tasks"
((agenda "" ((org-agenda-span 31)
(org-deadline-warning-days 2)
(org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
(org-agenda-overriding-header "Upcoming this month\n")))))))
(use-package orthodox-christian-new-calendar-holidays
:ensure t
:config
(setq holiday-other-holidays (append holiday-other-holidays orthodox-christian-new-calendar-holidays))
(setq holiday-bahai-holidays nil
holiday-christian-holidays nil
holiday-islamic-holidays nil))
(provide 'bard-emacs-calendar)
|
