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

Move to generic org mode config

Browse source
This commit is contained in:
Benson Chu 2024-07-13 10:04:01 -05:00
parent 353c55c3d7
commit ac3b5e36c4
2 changed files with 39 additions and 39 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
lisp/org-config/my-org-misc.el
View file

@ -219,5 +219,44 @@
(setq org-confirm-babel-evaluate nil)
(use-package htmlize)
(defun my/org-agenda-save ()
(interactive)
(save-window-excursion
(my/switch-themes)
(unwind-protect
(progn
(let ((accept nil)
(width 100))
(while (not accept)
(let ((ignore-window-parameters t)
(window--sides-check t))
(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)))))
(let ((org-agenda-buffer-name (buffer-name)))
(-->
"%Y-%m-%d-agenda.html"
(format-time-string it)
(expand-file-name it "~/")
(org-agenda-write it nil nil (buffer-file-name)))
(-->
"agenda.html"
(expand-file-name it "~/")
(org-agenda-write it nil nil (buffer-file-name)))))
(my/switch-themes))))
(defun org-agenda-dump-for-meeting ()
(interactive)
(switch-or-create-tab "org-agenda-dump")
(save-window-excursion
(org-agenda nil "paw"))
(my/org-agenda-save)
(close-tab-switch))
(provide 'my-org-misc)
;;; my-org-misc.el ends here

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

@ -697,45 +697,6 @@
(and symbol-start "_" (+ nonl) "_" symbol-end)
"Project" "active")))
(defun my/org-agenda-save ()
(interactive)
(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)
(switch-or-create-tab "org-agenda-dump")
(let ((ignore-window-parameters t)
(window--sides-check t))
(delete-other-windows))
(save-window-excursion
(org-agenda nil "paw"))
(split-window-horizontally)
(org-agenda-redo-all)
(my/org-agenda-save)
(close-tab-switch))
(defun ti/generate-org-exit-interrupt ()
(-->
'(