|
|
|
@ -2,8 +2,10 @@
|
|
|
|
|
(if (isworkday)
|
|
|
|
|
(if (< (string-to-number (format-time-string "%H")) 18)
|
|
|
|
|
(if (> (string-to-number (format-time-string "%H")) 7)
|
|
|
|
|
(setq org-agenda-files (list "~/Documents/drive/org/calendar/admin.org" "~/Documents/drive/org/calendar/home.org" "~/Documents/drive/org/calendar/music.org" "~/Documents/drive/org/calendar/work.org")))
|
|
|
|
|
(setq org-agenda-files (list "~/Documents/drive/org/calendar/admin.org" "~/Documents/drive/org/calendar/home.org" "~/Documents/drive/org/calendar/music.org" "~/Documents/drive/org/calendar/personal.org"))))
|
|
|
|
|
(setq org-agenda-files (list "~/Documents/drive/org/calendar/admin.org" "~/Documents/drive/org/calendar/home.org" "~/Documents/drive/org/calendar/music.org" "~/Documents/drive/org/calendar/work.org"))
|
|
|
|
|
(setq org-agenda-files (list "~/Documents/drive/org/calendar/admin.org" "~/Documents/drive/org/calendar/home.org" "~/Documents/drive/org/calendar/music.org" "~/Documents/drive/org/calendar/personal.org")))
|
|
|
|
|
(setq org-agenda-files (list "~/Documents/drive/org/calendar/admin.org" "~/Documents/drive/org/calendar/home.org" "~/Documents/drive/org/calendar/music.org" "~/Documents/drive/org/calendar/personal.org")))
|
|
|
|
|
(setq org-agenda-files (list "~/Documents/drive/org/calendar/admin.org" "~/Documents/drive/org/calendar/home.org" "~/Documents/drive/org/calendar/music.org" "~/Documents/drive/org/calendar/personal.org")))
|
|
|
|
|
(setq org-agenda-prefix-format '((agenda . "%?-12t%s")))
|
|
|
|
|
(setq org-deadline-warning-days 0)
|
|
|
|
|
(load-file "~/.emacs.d/agenda-common.el")
|
|
|
|
|