emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Problems with org-caldav (wrong-type-argument stringp 47)
@ 2013-01-26 14:20 Sven Bretfeld
  2013-01-26 17:32 ` David Engster
  0 siblings, 1 reply; 15+ messages in thread
From: Sven Bretfeld @ 2013-01-26 14:20 UTC (permalink / raw)
  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)

^ permalink raw reply	[flat|nested] 15+ messages in thread

end of thread, other threads:[~2013-02-03 22:30 UTC | newest]

Thread overview: 15+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2013-01-26 14:20 Problems with org-caldav (wrong-type-argument stringp 47) Sven Bretfeld
2013-01-26 17:32 ` David Engster
2013-01-27  2:29   ` Sven Bretfeld
2013-01-27 15:07     ` David Engster
2013-01-27 17:08       ` Sven Bretfeld
2013-01-27 17:47         ` Sven Bretfeld
2013-01-27 20:41           ` David Engster
2013-01-28 10:23             ` Eric S Fraga
2013-02-02 15:56               ` David Engster
2013-02-03  0:04                 ` Eric S Fraga
2013-02-03 12:20                   ` David Engster
2013-02-03 22:31                     ` Eric S Fraga
2013-01-28 21:14       ` Torsten Wagner
2013-01-30 10:32         ` Bastien
2013-02-01 12:08           ` Torsten Wagner

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).