18h is too early

2 years ago · 0f1aec0d57
parent b7cb65404a
commit 0f1aec0d57
2 changed files with 3 additions and 3 deletions
--- a/agenda.el
+++ b/agenda.el
@ -1,11 +1,11 @@
 (load-file "~/.emacs.d/custom/workday.el")
 (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)
            (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)
+;; (setq org-deadline-warning-days 0)
 (load-file "~/.emacs.d/agenda-common.el")
--- a/config.org
+++ b/config.org
@ -603,7 +603,7 @@ Set the files to be included.
    (progn
      (add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/home.org")
      (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)
                  (progn
                    (add-to-list 'org-agenda-files "~/Documents/drive/org/calendar/work.org")