emacs-wiki-discuss
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [emacs-wiki-discuss] Re: Extra brackets in Planner-Muse


From: Jim Ottaway
Subject: Re: [emacs-wiki-discuss] Re: Extra brackets in Planner-Muse
Date: Sat, 05 Nov 2005 14:46:10 +0000
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux)

>>>>> Marco Gidde <address@hidden> writes:

> Yep, and since I don't use muse-wiki but could reproduce the described
> effect, the missing brackets are the crucial point.

> planner-multi-copy-or-move-task expects explicit links within the
> parenthesis, probably to avoid treeting some random notes (like this
> one) as links. When it finds something different, it falls back to
> planner-copy-or-move-task-basic and the multiple links vanish.


This patch seems to work.  I had to make a new, simpler date regexp:
planner-date-regexp is not suitable since it only matches if the
string is only a date.  I removed the groupings that appear to be
unnecessary.  

Regards,

Jim Ottaway

--- orig/planner-multi.el
+++ mod/planner-multi.el
@@ -205,12 +205,17 @@
                 (or (listp (planner-task-link-text info))
                     (string-match
                      (concat "^\\(" muse-explicit-link-regexp "\\)"
+                              "\\|"
+                              "\\([1-9][0-9][0-9][0-9]\\.[0-9]+\\.[0-9]+\\)"
                              "\\("
                              (regexp-quote planner-multi-separator)
                              "\\("
                              muse-explicit-link-regexp
-                             "\\)\\)+$")
-                     (planner-task-link-text info))))
+                             "\\)"
+                              "\\|"
+                              "\\([1-9][0-9][0-9][0-9]\\.[0-9]+\\.[0-9]+\\)"
+                              "\\)+$")
+                     (planner-task-link-text info))))
             (progn
               (when (equal date (planner-page-name))
                 (error "Cannot move a task back to the same day"))





reply via email to

[Prev in Thread] Current Thread [Next in Thread]