mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-07 15:22:06 +00:00
Code

org-mac-iCal.el: work with calendar "groups"

Browse Source 
Doug Hellmann writes:

> Some calendar systems (Google, Zimbra) handle subscriptions to
> multiple calendars (or to an account) by grouping them under a single
> caldav directory in the calendar tree.  org-mac-iCal assumes there is
> only one ics file created per caldav directory, so while it *creates*
> all of the needed merged ics files, it only copies one of them to
> ~/Library/Calendar before importing the contents into the diary.
This commit is contained in:
Carsten Dominik 2009-11-02 22:12:46 +01:00
parent 5b65dc2bdf
commit cfcc99c789
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
contrib/lisp/org-mac-iCal.el
View File

@ -96,17 +96,20 @@ the the Emacs diary"
(omi-checked x))
all-calendars)))
;; for each caledar, concatenate individual events into a single ics file
;; for each calendar, concatenate individual events into a single ics file
(with-temp-buffer
(shell-command "sw_vers" " *temp*")
(when (re-search-backward "10.5" nil t)
(omi-concat-leopard-ics all-calendars)))
;; move any caldav ics files to the same place as local ics files
;; move all caldav ics files to the same place as local ics files
(mapc
(lambda (x)
(when (directory-files x 1 ".*ics$")
(rename-file (car (directory-files x 1 ".*ics$")) (concat "~/Library/Calendars/" (car (directory-files x nil ".*ics$"))))))
(mapc
(lambda (y)
(rename-file (concat x "/" y);
(concat "~/Library/Calendars/" y)))
(directory-files x nil ".*ics$")))
caldav-folders)
;; check calendar has contents and import