byteio/nixos-config
1
0
Fork 0
mirror of https://github.com/librephoenix/nixos-config synced 2025-04-21 01:34:34 +05:30
Code Issues Packages Projects Releases Wiki Activity

I finally got agenda + syncthing to behave

Browse source
This commit is contained in:
Emmet 2023-10-25 20:48:30 -05:00
parent df4eeeb063
commit e1c7251a70
2 changed files with 48 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
user/app/doom-emacs/config.el
View file

@ -944,6 +944,30 @@ tasks."
;; Adds hook to org agenda mode, making follow mode active in org agenda ;; Adds hook to org agenda mode, making follow mode active in org agenda
(add-hook 'org-agenda-mode-hook 'org-agenda-open-hook) (add-hook 'org-agenda-mode-hook 'org-agenda-open-hook)
;; Auto updates agenda on syncthing changes
;; from https://www.reddit.com/r/orgmode/comments/mu6n5b/org_agenda_auto_updating/
(defadvice org-agenda-list (before refresh-org-agenda-on-revert activate)
(mapc (lambda (file)
(unless (verify-visited-file-modtime (get-file-buffer file))
(with-current-buffer (get-file-buffer file)
(when (eq major-mode 'org-mode)
(revert-buffer nil 'noconfirm)))))
(org-agenda-files)))
(defadvice org-agenda-redo (before refresh-org-agenda-on-revert activate)
(mapc (lambda (file)
(unless (verify-visited-file-modtime (get-file-buffer file))
(with-current-buffer (get-file-buffer file)
(when (eq major-mode 'org-mode)
(revert-buffer nil 'noconfirm)))))
(org-agenda-files)))
(defadvice org-agenda-redo-all (before refresh-org-agenda-on-revert activate)
(mapc (lambda (file)
(unless (verify-visited-file-modtime (get-file-buffer file))
(with-current-buffer (get-file-buffer file)
(when (eq major-mode 'org-mode)
(revert-buffer nil 'noconfirm)))))
(org-agenda-files)))
;; Function to list all my available org agenda files and switch to them ;; Function to list all my available org agenda files and switch to them
(defun list-and-switch-to-agenda-file () (defun list-and-switch-to-agenda-file ()
"Lists all available agenda files and switches to desired one" "Lists all available agenda files and switches to desired one"

24
user/app/doom-emacs/doom.org
View file

@ -1097,6 +1097,30 @@ On Wayland, EAF doesn't work.
;; Adds hook to org agenda mode, making follow mode active in org agenda ;; Adds hook to org agenda mode, making follow mode active in org agenda
(add-hook 'org-agenda-mode-hook 'org-agenda-open-hook) (add-hook 'org-agenda-mode-hook 'org-agenda-open-hook)
;; Auto updates agenda on syncthing changes
;; from https://www.reddit.com/r/orgmode/comments/mu6n5b/org_agenda_auto_updating/
(defadvice org-agenda-list (before refresh-org-agenda-on-revert activate)
(mapc (lambda (file)
(unless (verify-visited-file-modtime (get-file-buffer file))
(with-current-buffer (get-file-buffer file)
(when (eq major-mode 'org-mode)
(revert-buffer nil 'noconfirm)))))
(org-agenda-files)))
(defadvice org-agenda-redo (before refresh-org-agenda-on-revert activate)
(mapc (lambda (file)
(unless (verify-visited-file-modtime (get-file-buffer file))
(with-current-buffer (get-file-buffer file)
(when (eq major-mode 'org-mode)
(revert-buffer nil 'noconfirm)))))
(org-agenda-files)))
(defadvice org-agenda-redo-all (before refresh-org-agenda-on-revert activate)
(mapc (lambda (file)
(unless (verify-visited-file-modtime (get-file-buffer file))
(with-current-buffer (get-file-buffer file)
(when (eq major-mode 'org-mode)
(revert-buffer nil 'noconfirm)))))
(org-agenda-files)))
#+END_SRC #+END_SRC
*** Org Agenda Convenience Functions *** Org Agenda Convenience Functions
#+BEGIN_SRC emacs-lisp :tangle config.el #+BEGIN_SRC emacs-lisp :tangle config.el