At Wed, 1 Apr 2009 13:18:09 +0200, Carsten Dominik wrote: > > Hi Erik, > > can you show > > - an example entry > - how it shows up in the agenda without your patch > - how it shows up with your patch > > so that I am better able to understand what you are trying > to achieve with this patch?
Hi Carsten - Of course, my apologies. I have a set of functions that download from remote ical files, then convert to diary entries. (attached, if anybody is interested). This results in some diary entries which look like, for example: x x x x x x x x 1/4/2009 All day event Description of all day event 1/4/2009 14:00-15:00 meeting A pretty long meeting description x x x x x x x x This creates fancy diary pages that look like: x x x x x x x x Wednesday, 1 April 2009: April Fools' Day ========================================== All day event Description of all day event 14:00-15:00 meeting A pretty long meeting description x x x x x x x x Without the patch, I get agendas that look like: x x x x x x x x Wednesday 1 April 2009 Diary: 14:00-15:00 meeting Diary: April Fools' Day Diary: All day event Diary: Description of all day event Diary: A pretty Diary: long meeting description x x x x x x x x As you can see, the descriptions of the events are all mixed up. With the patch, it removes any line from the fancy diary page that starts with a space, resulting in a more compact agenda: x x x x x x x x Wednesday 1 April 2009 Diary: 14:00-15:00 meeting Diary: April Fools' Day Diary: All day event x x x x x x x x I can then get full event descriptions by clicking on the agenda items. One problem that I noticed with this solution is that diary entries that begin with a space (Note the two spaces before ‘Do something every month’): x x x x x x x x %%(and (diary-date 1 t t) (diary-block 1 9 2006 1 1 9999)) Do something every month x x x x x x x x get displayed with a leading space in the diary display and thus get lost when transforming to an agenda. The icalendar library seems to create diary entries like this, a problem that I will have to track down. I hope that explains what I am trying to do. best, Erik Hetzner
;; icalendar -> diary code
(require 'icalendar)
(require 'url)
(defcustom egh:ical-diary-url-list
'()
"List of ICS urls and the diary files to convert them to. DIARY FILES WILL BE
OVERWRITTEN!"
:type '(repeat (cons string string)))
(defun egh:remote-ics-to-diary (url diary)
(let* ((ics-temp (make-temp-file "ical"))
(curl-args
(append (list "-o" ics-temp)
(list url))))
(apply 'call-process "curl" nil nil nil curl-args)
(with-temp-buffer
(insert-file-contents ics-temp)
(icalendar-import-buffer diary t))
(delete-file ics-temp)
(save-excursion
(find-file diary)
(save-buffer)
(kill-buffer nil))))
(defun egh:ical-import-all ()
(interactive)
(let ((fetch-and-process-ical-url
(lambda (entry)
(let* ((url (car entry))
(file (expand-file-name (cdr entry)))
(buff (get-file-buffer file)))
(if buff
(kill-buffer buff))
(if (file-exists-p file)
(delete-file file))
(egh:remote-ics-to-diary url file)))))
(mapc fetch-and-process-ical-url
egh:ical-diary-url-list)))
(add-hook 'diary-display-hook 'fancy-diary-display)
(add-hook 'list-diary-entries-hook 'include-other-diary-files)
(add-hook 'mark-diary-entries-hook 'mark-included-diary-files)
(setq midnight-mode t)
(add-hook 'midnight-hook 'egh:remote-ics-to-diary)
pgpusuQ2WoTqO.pgp
Description: PGP signature
_______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
