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 "<after>KEYS=a
TITLE: Agenda </after>")))
(alltodo nil ((org-agenda-title-append "<after>KEYS=t TITLE: ALL
TODO </after>")))
(todo #("DELEGATED" 0 9 (face org-warning))
((org-agenda-title-append
#("<after>KEYS=d TITLE: todo DELEGATED</after>" 26 35 (face
org-warning)))
)
)
(todo #("DONE|DEFERRED|CANCELLED" 0 23 (face
org-warning))
((org-agenda-title-append
#("<after>KEYS=c TITLE: todo DONE|DEFERRED|CANCELLED</after>"
26 49 (face org-warning))
)
)
)
(todo #("WAITING" 0 7 (face org-warning))
((org-agenda-title-append
#("<after>KEYS=w TITLE: todo WAITING</after>" 26 33 (face org-
warning)))
)
)
(agenda ""
((org-agenda-title-append "<after>KEYS=W TITLE: agenda </
after>") (org-agenda-ndays 21)))
(agenda ""
((org-agenda-title-append "<after>KEYS=A TITLE: agenda
</after>")
(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 "<after>KEYS=u TITLE: alltodo </
after>")
(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 "\\<Cameron Horsburgh\\>"
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 "<after>KEYS=u TITLE: alltodo </
after>") (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 "<after>KEYS=u TITLE: alltodo </after>") (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
_______________________________________________
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
