From c5bc08011d85a3e1c791520f4dc85cdd9553e59a Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Thu, 13 Jul 2023 17:26:25 -0500 Subject: [PATCH] Quickly dump org weekly report --- lisp/ti-config/work-org-stuff.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/lisp/ti-config/work-org-stuff.el b/lisp/ti-config/work-org-stuff.el index 1b16397..8c0d57f 100644 --- a/lisp/ti-config/work-org-stuff.el +++ b/lisp/ti-config/work-org-stuff.el @@ -553,5 +553,21 @@ (rx (or "prod" (and symbol-start "_" (+ nonl) "_" symbol-end)))) +(defun org-agenda-dump-for-meeting () + (interactive) + (switch-or-create-tab "org-agenda-dump") + (let ((ignore-window-parameters t) + (window--sides-check t)) + (delete-other-windows)) + (split-window-horizontally) + (org-agenda nil "paw") + (my/switch-themes) + (--> + "%Y-%m-%d-agenda.html" + (format-time-string it) + (expand-file-name it "~/") + (org-agenda-write it)) + (my/switch-themes)) + (provide 'work-org-stuff) ;;; work-org-stuff.el ends here