From b854eb34899357bf4bd5577ae1f62568cb2dbea0 Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Tue, 4 Nov 2025 10:20:24 -0600 Subject: [PATCH] Windows Servers diary --- lisp/ti-config/work-org-stuff.el | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/ti-config/work-org-stuff.el b/lisp/ti-config/work-org-stuff.el index e70ae48..61aa8e2 100644 --- a/lisp/ti-config/work-org-stuff.el +++ b/lisp/ti-config/work-org-stuff.el @@ -259,9 +259,21 @@ (setq org-agenda-span 'day) +(defun days-since (date) + (let ((target-date (date-to-time date)) + (current-date (current-time))) + (ceiling + (time-to-number-of-days + (time-subtract current-date target-date))))) + (setq org-agenda-custom-commands `(("p" . "\tprod") - ,@(agenda-suite "all" "pa" "prod"))) + ,@(agenda-suite "all" "pa" "prod") + ("w" "\tWindows Diary" + ((agenda "" + ((org-agenda-start-day "2025-10-29") + (org-agenda-start-on-weekday 3) + (org-agenda-span (days-since "2025-10-29")))))))) (setq org-outline-path-complete-in-steps nil) (setq org-refile-use-outline-path t)