Re: [emacs-wiki-discuss] [bug] latest planner-el.texi seems to be busted

[johnsu01]

Jesse Alama <address@hidden> writes:

> Hello,
>
> It appears that the most recent planner-el.texi is busted.  Here's the output
> of makeinfo:
>

Just the result of some unescaped special characters (one @ and several {)
). Here's the fix:

--- orig/planner-el.texi
+++ mod/planner-el.texi
@@ -5109,7 +5109,7 @@
 
 @smallexample
 ;;; Sacha's configuration for planner.el
-;; Sacha Chua <address@hidden>
+;; Sacha Chua <sacha@@free.net.ph>
 
 ;;;_+ Loading
 
@@ -5298,7 +5298,7 @@
           ;; TODO: Mark the task as scheduled for a particular time
           (setq description
                 (cond
-                 ((string-match 
"^\\(.+\\)\\s-+{{Schedule:\\([^-]+\\)-\\([^}]+\\)}}\\(.*\\)" original)
+                 ((string-match 
"^\\(.+\\)address@hidden@{Schedule:\\([^-]+\\)-\\(address@hidden)@address@hidden(.*\\)"
 original)
                   (setq main (match-string 1 original))
                   (save-excursion
                     (save-match-data
@@ -5312,15 +5312,15 @@
                              nil t)
                         (sacha/planner-diary-unschedule-entry))))
                   (concat (match-string 1 original)
-                          " {{Schedule:"
+                          " @address@hidden:"
                           start
                           "-"
                           end
-                          "}}"
+                          "@address@hidden"
                           (match-string 4 original)))
                  ((string-match "\\(.*\\)\\(\\s-*\\)$" original)
                   (setq main (match-string 1 original))
-                  (replace-match (concat " {{Schedule:" start "-" end "}}")
+                  (replace-match (concat " @address@hidden:" start "-" end 
"@address@hidden")
                                  t t original 2))))
           (planner-edit-task-description description)
           ;; Add the diary entry
@@ -5360,7 +5360,7 @@
   (interactive)
   (goto-char (line-beginning-position))
   (let ((id
-         (if (re-search-forward "{{Tasks:\\([^}]+\\)}}" (line-end-position) t)
+         (if (re-search-forward 
"@address@hidden:\\(address@hidden)@address@hidden" (line-end-position) t)
              (match-string 0)
            nil)))
     (sacha/planner-diary-delete-entry)
@@ -5645,7 +5645,7 @@
   "Highlight IDs as pictures from BEG to END.
 VERBOSE is ignored."
   (goto-char beg)
-  (while (re-search-forward "{{[^}]+}}" end t)
+  (while (re-search-forward "@address@hidden@address@hidden@}" end t)
     (let ((image (planner-id-image (match-string 0))))
       (when image
         (emacs-wiki-inline-image (match-beginning 0)




-- 
-johnsu01
-http://www.wjsullivan.net