From mboxrd@z Thu Jan  1 00:00:00 1970
From: Stephen Eglen <S.J.Eglen@damtp.cam.ac.uk>
Subject: Re: org-caldav: Sync Org with external calendars through CalDAV
 (Owncloud, Google, ...)
Date: Wed, 05 Dec 2012 12:15:10 +0000
Message-ID: <85624gae5t.fsf@damtp.cam.ac.uk>
References: <87r4senoly.fsf@engster.org>, <8738zlsjz9.fsf@engster.org>,
	<85a9tsafrt.fsf@damtp.cam.ac.uk>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:58647)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <S.J.Eglen@damtp.cam.ac.uk>) id 1TgDsm-0001WU-Qn
	for emacs-orgmode@gnu.org; Wed, 05 Dec 2012 07:15:21 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <S.J.Eglen@damtp.cam.ac.uk>) id 1TgDsh-0004Ba-1Q
	for emacs-orgmode@gnu.org; Wed, 05 Dec 2012 07:15:20 -0500
Received: from ppsw-43.csi.cam.ac.uk ([131.111.8.143]:35896)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <S.J.Eglen@damtp.cam.ac.uk>) id 1TgDsg-0004BU-RP
	for emacs-orgmode@gnu.org; Wed, 05 Dec 2012 07:15:14 -0500
In-reply-to: <85a9tsafrt.fsf@damtp.cam.ac.uk>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: Stephen Eglen <S.J.Eglen@damtp.cam.ac.uk>
Cc: emacs-orgmode@gnu.org, David Engster <deng@randomsample.de>


Now that I've got org-caldav working (thanks David), here's a simple
helper function so that the files specified in org-agenda-files are
exported.  I hope it works for others too!

(defun org-caldav-set-files-from-org-agenda ()
  "Set `org-caldav-files' from the files specified in 'org-agenda-files'.
Ensure however that `org-caldav-inbox' is not included in the file list."
  (let ((files (org-agenda-files)))
    (when (member (file-truename org-caldav-inbox) files)
      (setq files (delete (file-truename org-caldav-inbox) files)))
    (setq org-caldav-files files)))

(org-caldav-set-files-from-org-agenda)

Stephen