18h is too early

master
trémeur 2 years ago
parent b7cb65404a
commit 0f1aec0d57

@ -1,11 +1,11 @@
(load-file "~/.emacs.d/custom/workday.el") (load-file "~/.emacs.d/custom/workday.el")
(if (isworkday) (if (isworkday)
(if (< (string-to-number (format-time-string "%H")) 18) (if (< (string-to-number (format-time-string "%H")) 19)
(if (> (string-to-number (format-time-string "%H")) 7) (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/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-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-agenda-prefix-format '((agenda . "%?-12t%s")))
(setq org-deadline-warning-days 0) ;; (setq org-deadline-warning-days 0)
(load-file "~/.emacs.d/agenda-common.el") (load-file "~/.emacs.d/agenda-common.el")

@ -603,7 +603,7 @@ Set the files to be included.
(progn (progn
(add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/home.org") (add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/home.org")
(if (isworkday) (if (isworkday)
(if (< (string-to-number (format-time-string "%H")) 18) (if (< (string-to-number (format-time-string "%H")) 19)
(if (> (string-to-number (format-time-string "%H")) 7) (if (> (string-to-number (format-time-string "%H")) 7)
(progn (progn
(add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/work.org") (add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/work.org")

Loading…
Cancel
Save