emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Help debugging a problem when saving org-agenda files with C-x s
@ 2009-05-13  6:12 Tassilo Horn
  2009-05-13  8:55 ` Tassilo Horn
  2009-05-14 14:17 ` Carsten Dominik
  0 siblings, 2 replies; 7+ messages in thread
From: Tassilo Horn @ 2009-05-13  6:12 UTC (permalink / raw)
  To: emacs-orgmode

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:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (error "Agenda file /home/horn/repos/org/uni.org is not in `org-mode'")
  signal(error ("Agenda file /home/horn/repos/org/uni.org is not in `org-mode'"))
  error("Agenda file %s is not in `org-mode'" "/home/horn/repos/org/uni.org")
  org-agenda-get-day-entries("/home/horn/repos/org/uni.org" (5 11 2009) :deadline :scheduled :sexp :timestamp)
  byte-code("...")
  org-agenda-list()
  (let ((file "/tmp/org-agenda.txt")) (org-agenda-list) (org-write-agenda file))
  (save-window-excursion (let (...) (org-agenda-list) (org-write-agenda file)))
  (save-excursion (save-window-excursion (let ... ... ...)))
  (progn (save-excursion (save-window-excursion ...)))
  (if (and (eq major-mode ...) (member buffer-file-name org-agenda-files)) (progn (save-excursion ...)))
  (when (and (eq major-mode ...) (member buffer-file-name org-agenda-files)) (save-excursion (save-window-excursion ...)))
  th-org-update-agenda-file()
  run-hooks(after-save-hook)
  basic-save-buffer()
  save-buffer()
  #[(buffer) "rq. )" [buffer save-buffer] 1](#<buffer uni.org>)
  map-y-or-n-p(#[(buffer) ".!V.!..."])
  byte-code("...")
  save-some-buffers(nil)
  call-interactively(save-some-buffers nil nil)
--8<---------------cut here---------------end--------------->8---

I'm not sure what's the problem here.  /home/horn/repos/org/uni.org is
surely in org-mode!

Any help on that?

Bye,
Tassilo

^ permalink raw reply	[flat|nested] 7+ messages in thread

end of thread, other threads:[~2009-05-16 17:40 UTC | newest]

Thread overview: 7+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2009-05-13  6:12 Help debugging a problem when saving org-agenda files with C-x s Tassilo Horn
2009-05-13  8:55 ` Tassilo Horn
2009-05-14 14:17 ` Carsten Dominik
2009-05-14 16:43   ` Tassilo Horn
2009-05-14 17:28     ` Carsten Dominik
2009-05-14 18:41       ` Tassilo Horn
2009-05-16 15:14         ` Carsten Dominik

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).