From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Sven Bretfeld" Subject: Problems with org-caldav (wrong-type-argument stringp 47) Date: 26 Jan 2013 15:20:15 +0100 Message-ID: <878v7gt49s.fsf@gmx.ch> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from eggs.gnu.org ([208.118.235.92]:47556) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Tz6cI-0007Fe-T4 for emacs-orgmode@gnu.org; Sat, 26 Jan 2013 09:20:26 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Tz6cF-0000r2-Ks for emacs-orgmode@gnu.org; Sat, 26 Jan 2013 09:20:22 -0500 Received: from mi.ruhr-uni-bochum.de ([134.147.64.33]:51760 helo=mx5.rz.ruhr-uni-bochum.de) by eggs.gnu.org with smtp (Exim 4.71) (envelope-from ) id 1Tz6cF-0000pF-8E for emacs-orgmode@gnu.org; Sat, 26 Jan 2013 09:20:19 -0500 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-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: Org-Mode Hi Thank you very much for org-caldav. I've waited for it since years. However, I have problems on my first sync. I think I have done everything correctly: (setq load-path (cons "~/elisp/org-caldav" load-path)) (require 'org-caldav) (setq org-caldav-url "https://www.google.com/calendar/dav") (setq org-caldav-calendar-id "######@group.calendar.google.com") (setq org-caldav-inbox "/home/sven/Dropbox/myconf/testcal.org") (setq org-caldav-files "/home/sven/Dropbox/myconf/testlocalcal.org") ;(setq org-icalendar-timezone "Europe/Berlin") I also replaced url-dav.el by the patched version (I'm using Emacs 23.4.1 under Ubuntu). Find below an error report, that comes after some seconds (sometimes a minute) during the initial sync. The minibuffer displays "Reading 543 Bytes" for some time, then it breaks with the error-message. Neither the files, nor GoogleCalendar show any changes afterwards (e.g. no IDs are created in testlocalcal.org). I'm hoping that I can get this to work. Thanks for help, Sven Debugger entered--Lisp error: (wrong-type-argument stringp 47) file-exists-p(47) (not (file-exists-p file)) (if (not (file-exists-p file)) (progn (message "non-existent agenda file %s. [R]emove from list or [A]bort?" ...) (let ... ...))) (when (not (file-exists-p file)) (message "non-existent agenda file %s. [R]emove from list or [A]bort?" (abbreviate-file-name file)) (let (...) (cond ... ...))) org-check-agenda-file(47) (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) (catch (quote nextfile) (if (bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer ...)) (widen) (setq bmp (buffer-modified-p)) (org-refresh-category-properties) (setq org-todo-keywords-for-agenda (append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq org-done-keywords-for-agenda (append org-done-keywords-for-agenda org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq org-drawers-for-agenda (append org-drawers-for-agenda org-drawers)) (setq org-tag-alist-for-agenda (append org-tag-alist-for-agenda org-tag-alist)) (save-excursion (remove-text-properties ... ... pall) (when org-agenda-skip-archived-trees ... ...) (goto-char ...) (setq re ...) (while ... ...)) (set-buffer-modified-p bmp) ) (while (setq file (pop files)) (catch (quote nextfile) (if ... ... ... ...) (widen) (setq bmp ...) (org-refresh-category-properties) (setq org-todo-keywords-for-agenda ...) (setq org-done-keywords-for-agenda ...) (setq org-todo-keyword-alist-for-agenda ...) (setq org-drawers-for-agenda ...) (setq org-tag-alist-for-agenda ...) (save-excursion ... ... ... ... ...) (set-buffer-modified-p bmp))) (save-restriction (while (setq file ...) (catch ... ... ... ... ... ... ... ... ... ... ... ...))) (save-excursion (save-restriction (while ... ...))) (let ((pa ...) (pc ...) (pall ...) (inhibit-read-only t) (rea ...) bmp file re) (save-excursion (save-restriction ...)) (setq org-todo-keywords-for-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq org-todo-keyword-alist-for-agenda (org-uniquify org-todo-keyword-alist-for-agenda) org-tag-alist-for-agenda (org-uniquify org-tag-alist-for-agenda))) org-agenda-prepare-buffers((47 104 111 109 101 47 115 118 101 110 47 68 114 111 112 98 111 120 47 109 121 99 111 110 102 47 116 101 115 116 108 111 99 97 108 99 97 108 46 111 114 103 "/home/sven/Dropbox/myconf/testcal.org")) (save-excursion (org-agenda-prepare-buffers files) (let* (... file ical-file ical-buffer category started org-agenda-new-buffers) (and ... ...) (when combine ... ... ...) (while ... ...) (org-release-buffers org-agenda-new-buffers))) org-export-icalendar(t 47 104 111 109 101 47 115 118 101 110 47 68 114 111 112 98 111 120 47 109 121 99 111 110 102 47 116 101 115 116 108 111 99 97 108 99 97 108 46 111 114 103 "/home/sven/Dropbox/myconf/testcal.org") apply(org-export-icalendar t (47 104 111 109 101 47 115 118 101 110 47 68 114 111 112 98 111 120 47 109 121 99 111 110 102 47 116 101 115 116 108 111 99 97 108 99 97 108 46 111 114 103 "/home/sven/Dropbox/myconf/testcal.org")) (let ((org-combined-agenda-icalendar-file ...) (org-icalendar-store-UID t) (org-icalendar-date-time-format ...)) (org-caldav-debug-print (format "Generating ICS file %s." org-combined-agenda-icalendar-file)) (apply (quote org-export-icalendar) t (append org-caldav-files ...)) (find-file-noselect org-combined-agenda-icalendar-file)) org-caldav-generate-ics() (setq org-caldav-ics-buffer (org-caldav-generate-ics)) (if (and org-caldav-event-list (y-or-n-p "Last sync seems to have been aborted. Should I try to resume? ")) nil (setq org-caldav-ics-buffer (org-caldav-generate-ics)) (setq org-caldav-event-list nil) (setq org-caldav-sync-result nil) (org-caldav-load-sync-state) (dolist (cur org-caldav-event-list) (org-caldav-event-set-status cur nil)) (org-caldav-update-eventdb-from-org org-caldav-ics-buffer) (org-caldav-update-eventdb-from-cal)) (unless (and org-caldav-event-list (y-or-n-p "Last sync seems to have been aborted. Should I try to resume? ")) (setq org-caldav-ics-buffer (org-caldav-generate-ics)) (setq org-caldav-event-list nil) (setq org-caldav-sync-result nil) (org-caldav-load-sync-state) (dolist (cur org-caldav-event-list) (org-caldav-event-set-status cur nil)) (org-caldav-update-eventdb-from-org org-caldav-ics-buffer) (org-caldav-update-eventdb-from-cal)) org-caldav-sync() call-interactively(org-caldav-sync t nil) execute-extended-command(nil) call-interactively(execute-extended-command nil nil)