From mboxrd@z Thu Jan 1 00:00:00 1970 From: Cameron Horsburgh Subject: Problem pushing to org-mobile Date: Fri, 8 Jan 2010 14:05:08 +1100 Message-ID: Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="===============2070389943==" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NT5A5-0006uw-Rs for emacs-orgmode@gnu.org; Thu, 07 Jan 2010 22:05:17 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1NT5A0-0006ra-Gp for Emacs-orgmode@gnu.org; Thu, 07 Jan 2010 22:05:17 -0500 Received: from [199.232.76.173] (port=40949 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NT5A0-0006rQ-Cg for Emacs-orgmode@gnu.org; Thu, 07 Jan 2010 22:05:12 -0500 Received: from mail-pz0-f181.google.com ([209.85.222.181]:42498) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1NT59z-0007XT-3E for Emacs-orgmode@gnu.org; Thu, 07 Jan 2010 22:05:11 -0500 Received: by pzk11 with SMTP id 11so10568527pzk.14 for ; Thu, 07 Jan 2010 19:05:09 -0800 (PST) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Emacs-orgmode@gnu.org --===============2070389943== Content-Type: multipart/alternative; boundary=001636e1f99482fb11047c9e740c --001636e1f99482fb11047c9e740c Content-Type: text/plain; charset=ISO-8859-1 Hi folks, For the last week I haven't been able to push to my WebDAV account. When I run M-x org-mobile-push it seems to get stuck creating an agenda file and fails with the message 'org-agenda-skip-if: Invalid regexp: "Unmatched [ or [^" ' I've tried a few things to nail the problem down. I've removed (most) of my files from the agenda list, leaving only files I know have worked recently. I've run git-bisect against a version I know to have worked and the same error appears every time, including the known good one. So I'm going to assume I have a problem with my set up. Here's my config, and I've included a backtrace at the end if anyone finds it useful. Thanks for your help! current state: ============== (setq org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars) org-agenda-custom-commands '(("X" "SUMO" ((agenda nil ((org-agenda-title-append "KEYS=a TITLE: Agenda "))) (alltodo nil ((org-agenda-title-append "KEYS=t TITLE: ALL TODO "))) (todo #("DELEGATED" 0 9 (face org-warning)) ((org-agenda-title-append #("KEYS=d TITLE: todo DELEGATED" 26 35 (face org-warning))) ) ) (todo #("DONE|DEFERRED|CANCELLED" 0 23 (face org-warning)) ((org-agenda-title-append #("KEYS=c TITLE: todo DONE|DEFERRED|CANCELLED" 26 49 (face org-warning)) ) ) ) (todo #("WAITING" 0 7 (face org-warning)) ((org-agenda-title-append #("KEYS=w TITLE: todo WAITING" 26 33 (face org-warning))) ) ) (agenda "" ((org-agenda-title-append "KEYS=W TITLE: agenda ") (org-agenda-ndays 21))) (agenda "" ((org-agenda-title-append "KEYS=A TITLE: agenda ") (org-agenda-skip-function (lambda nil (org-agenda-skip-entry-if (quote notregexp) "\\=.*\\[#A\\]"))) (org-agenda-ndays 1) (org-agenda-overriding-header "Today's Priority #A tasks: ")) ) (alltodo "" ((org-agenda-title-append "KEYS=u TITLE: alltodo ") (org-agenda-skip-function (lambda nil (org-agenda-skip-entry-if (quote scheduled) (quote deadline) (quote regexp) "<[^> >")) ) (org-agenda-overriding-header "Unscheduled TODO entries: ")) ) ) ((org-agenda-compact-blocks nil)) ("/home/cameron/mnt/mydisk/org/ agendas.org")) ) org-agenda-files '("~/gtd/diary.org" "~/gtd/Band/Band.org" "~/gtd/rsa/RSA.org" "~/gtd/JuniorYouthGroup/YouthGroup.org" "~/gtd/Netball/Netball.org" "~/gtd/todo.org") org-blocker-hook '(org-block-todo-from-children-or-siblings-or-parent) org-agenda-show-inherited-tags nil org-after-todo-state-change-hook '(org-clock-out-if-current) org-agenda-remove-tags t org-startup-folded nil org-deadline-warning-days 7 org-export-latex-format-toc-function 'org-export-latex-format-toc-default org-agenda-skip-scheduled-if-done t org-stuck-projects '("+LEVEL=2/-DONE" ("TODO" "NEXT" "NEXTACTION") ("Info") "") org-export-preprocess-hook '(org-export-blocks-preprocess) org-mobile-inbox-for-pull "~/gtd/from-mobile.org" org-tab-first-hook '(org-hide-block-toggle-maybe) org-src-mode-hook '(org-src-mode-configure-edit-buffer) org-confirm-shell-link-function 'yes-or-no-p org-export-first-hook '(org-beamer-initialize-open-trackers) org-agenda-before-write-hook '(org-agenda-add-entry-text) org-default-notes-file "~/gtd/notes.org" org-agenda-skip-function '(lambda nil (org-agenda-skip-entry-if (quote scheduled) (quote deadline) (quote regexp) "<[^> >")) org-directory "~/gtd/" org-export-docbook-xslt-proc-command "java org.apache.xalan.xslt.Process -out %s -in %s -xsl /usr/share/xml/docbook/stylesheet/docbook-xsl/xhtml-1_1/docbook.xsl" org-blank-before-new-entry '((heading) (plain-list-item)) org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines org-optimize-window-after-visibility-change) org-export-preprocess-before-normalizing-links-hook '(org-remove-file-link-modifiers) org-mode-hook '((lambda nil (org-add-hook (quote change-major-mode-hook) (quote org-show-block-all) (quote append) (quote local))) #[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode-hook org-show-block-all append local] 5] ) org-confirm-elisp-link-function 'yes-or-no-p org-fast-tag-selection-single-key 'expert org-agenda-start-on-weekday nil org-enforce-todo-dependencies t org-agenda-skip-deadline-if-done t org-reverse-note-order t org-occur-hook '(org-first-headline-recenter) org-from-is-user-regexp "\\" org-mobile-directory "~/mnt/mydisk/org/" org-export-preprocess-before-selecting-backend-code-hook '(org-beamer-select-beamer-code) org-export-docbook-xsl-fo-proc-command "fop %s %s" org-remember-templates '(("" 116 "* TODO %?" "~/gtd/todo.org" "Unfiled items") ("" 110 "* %u %?" "~/gtd/notes.org" "Notes") ("My diary entry" 100 "* Diary entry: %?\n %^T" "~/gtd/diary.org" "Diary date") ("" 119 "* %u %c %:region" "~/gtd/bookmarks.org" "Web links")) org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc org-beamer-auto-fragile-frames org-beamer-place-default-actions-for-lists) ) =============Backtrace Debugger entered--Lisp error: (invalid-regexp "Unmatched [ or [^") re-search-forward("<[^> >" 641 t) (and (setq m (memq ... conditions)) (stringp (nth 1 m)) (re-search-forward (nth 1 m) end t)) (or (and (memq ... conditions) (re-search-forward org-scheduled-time-regexp end t)) (and (memq ... conditions) (not ...)) (and (memq ... conditions) (re-search-forward org-deadline-time-regexp end t)) (and (memq ... conditions) (not ...)) (and (memq ... conditions) (re-search-forward org-ts-regexp end t)) (and (memq ... conditions) (not ...)) (and (setq m ...) (stringp ...) (re-search-forward ... end t)) (and (setq m ...) (stringp ...) (not ...))) (and (or (and ... ...) (and ... ...) (and ... ...) (and ... ...) (and ... ...) (and ... ...) (and ... ... ...) (and ... ... ...)) end) (let (beg end m) (org-back-to-heading t) (setq beg (point) end (if subtree ... ...)) (goto-char beg) (and (or ... ... ... ... ... ... ... ...) end)) org-agenda-skip-if(nil (scheduled deadline regexp "<[^> >")) org-agenda-skip-entry-if(scheduled deadline regexp "<[^> >") (lambda nil (org-agenda-skip-entry-if (quote scheduled) (quote deadline) (quote regexp) "<[^> >"))() funcall((lambda nil (org-agenda-skip-entry-if (quote scheduled) (quote deadline) (quote regexp) "<[^> >"))) (if fp (funcall org-agenda-skip-function) (eval org-agenda-skip-function)) (progn (if fp (funcall org-agenda-skip-function) (eval org-agenda-skip-function))) (unwind-protect (progn (if fp ... ...)) (set-match-data save-match-data-internal (quote evaporate))) (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...))) (save-match-data (if fp (funcall org-agenda-skip-function) (eval org-agenda-skip-function))) (save-excursion (save-match-data (if fp ... ...))) (setq to (save-excursion (save-match-data ...))) (and (or (setq fp ...) (consp org-agenda-skip-function)) (setq to (save-excursion ...))) (if (and (or ... ...) (setq to ...)) (progn (goto-char to) (throw :skip t))) (when (and (or ... ...) (setq to ...)) (goto-char to) (throw :skip t)) (let ((p ...) to fp) (and org-agenda-skip-archived-trees (not org-agenda-archives-mode) (get-text-property p :org-archived) (org-end-of-subtree t) (throw :skip t)) (and org-agenda-skip-comment-trees (get-text-property p :org-comment) (org-end-of-subtree t) (throw :skip t)) (if (equal ... 35) (throw :skip t)) (when (and ... ...) (goto-char to) (throw :skip t))) org-agenda-skip() (catch :skip (save-match-data (beginning-of-line) (setq beg ... end ...) (when ... ... ... ...)) (goto-char beg) (org-agenda-skip) (goto-char (match-beginning 1)) (setq marker (org-agenda-new-marker ...) category (org-get-category) txt (match-string 1) tags (org-get-tags-at ...) txt (org-format-agenda-item "" txt category tags) priority (1+ ...) todo-state (org-get-todo-state)) (org-add-props txt props (quote org-marker) marker (quote org-hd-marker) marker (quote priority) priority (quote org-category) category (quote type) "todo" (quote todo-state) todo-state) (push txt ee) (if org-agenda-todo-list-sublevels (goto-char ...) (org-end-of-subtree ...))) (while (re-search-forward regexp nil t) (catch :skip (save-match-data ... ... ...) (goto-char beg) (org-agenda-skip) (goto-char ...) (setq marker ... category ... txt ... tags ... txt ... priority ... todo-state ...) (org-add-props txt props ... marker ... marker ... priority ... category ... "todo" ... todo-state) (push txt ee) (if org-agenda-todo-list-sublevels ... ...))) (let* ((props ...) (regexp ...) marker priority category tags todo-state ee txt beg end) (goto-char (point-min)) (while (re-search-forward regexp nil t) (catch :skip ... ... ... ... ... ... ... ...)) (nreverse ee)) org-agenda-get-todos() (setq rtn (org-agenda-get-todos)) (cond ((and ... ...) (setq rtn ...) (setq results ...)) ((eq arg :timestamp) (setq rtn ...) (setq results ...) (setq rtn ...) (setq results ...)) ((eq arg :sexp) (setq rtn ...) (setq results ...)) ((eq arg :scheduled) (setq rtn ...) (setq results ...)) ((eq arg :closed) (setq rtn ...) (setq results ...)) ((eq arg :deadline) (setq rtn ...) (setq deadline-results ...) (setq results ...))) (while (setq arg (pop args)) (cond (... ... ...) (... ... ... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ... ...))) (save-restriction (if org-agenda-restrict (narrow-to-region org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (while (setq arg ...) (cond ... ... ... ... ... ...))) (save-excursion (save-restriction (if org-agenda-restrict ... ...) (while ... ...))) (let ((case-fold-search nil)) (save-excursion (save-restriction ... ...))) (save-current-buffer (set-buffer buffer) (unless (org-mode-p) (error "Agenda file %s is not in `org-mode'" file)) (let (...) (save-excursion ...)) results) (with-current-buffer buffer (unless (org-mode-p) (error "Agenda file %s is not in `org-mode'" file)) (let (...) (save-excursion ...)) results) (if (not buffer) (list (format "ORG-AGENDA-ERROR: No such org-file %s" file)) (with-current-buffer buffer (unless ... ...) (let ... ...) results)) (let* ((org-startup-folded nil) (org-startup-align-all-tables nil) (buffer ...) arg results rtn deadline-results) (if (not buffer) (list ...) (with-current-buffer buffer ... ... results))) org-agenda-get-day-entries("~/gtd/Band/Band.org" (1 8 2010) :todo) (setq rtn (org-agenda-get-day-entries file date :todo)) (catch (quote nextfile) (org-check-agenda-file file) (setq rtn (org-agenda-get-day-entries file date :todo)) (setq rtnall (append rtnall rtn))) (while (setq file (pop files)) (catch (quote nextfile) (org-check-agenda-file file) (setq rtn ...) (setq rtnall ...))) (let* ((today ...) (date ...) (kwds org-todo-keywords-for-agenda) (completion-ignore-case t) (org-select-this-todo-keyword ...) rtn rtnall files file pos) (when (equal arg ...) (setq org-select-this-todo-keyword ...)) (and (equal 0 arg) (setq org-select-this-todo-keyword nil)) (org-set-local (quote org-last-arg) arg) (setq org-agenda-redo-command (quote ...)) (setq files (org-agenda-files nil ...) rtnall nil) (while (setq file ...) (catch ... ... ... ...)) (if org-agenda-overriding-header (insert ... "\n") (insert "Global list of TODO items of type: ") (add-text-properties ... ... ...) (org-agenda-mark-header-line ...) (setq pos ...) (insert ... "\n") (add-text-properties pos ... ...) (setq pos ...) (unless org-agenda-multi ... ... ...) (add-text-properties pos ... ...)) (org-agenda-mark-header-line (point-min)) (when rtnall (insert ... "\n")) (goto-char (point-min)) (or org-agenda-multi (org-fit-agenda-window)) (add-text-properties (point-min) (point-max) (quote ...)) (org-finalize-agenda) (setq buffer-read-only t)) org-todo-list(nil) call-interactively(org-todo-list) (let ((org-agenda-title-append "KEYS=u TITLE: alltodo ") (org-agenda-skip-function ...) (org-agenda-overriding-header "Unscheduled TODO entries: ")) (call-interactively (quote org-todo-list))) (let ((org-agenda-compact-blocks nil)) (let (... ... ...) (call-interactively ...))) eval((let ((org-agenda-compact-blocks nil)) (let (... ... ...) (call-interactively ...)))) org-let2(((org-agenda-compact-blocks nil)) ((org-agenda-title-append "KEYS=u TITLE: alltodo ") (org-agenda-skip-function (lambda nil ...)) (org-agenda-overriding-header "Unscheduled TODO entries: ")) (call-interactively (quote org-todo-list))) (cond ((eq type ...) (org-let2 gprops lprops ...)) ((eq type ...) (org-let2 gprops lprops ...)) ((eq type ...) (org-let2 gprops lprops ...)) ((eq type ...) (org-let2 gprops lprops ...)) ((eq type ...) (org-let2 gprops lprops ...)) ((eq type ...) (org-let2 gprops lprops ...)) ((eq type ...) (org-let2 gprops lprops ...)) ((fboundp type) (org-let2 gprops lprops ...)) (t (error "Invalid type in command series"))) (while (setq cmd (pop cmds)) (setq type (car cmd) match (eval ...) lprops (nth 2 cmd)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (t ...))) (let* ((org-agenda-multi t) (redo ...) (cmds ...) (gprops ...) match cmd type lprops) (while (setq cmd ...) (setq type ... match ... lprops ...) (cond ... ... ... ... ... ... ... ... ...)) (widen) (setq org-agenda-redo-command redo) (goto-char (point-min))) org-run-agenda-series("SUMO" (((agenda nil ...) (alltodo nil ...) (todo #("DELEGATED" 0 9 ...) ...) (todo #("DONE|DEFERRED|CANCELLED" 0 23 ...) ...) (todo #("WAITING" 0 7 ...) ...) (agenda "" ...) (agenda "" ...) (alltodo "" ...)) ((org-agenda-compact-blocks nil)) ("/home/cameron/mnt/mydisk/org/ agendas.org"))) (if (or (symbolp ...) (functionp ...)) (progn (setq type ... match ... lprops ...) (put ... ... lprops) (cond ... ... ... ... ... ... ... ... ... ... ... ... ...)) (org-run-agenda-series (nth 1 entry) (cddr entry))) (cond ((setq entry ...) (if ... ... ...)) ((equal keys "C") (setq org-agenda-custom-commands org-agenda-custom-commands-orig) (customize-variable ...)) ((equal keys "a") (call-interactively ...)) ((equal keys "s") (call-interactively ...)) ((equal keys "t") (call-interactively ...)) ((equal keys "T") (org-call-with-arg ... ...)) ((equal keys "m") (call-interactively ...)) ((equal keys "M") (org-call-with-arg ... ...)) ((equal keys "e") (call-interactively ...)) ((equal keys "?") (org-tags-view nil "+FLAGGED") (org-add-hook ... ... t t)) ((equal keys "L") (unless ... ...) (unless restriction ... ...)) ((equal keys "#") (call-interactively ...)) ((equal keys "/") (call-interactively ...)) ((equal keys "!") (customize-variable ...)) (t (error "Invalid agenda key"))) (let* ((prefix-descriptions nil) (org-agenda-window-setup ...) (org-agenda-custom-commands-orig org-agenda-custom-commands) (org-agenda-custom-commands ...) (buf ...) (bfn ...) entry key type match lprops ans) (unless org-agenda-overriding-restriction (unless ... ...) (setq org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end nil)) (put (quote org-agenda-redo-command) (quote org-lprops) nil) (setq org-agenda-last-dispatch-buffer (current-buffer)) (unless keys (setq ans ... keys ... restriction ...)) (when (and ... restriction) (put ... ... ...) (cond ... ...)) (require (quote calendar)) (cond (... ...) (... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ... ...) (... ...) (... ...) (... ...) (t ...))) (catch (quote exit) (let* (... ... ... ... ... ... entry key type match lprops ans) (unless org-agenda-overriding-restriction ... ... ... ...) (put ... ... nil) (setq org-agenda-last-dispatch-buffer ...) (unless keys ...) (when ... ... ...) (require ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))) org-agenda(nil "X") (let ((org-agenda-compact-blocks nil)) (org-agenda nil "X")) eval((let ((org-agenda-compact-blocks nil)) (org-agenda nil "X"))) (progn (eval (list ... ... ...)) (set-buffer org-agenda-buffer-name) (while files (eval ...)) (and (get-buffer org-agenda-buffer-name) (kill-buffer org-agenda-buffer-name))) (if files (progn (eval ...) (set-buffer org-agenda-buffer-name) (while files ...) (and ... ...))) (when files (eval (list ... ... ...)) (set-buffer org-agenda-buffer-name) (while files (eval ...)) (and (get-buffer org-agenda-buffer-name) (kill-buffer org-agenda-buffer-name))) (while cmds (setq cmd (pop cmds) thiscmdkey (car cmd) cmd-or-set (nth 2 cmd) opts (nth ... cmd) files (nth ... cmd)) (if (stringp files) (setq files ...)) (when files (eval ...) (set-buffer org-agenda-buffer-name) (while files ...) (and ... ...))) (save-window-excursion (while cmds (setq cmd ... thiscmdkey ... cmd-or-set ... opts ... files ...) (if ... ...) (when files ... ... ... ...))) (let ((cmds ...) (pop-up-frames nil) (dir default-directory) pars cmd thiscmdkey files opts cmd-or-set) (while parameters (push ... pars)) (setq pars (reverse pars)) (save-window-excursion (while cmds ... ... ...))) (lambda (&rest parameters) "Run all custom agenda commands that have a file argument." (let (... ... ... pars cmd thiscmdkey files opts cmd-or-set) (while parameters ...) (setq pars ...) (save-window-excursion ...)))() (org-batch-store-agenda-views) eval((org-batch-store-agenda-views)) org-store-agenda-views() (progn (org-store-agenda-views)) (if sumo (progn (org-store-agenda-views))) (when sumo (org-store-agenda-views)) (let* ((file ...) (sumo ...) (org-agenda-custom-commands ...) (org-mobile-creating-agendas t)) (unless (file-writable-p file) (error "Cannot write to file %s" file)) (when sumo (org-store-agenda-views))) org-mobile-create-sumo-agenda() (let ((inhibit-redisplay t)) (org-mobile-create-sumo-agenda)) (save-window-excursion (org-mobile-check-setup) (org-mobile-prepare-file-lists) (run-hooks (quote org-mobile-pre-push-hook)) (message "Creating agendas...") (let (...) (org-mobile-create-sumo-agenda)) (message "Creating agendas...done") (org-save-all-org-buffers) (message "Copying files...") (org-mobile-copy-agenda-files) (message "Writing index file...") (org-mobile-create-index-file) (message "Writing checksums...") (org-mobile-write-checksums) (run-hooks (quote org-mobile-post-push-hook))) (save-excursion (save-window-excursion (org-mobile-check-setup) (org-mobile-prepare-file-lists) (run-hooks ...) (message "Creating agendas...") (let ... ...) (message "Creating agendas...done") (org-save-all-org-buffers) (message "Copying files...") (org-mobile-copy-agenda-files) (message "Writing index file...") (org-mobile-create-index-file) (message "Writing checksums...") (org-mobile-write-checksums) (run-hooks ...))) (let ((org-agenda-buffer-name "*SUMO*") (org-agenda-filter org-agenda-filter) (org-agenda-redo-command org-agenda-redo-command)) (save-excursion (save-window-excursion ... ... ... ... ... ... ... ... ... ... ... ... ... ...))) (let ((a-buffer ...)) (let (... ... ...) (save-excursion ...)) (redraw-display) (when (and a-buffer ...) (if ... ... ...))) org-mobile-push() call-interactively(org-mobile-push nil nil) -- Cameron Horsburgh blog: http://spiritcry.wordpress.com --001636e1f99482fb11047c9e740c Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable
Hi folks,

For the last week= I haven't been able to push to my WebDAV account. When I run M-x org-m= obile-push it seems to get stuck creating an agenda file and fails with the= message 'org-agenda-skip-if: Invalid regexp: "Unmatched [ or [^&q= uot; '

I've tried a few things to nail the problem down. I= 've removed (most) of my files from the agenda list, leaving only files= I know have worked recently. I've run git-bisect against a version I k= now to have worked and the same error appears every time, including the kno= wn good one. So I'm going to assume I have a problem with my set up.

Here's my config, and I've included a backtrace= at the end if anyone finds it useful. Thanks for your help!

=
current state:
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D
(setq
=A0org-export-latex-after-initial-vars-hook '(org-beamer-after-ini= tial-vars)
=A0org-agenda-custom-commands '(("X" &qu= ot;SUMO"
=A0 =A0 =A0 ((agenda nil ((org-agenda-title-append "&= lt;after>KEYS=3Da TITLE: Agenda </after>")))
(a= lltodo nil ((org-agenda-title-append "<after>KEYS=3Dt TITLE: ALL= TODO </after>")))
(todo #("DELEGATED" 0 9 (face or= g-warning))
(= (org-agenda-title-append
=A0 #("<after>KEYS=3Dd TITLE: todo = DELEGATED</after>" 26 35 (face org-warning)))
= =A0)
= )
(todo #("DONE|DEFERRED|CANCELLED" 0 23 (face org-wa= rning))
(= (org-agenda-title-append
=A0 #("<after>KEYS=3Dc TITLE: todo = DONE|DEFERRED|CANCELLED</after>" 26 49 (face org-warning))
= =A0 )
= =A0)
)
(t= odo #("WAITING" 0 7 (face org-warning))
((org-agenda-title-ap= pend
= =A0 #("<after>KEYS=3Dw TITLE: todo WAITING</after>" 2= 6 33 (face org-warning)))
=A0)
)=
(agenda ""
((org-agenda-title-append "<after>K= EYS=3DW TITLE: agenda </after>") (org-agenda-ndays 21)))
(a= genda ""
((org-agenda-title-append "<after>KEYS=3D= A TITLE: agenda </after>")
= =A0(org-agenda-skip-function
=A0 (lambda nil (org-agenda-skip-entry-if = (quote notregexp) "\\=3D.*\\[#A\\]")))
= =A0(org-agenda-ndays 1) (org-agenda-overriding-header "Today's Pri= ority #A tasks: "))
)
(a= lltodo ""
((org-agenda-title-append "<after>KEYS= =3Du TITLE: alltodo </after>")
= =A0(org-agenda-skip-function
=A0 (lambda nil
=A0 =A0(org-agenda-ski= p-entry-if (quote scheduled) (quote deadline) (quote regexp) "<[^&g= t; >"))
= =A0 )
= =A0(org-agenda-overriding-header "Unscheduled TODO entries: = "))
)=
)
= =A0 =A0 =A0 ((org-agenda-compact-blocks nil)) ("/home/cameron= /mnt/mydisk/org/agendas.org"))
= =A0 =A0 =A0)
=A0org-agenda-files '("~/gtd/diary.org" "~/gtd/Band/Band.org" "~/= gtd/rsa/RSA.org" "~/gtd/JuniorYouthGroup/YouthGroup.org"
=A0= =A0"~/gtd/Netball/Netball.org" "~/gtd/todo.org")
=A0org-blocker-hook '(org-block-to= do-from-children-or-siblings-or-parent)
=A0org-agenda-show-inherited-tags nil
=A0org-after-todo-stat= e-change-hook '(org-clock-out-if-current)
=A0org-agenda-remov= e-tags t
=A0org-startup-folded nil
=A0org-deadline-warn= ing-days 7
=A0org-export-latex-format-toc-function 'org-export-latex-format-t= oc-default
=A0org-agenda-skip-scheduled-if-done t
=A0or= g-stuck-projects '("+LEVEL=3D2/-DONE" ("TODO" "= ;NEXT" "NEXTACTION") ("Info") "")
=A0org-export-preprocess-hook '(org-export-blocks-preprocess)
=A0org-mobile-inbox-for-pull "~/gtd/from-mobile.org"
=A0org-tab-first-hook '(org-= hide-block-toggle-maybe)
=A0org-src-mode-hook '(org-src-mode-configure-edit-buffer)
=A0org-confirm-shell-link-function 'yes-or-no-p
=A0org-exp= ort-first-hook '(org-beamer-initialize-open-trackers)
=A0org-= agenda-before-write-hook '(org-agenda-add-entry-text)
=A0org-default-notes-file "~/gtd/not= es.org"
=A0org-agenda-skip-function '(lambda nil
= =A0 =A0(org-agenda-skip-entry-if (quote scheduled) (quote deadline) (quote = regexp) "<[^> >"))
=A0org-directory "~/gtd/"
=A0org-export-docbook-xs= lt-proc-command "java org.apache.xalan.xslt.Process -out %s -in %s -xs= l /usr/share/xml/docbook/stylesheet/docbook-xsl/xhtml-1_1/docbook.xsl"=
=A0org-blank-before-new-entry '((heading) (plain-list-item))
=
=A0org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hid= e-drawers org-cycle-show-empty-lines
=A0org-optimize-window-after-visibil= ity-change)
=A0org-export-preprocess-before-normalizing-links-hook '(org-remov= e-file-link-modifiers)
=A0org-mode-hook '((lambda nil
=A0(o= rg-add-hook (quote change-major-mode-hook) (quote org-show-block-all) (quot= e append) (quote local)))
#[n= il "\300\301\302\303\304$\207" [org-add-hook change-major-mode-ho= ok org-show-block-all append local]
=A0 5]
)
=A0org-confirm-elisp-link-function 'yes-or-no-p
=A0o= rg-fast-tag-selection-single-key 'expert
=A0org-agenda-start-= on-weekday nil
=A0org-enforce-todo-dependencies t
=A0org-agenda-skip-deadli= ne-if-done t
=A0org-reverse-note-order t
=A0org-occur-h= ook '(org-first-headline-recenter)
=A0org-from-is-user-regexp= "\\<Cameron Horsburgh\\>"
=A0org-mobile-directory "~/mnt/mydisk/org/"
=A0org= -export-preprocess-before-selecting-backend-code-hook '(org-beamer-sele= ct-beamer-code)
=A0org-export-docbook-xsl-fo-proc-command "f= op %s %s"
=A0org-remember-templates '(("" 116 "* TODO %?"= ; "~/gtd/todo.org" "Unfiled = items")
=A0("" 110 "* %u %?" "~/gtd/notes.org" "Notes")
= =A0("My diary entry" 100 "* Diary entry: %?\n %^T" &quo= t;~/gtd/diary.org" "Diary date&q= uot;)
= =A0("" 119 "* %u %c %:region" "~/gtd/bookmarks.org" "Web links"))
=A0org-export-latex-final-hook '(org-beamer-amend-header org-beamer-= fix-toc org-beamer-auto-fragile-frames
= =A0 =A0 =A0 org-beamer-place-default-actions-for-lists)
=A0)

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3DBacktrace=

