Screenshot of agenda: agenda is not shown in time

[Karl Voit <devnull@Karl-Voit.at>]

Hi!

I'd like to get a screenshot (PNG) of an agenda of mine by following
snippet:

(defun my-export-month-agenda-to-png-via-screenshot()
  (interactive)
  (org-agenda nil "n") ; generates agenda "n" (one month without todos)
  (if (my-buffer-exists "*Org Agenda*")
  (switch-to-buffer "*Org Agenda*")
    (org-agenda-list)
    )
  (message "Waiting for Screenshot ...")
  (sleep-for 1)
  (message "Say cheese ...")
  (setq myoutput
        (shell-command-to-string "/usr/bin/import -window root /home/vk/share/agenda.png"))
  (message (concat "Screenshot done (" myoutput ")"))
  )

The code works somewhat: the corresponding agenda is generated, a
screenshot (via imagemagick) is created. But: on the screenshot, I
see the buffer from where I invoked
my-export-month-agenda-to-png-via-screenshot in the first place and
in the minibuffer I can read "Say cheese ...".

Therefore it seems to be the case that basically the function
changes to the newly created Agenda buffer *after* the screenshot
and probably after the end of the function.

As you can see, I tried to change to the agenda buffer «manually»
via switch-to-buffer with no change of the result. I even tried to
get the result I am wishing for by adding a one-second sleep phase
which should cancel out any buffer-switch-performance-delay.

Can you help me, what is going on here?

-- 
mail|git|SVN|photos|postings|SMS|phonecalls|RSS|CSV|XML to Org-mode:
       > get Memacs from https://github.com/novoid/Memacs <

https://github.com/novoid/extract_pdf_annotations_to_orgmode + more on github