Quickly dump org weekly report

This commit is contained in:
Benson Chu 2023-07-13 17:26:25 -05:00
parent 3d949c65c5
commit c5bc08011d

View file

@ -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