Hi all,
I use an own function to save the current agenta to a text file,
which I
display in a tooltip on my desktop:
--8<---------------cut here---------------start------------->8---
(defun th-org-mode-init ()
(add-hook 'after-save-hook 'th-org-update-agenda-file t t))
(add-hook 'org-mode-hook 'th-org-mode-init)
;; TODO: This errors when calling C-x s after modifying things in
the agenda.
(defun th-org-update-agenda-file (&optional force)
(interactive)
(when (and (eq major-mode 'org-mode)
(member buffer-file-name org-agenda-files))
(save-excursion
(save-window-excursion
(let ((file "/tmp/org-agenda.txt"))
(org-agenda-list)
(org-write-agenda file))))))
--8<---------------cut here---------------end--------------->8---
This works fine when I save an agenda file while in its buffer, but
when
I edit the file via agenda commands and hit `C-x s', I'm asked if I
want
to save "/home/horn/repos/org/uni.org" and say yes, I get this error: