pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Org agenda export

Browse source
This commit is contained in:
Benson Chu 2024-07-12 20:45:00 -05:00
parent a5e06c331f
commit 353c55c3d7
1 changed files with 25 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
lisp/ti-config/work-org-stuff.el
View file

@ -694,21 +694,34 @@
(setq org-agenda-hide-tags-regexp
(rx (or "prod"
(and symbol-start "_" (+ nonl) "_" symbol-end))))
(and symbol-start "_" (+ nonl) "_" symbol-end)
"Project" "active")))
(defun my/org-agenda-save ()
(interactive)
(my/switch-themes)
(-->
"%Y-%m-%d-agenda.html"
(format-time-string it)
(expand-file-name it "~/")
(org-agenda-write it))
(-->
"agenda.html"
(expand-file-name it "~/")
(org-agenda-write it))
(my/switch-themes))
(save-window-excursion
(my/switch-themes)
(unwind-protect
(progn
(let ((accept nil)
(width 100))
(while (not accept)
(delete-other-windows)
(split-window-horizontally 100)
(org-agenda-redo-all)
(setq accept (y-or-n-p "Looks good? ")
width (if accept width
(read-number "Width? " 100)))))
(-->
"%Y-%m-%d-agenda.html"
(format-time-string it)
(expand-file-name it "~/")
(org-agenda-write it))
(-->
"agenda.html"
(expand-file-name it "~/")
(org-agenda-write it))))
(my/switch-themes)))
(defun org-agenda-dump-for-meeting ()
(interactive)