Debugger entered--Lisp error: (invalid-regex= p "Unmatched [ or [^")
=A0=A0re-search-forward("<[^> >" 641 t)
= =A0=A0(and (setq m (memq ... conditions)) (stringp (nth 1 m)) (re-search-fo= rward (nth 1 m) end t))
=A0=A0(or (and (memq ... conditions) (re-= search-forward org-scheduled-time-regexp end t)) (and (memq ... conditions)= (not ...)) (and (memq ... conditions) (re-search-forward org-deadline-time= -regexp end t)) (and (memq ... conditions) (not ...)) (and (memq ... condit= ions) (re-search-forward org-ts-regexp end t)) (and (memq ... conditions) (= not ...)) (and (setq m ...) (stringp ...) (re-search-forward ... end t)) (a= nd (setq m ...) (stringp ...) (not ...)))
=A0=A0(and (or (and ... ...) (and ... ...) (and ... ...) (and ... ...)= (and ... ...) (and ... ...) (and ... ... ...) (and ... ... ...)) end)
=A0=A0(let (beg end m) (org-back-to-heading t) (setq beg (point) end = (if subtree ... ...)) (goto-char beg) (and (or ... ... ... ... ... ... ... = ...) end))
=A0=A0org-agenda-skip-if(nil (scheduled deadline regexp "<[^&g= t; >"))
=A0=A0org-agenda-skip-entry-if(scheduled deadline= regexp "<[^> >")
=A0=A0(lambda nil (org-agend= a-skip-entry-if (quote scheduled) (quote deadline) (quote regexp) "<= ;[^> >"))()
=A0=A0funcall((lambda nil (org-agenda-skip-entry-if (quote scheduled) = (quote deadline) (quote regexp) "<[^> >")))
= =A0=A0(if fp (funcall org-agenda-skip-function) (eval org-agenda-skip-funct= ion))
=A0=A0(progn (if fp (funcall org-agenda-skip-function) (eval org-agend= a-skip-function)))
=A0=A0(unwind-protect (progn (if fp ... ...)) = (set-match-data save-match-data-internal (quote evaporate)))
=A0= =A0(let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-m= atch-data save-match-data-internal ...)))
=A0=A0(save-match-data (if fp (funcall org-agenda-skip-function) (eval= org-agenda-skip-function)))
=A0=A0(save-excursion (save-match-da= ta (if fp ... ...)))
=A0=A0(setq to (save-excursion (save-match-d= ata ...)))
=A0=A0(and (or (setq fp ...) (consp org-agenda-skip-function)) (setq t= o (save-excursion ...)))
=A0=A0(if (and (or ... ...) (setq to ...= )) (progn (goto-char to) (throw :skip t)))
=A0=A0(when (and (or .= .. ...) (setq to ...)) (goto-char to) (throw :skip t))
=A0=A0(let ((p ...) to fp) (and org-agenda-skip-archived-trees (not or= g-agenda-archives-mode) (get-text-property p :org-archived) (org-end-of-sub= tree t) (throw :skip t)) (and org-agenda-skip-comment-trees (get-text-prope= rty p :org-comment) (org-end-of-subtree t) (throw :skip t)) (if (equal ... = 35) (throw :skip t)) (when (and ... ...) (goto-char to) (throw :skip t)))
=A0=A0org-agenda-skip()
=A0=A0(catch :skip (save-match-data = (beginning-of-line) (setq beg ... end ...) (when ... ... ... ...)) (goto-ch= ar beg) (org-agenda-skip) (goto-char (match-beginning 1)) (setq marker (org= -agenda-new-marker ...) category (org-get-category) txt (match-string 1) ta= gs (org-get-tags-at ...) txt (org-format-agenda-item "" txt categ= ory tags) priority (1+ ...) todo-state (org-get-todo-state)) (org-add-props= txt props (quote org-marker) marker (quote org-hd-marker) marker (quote pr= iority) priority (quote org-category) category (quote type) "todo"= ; (quote todo-state) todo-state) (push txt ee) (if org-agenda-todo-list-sub= levels (goto-char ...) (org-end-of-subtree ...)))
=A0=A0(while (re-search-forward regexp nil t) (catch :skip (save-match= -data ... ... ...) (goto-char beg) (org-agenda-skip) (goto-char ...) (setq = marker ... category ... txt ... tags ... txt ... priority ... todo-state ..= .) (org-add-props txt props ... marker ... marker ... priority ... category= ... "todo" ... todo-state) (push txt ee) (if org-agenda-todo-lis= t-sublevels ... ...)))
=A0=A0(let* ((props ...) (regexp ...) marker priority category tags to= do-state ee txt beg end) (goto-char (point-min)) (while (re-search-forward = regexp nil t) (catch :skip ... ... ... ... ... ... ... ...)) (nreverse ee))=
=A0=A0org-agenda-get-todos()
=A0=A0(setq rtn (org-agenda-get= -todos))
=A0=A0(cond ((and ... ...) (setq rtn ...) (setq results = ...)) ((eq arg :timestamp) (setq rtn ...) (setq results ...) (setq rtn ...)= (setq results ...)) ((eq arg :sexp) (setq rtn ...) (setq results ...)) ((e= q arg :scheduled) (setq rtn ...) (setq results ...)) ((eq arg :closed) (set= q rtn ...) (setq results ...)) ((eq arg :deadline) (setq rtn ...) (setq dea= dline-results ...) (setq results ...)))
=A0=A0(while (setq arg (pop args)) (cond (... ... ...) (... ... ... ..= . ...) (... ... ...) (... ... ...) (... ... ...) (... ... ... ...)))
<= div>=A0=A0(save-restriction (if org-agenda-restrict (narrow-to-region org-a= genda-restrict-begin org-agenda-restrict-end) (widen)) (while (setq arg ...= ) (cond ... ... ... ... ... ...)))
=A0=A0(save-excursion (save-restriction (if org-agenda-restrict ... ..= .) (while ... ...)))
=A0=A0(let ((case-fold-search nil)) (save-ex= cursion (save-restriction ... ...)))
=A0=A0(save-current-buffer (= set-buffer buffer) (unless (org-mode-p) (error "Agenda file %s is not = in `org-mode'" file)) (let (...) (save-excursion ...)) results)
=A0=A0(with-current-buffer buffer (unless (org-mode-p) (error "Ag= enda file %s is not in `org-mode'" file)) (let (...) (save-excursi= on ...)) results)
=A0=A0(if (not buffer) (list (format "ORG-= AGENDA-ERROR: No such org-file %s" file)) (with-current-buffer buffer = (unless ... ...) (let ... ...) results))
=A0=A0(let* ((org-startup-folded nil) (org-startup-align-all-tables ni= l) (buffer ...) arg results rtn deadline-results) (if (not buffer) (list ..= .) (with-current-buffer buffer ... ... results)))
=A0=A0org-agend= a-get-day-entries("~/gtd/Band/Band.org" (1 8 2010) :todo)
=A0=A0(setq rtn (org-agenda-get-day-entries file date :todo))
=A0=A0(catch (quote nextfile) (org-check-agenda-file file) (setq rtn (org= -agenda-get-day-entries file date :todo)) (setq rtnall (append rtnall rtn))= )
=A0=A0(while (setq file (pop files)) (catch (quote nextfile) (org-chec= k-agenda-file file) (setq rtn ...) (setq rtnall ...)))
=A0=A0(let= * ((today ...) (date ...) (kwds org-todo-keywords-for-agenda) (completion-i= gnore-case t) (org-select-this-todo-keyword ...) rtn rtnall files file pos)= (when (equal arg ...) (setq org-select-this-todo-keyword ...)) (and (equal= 0 arg) (setq org-select-this-todo-keyword nil)) (org-set-local (quote org-= last-arg) arg) (setq org-agenda-redo-command (quote ...)) (setq files (org-= agenda-files nil ...) rtnall nil) (while (setq file ...) (catch ... ... ...= ...)) (if org-agenda-overriding-header (insert ... "\n") (insert= "Global list of TODO items of type: ") (add-text-properties ... = ... ...) (org-agenda-mark-header-line ...) (setq pos ...) (insert ... "= ;\n") (add-text-properties pos ... ...) (setq pos ...) (unless org-age= nda-multi ... ... ...) (add-text-properties pos ... ...)) (org-agenda-mark-= header-line (point-min)) (when rtnall (insert ... "\n")) (goto-ch= ar (point-min)) (or org-agenda-multi (org-fit-agenda-window)) (add-text-pro= perties (point-min) (point-max) (quote ...)) (org-finalize-agenda) (setq bu= ffer-read-only t))
=A0=A0org-todo-list(nil)
=A0=A0call-interactively(org-todo-l= ist)
=A0=A0(let ((org-agenda-title-append "<after>KEYS= =3Du TITLE: alltodo </after>") (org-agenda-skip-function ...) (o= rg-agenda-overriding-header "Unscheduled TODO entries: ")) (call-= interactively (quote org-todo-list)))
=A0=A0(let ((org-agenda-compact-blocks nil)) (let (... ... ...) (call-= interactively ...)))
=A0=A0eval((let ((org-agenda-compact-blocks = nil)) (let (... ... ...) (call-interactively ...))))
=A0=A0org-le= t2(((org-agenda-compact-blocks nil)) ((org-agenda-title-append "<af= ter>KEYS=3Du TITLE: alltodo </after>") (org-agenda-skip-funct= ion (lambda nil ...)) (org-agenda-overriding-header "Unscheduled TODO = entries: ")) (call-interactively (quote org-todo-list)))
=A0=A0(cond ((eq type ...) (org-let2 gprops lprops ...)) ((eq type ...= ) (org-let2 gprops lprops ...)) ((eq type ...) (org-let2 gprops lprops ...)= ) ((eq type ...) (org-let2 gprops lprops ...)) ((eq type ...) (org-let2 gpr= ops lprops ...)) ((eq type ...) (org-let2 gprops lprops ...)) ((eq type ...= ) (org-let2 gprops lprops ...)) ((fboundp type) (org-let2 gprops lprops ...= )) (t (error "Invalid type in command series")))
=A0=A0(while (setq cmd (pop cmds)) (setq type (car cmd) match (eval ..= .) lprops (nth 2 cmd)) (cond (... ...) (... ...) (... ...) (... ...) (... .= ..) (... ...) (... ...) (... ...) (t ...)))
=A0=A0(let* ((org-age= nda-multi t) (redo ...) (cmds ...) (gprops ...) match cmd type lprops) (whi= le (setq cmd ...) (setq type ... match ... lprops ...) (cond ... ... ... ..= . ... ... ... ... ...)) (widen) (setq org-agenda-redo-command redo) (goto-c= har (point-min)))
=A0=A0org-run-agenda-series("SUMO" (((agenda nil ...) (allto= do nil ...) (todo #("DELEGATED" 0 9 ...) ...) (todo #("DONE|= DEFERRED|CANCELLED" 0 23 ...) ...) (todo #("WAITING" 0 7 ...= ) ...) (agenda "" ...) (agenda "" ...) (alltodo "&= quot; ...)) ((org-agenda-compact-blocks nil)) ("/home/cameron/mnt/mydi= sk/org/agendas.org")))
=A0=A0(if (or (symbolp ...) (functionp ...)) (progn (setq type ... mat= ch ... lprops ...) (put ... ... lprops) (cond ... ... ... ... ... ... ... .= .. ... ... ... ... ...)) (org-run-agenda-series (nth 1 entry) (cddr entry))= )
=A0=A0(cond ((setq entry ...) (if ... ... ...)) ((equal keys "C&q= uot;) (setq org-agenda-custom-commands org-agenda-custom-commands-orig) (cu= stomize-variable ...)) ((equal keys "a") (call-interactively ...)= ) ((equal keys "s") (call-interactively ...)) ((equal keys "= t") (call-interactively ...)) ((equal keys "T") (org-call-wi= th-arg ... ...)) ((equal keys "m") (call-interactively ...)) ((eq= ual keys "M") (org-call-with-arg ... ...)) ((equal keys "e&q= uot;) (call-interactively ...)) ((equal keys "?") (org-tags-view = nil "+FLAGGED") (org-add-hook ... ... t t)) ((equal keys "L&= quot;) (unless ... ...) (unless restriction ... ...)) ((equal keys "#&= quot;) (call-interactively ...)) ((equal keys "/") (call-interact= ively ...)) ((equal keys "!") (customize-variable ...)) (t (error= "Invalid agenda key")))
=A0=A0(let* ((prefix-descriptions nil) (org-agenda-window-setup ...) (= org-agenda-custom-commands-orig org-agenda-custom-commands) (org-agenda-cus= tom-commands ...) (buf ...) (bfn ...) entry key type match lprops ans) (unl= ess org-agenda-overriding-restriction (unless ... ...) (setq org-agenda-res= trict nil) (move-marker org-agenda-restrict-begin nil) (move-marker org-age= nda-restrict-end nil)) (put (quote org-agenda-redo-command) (quote org-lpro= ps) nil) (setq org-agenda-last-dispatch-buffer (current-buffer)) (unless ke= ys (setq ans ... keys ... restriction ...)) (when (and ... restriction) (pu= t ... ... ...) (cond ... ...)) (require (quote calendar)) (cond (... ...) (= ... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (.= .. ...) (... ... ...) (... ... ...) (... ...) (... ...) (... ...) (t ...)))=
=A0=A0(catch (quote exit) (let* (... ... ... ... ... ... entry key typ= e match lprops ans) (unless org-agenda-overriding-restriction ... ... ... .= ..) (put ... ... nil) (setq org-agenda-last-dispatch-buffer ...) (unless ke= ys ...) (when ... ... ...) (require ...) (cond ... ... ... ... ... ... ... = ... ... ... ... ... ... ... ...)))
=A0=A0org-agenda(nil "X")
=A0=A0(let ((org-agenda-= compact-blocks nil)) (org-agenda nil "X"))
=A0=A0eval((= let ((org-agenda-compact-blocks nil)) (org-agenda nil "X")))
=A0=A0(progn (eval (list ... ... ...)) (set-buffer org-agenda-buffer-= name) (while files (eval ...)) (and (get-buffer org-agenda-buffer-name) (ki= ll-buffer org-agenda-buffer-name)))
=A0=A0(if files (progn (eval ...) (set-buffer org-agenda-buffer-name) = (while files ...) (and ... ...)))
=A0=A0(when files (eval (list .= .. ... ...)) (set-buffer org-agenda-buffer-name) (while files (eval ...)) (= and (get-buffer org-agenda-buffer-name) (kill-buffer org-agenda-buffer-name= )))
=A0=A0(while cmds (setq cmd (pop cmds) thiscmdkey (car cmd) cmd-or-set= (nth 2 cmd) opts (nth ... cmd) files (nth ... cmd)) (if (stringp files) (s= etq files ...)) (when files (eval ...) (set-buffer org-agenda-buffer-name) = (while files ...) (and ... ...)))
=A0=A0(save-window-excursion (while cmds (setq cmd ... thiscmdkey ... = cmd-or-set ... opts ... files ...) (if ... ...) (when files ... ... ... ...= )))
=A0=A0(let ((cmds ...) (pop-up-frames nil) (dir default-direc= tory) pars cmd thiscmdkey files opts cmd-or-set) (while parameters (push ..= . pars)) (setq pars (reverse pars)) (save-window-excursion (while cmds ... = ... ...)))
=A0=A0(lambda (&rest parameters) "Run all custom agenda comma= nds that have a file argument." (let (... ... ... pars cmd thiscmdkey = files opts cmd-or-set) (while parameters ...) (setq pars ...) (save-window-= excursion ...)))()
=A0=A0(org-batch-store-agenda-views)
=A0=A0eval((org-batch-s= tore-agenda-views))
=A0=A0org-store-agenda-views()
=A0= =A0(progn (org-store-agenda-views))
=A0=A0(if sumo (progn (org-st= ore-agenda-views)))
=A0=A0(when sumo (org-store-agenda-views))
=A0=A0(let* ((fil= e ...) (sumo ...) (org-agenda-custom-commands ...) (org-mobile-creating-age= ndas t)) (unless (file-writable-p file) (error "Cannot write to file %= s" file)) (when sumo (org-store-agenda-views)))
=A0=A0org-mobile-create-sumo-agenda()
=A0=A0(let ((inhibit-r= edisplay t)) (org-mobile-create-sumo-agenda))
=A0=A0(save-window-= excursion (org-mobile-check-setup) (org-mobile-prepare-file-lists) (run-hoo= ks (quote org-mobile-pre-push-hook)) (message "Creating agendas...&quo= t;) (let (...) (org-mobile-create-sumo-agenda)) (message "Creating age= ndas...done") (org-save-all-org-buffers) (message "Copying files.= ..") (org-mobile-copy-agenda-files) (message "Writing index file.= ..") (org-mobile-create-index-file) (message "Writing checksums..= .") (org-mobile-write-checksums) (run-hooks (quote org-mobile-post-pus= h-hook)))
=A0=A0(save-excursion (save-window-excursion (org-mobile-check-setup) = (org-mobile-prepare-file-lists) (run-hooks ...) (message "Creating age= ndas...") (let ... ...) (message "Creating agendas...done") = (org-save-all-org-buffers) (message "Copying files...") (org-mobi= le-copy-agenda-files) (message "Writing index file...") (org-mobi= le-create-index-file) (message "Writing checksums...") (org-mobil= e-write-checksums) (run-hooks ...)))
=A0=A0(let ((org-agenda-buffer-name "*SUMO*") (org-agenda-fi= lter org-agenda-filter) (org-agenda-redo-command org-agenda-redo-command)) = (save-excursion (save-window-excursion ... ... ... ... ... ... ... ... ... = ... ... ... ... ...)))
=A0=A0(let ((a-buffer ...)) (let (... ... ...) (save-excursion ...)) (= redraw-display) (when (and a-buffer ...) (if ... ... ...)))
=A0= =A0org-mobile-push()
=A0=A0call-interactively(org-mobile-push nil= nil)


--


Cameron Horsburgh
blo= g: http://spiritcry.wordpress.co= m
--001636e1f99482fb11047c9e740c-- --===============2070389943== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --===============2070389943==--