[emacs-wiki-discuss] Problem with publishing planner files

[Arnaud Bailly]

Hi to all,
After having updated muse with tla from muse--main, I have problems with 
publishing my planner pages. The problem seems to occur in the "* Notes" 
section. I have attached a backtrace of the error and a sample file on 
which publishing chokes.

If someone can help...

--
Arnaud Bailly, Dr. - Ingénieur de Recherche
NORSYS
1, rue de la Cense des Raines
ZAC du Moulin
59710 ENNEVELIN
Tel : (33) 3 28 76 56 76
Fax : (33) 3 28 76 57 00
Web : http://www.norsys.fr

Debugger entered--Lisp error: (wrong-type-argument stringp 0)
  replace-match(0 t)
  (if text (replace-match text t))
  (let* (func (text ...)) (if text (replace-match text t)))
  (if (and (> ... 0) (get-text-property ... ...)) nil (let* (func ...) (if text 
...)))
  (unless (and (> ... 0) (get-text-property ... ...)) (let* (func ...) (if text 
...)))
  (while (and regexp (setq pos ...)) (if (and verbose ...) (message "Publishing 
%s...%d%%" name ...)) (unless (and ... ...) (let* ... ...)) (if (and 
muse-publishing-last-position ...) (if ... ... ...)) (setq 
muse-publishing-last-position pos))
  (let ((regexp ...) (group ...) (repl ...) pos) (setq 
muse-publishing-last-position nil) (if (symbolp regexp) (setq regexp ...)) (if 
(and verbose ...) (message "Publishing %s...%d%%" name ...)) (while (and regexp 
...) (if ... ...) (unless ... ...) (if ... ...) (setq 
muse-publishing-last-position pos)))
  (while rules (goto-char (point-min)) (let (... ... ... pos) (setq 
muse-publishing-last-position nil) (if ... ...) (if ... ...) (while ... ... ... 
... ...)) (setq rules (cdr rules) base (+ base ...)))
  (let* ((case-fold-search nil) (inhibit-read-only t) (limit ...) (verbose ...) 
(base 0)) (while rules (goto-char ...) (let ... ... ... ... ...) (setq rules 
... base ...)) (if (and verbose ...) (message "Publishing %s...done" name)))
  muse-publish-markup("notes" ((1000 "\\(\\`\n+\\|\n+\\'\\)" 0 "") (1100 "[     
]+$" 0 "") (1200 "\\`#\\([a-zA-Z-]+\\)\\s-+\\(.+\\)\n+" 0 directive) (1275 
"^#\\([A-C]\\)\\([0-9]*\\)\\s-*\\([_oX>CP]\\)\\s-*\\(.+\\)" 0 task) (1280 
"^\\.#[0-9]+\\s-*" 0 note) (1300 muse-tag-regexp 0 tag) (1350 "^;\\s-+\\(.+\\)" 
0 comment) (1400 muse-explicit-link-regexp 0 muse-publish-mark-noemphasis) 
(1500 "^\\(\\W*\\)#\\(\\S-+\\)\\s-*" 0 anchor) (1600 "\\(^\\|[-[        
<('`\"\n]\\)\\(=[^=     \n]\\|_[^_      \n]\\|\\*+[^*   \n]\\)" 2 word) (1700 
"^\\(\\*+\\)\\s-+" 0 heading) (1800 "\\.\\.\\.\\." 0 enddots) (1850 "\\.\\.\\." 
0 dots) (1900 "^----+" 0 rule) (1950 "~~" 0 no-break-space) (2000 
"^Footnotes:?\\s-*" 0 fn-sep) (2100 "\\[\\([1-9][0-9]*\\)\\]" 0 footnote) (2200 
"^[     ]+\\(-[         ]*\\|[0-9]+\\.[         ]*\\|\\(?:.+?\\)[       
]+::\\)" 1 list) (2300 "^\\(\\(?:.+?\\)[        ]+::\n?\\)" 0 list) (2400 
"^\\([        ]+\\).+" 0 quote) (2500 "\\(^\\|[       ]+\\)--\\($\\|[         
]+\\)" 0 emdash) (2600 "^[      ]*> " 0 verse) (2700 "\\(^[     ]*[^|\n]+[      
]+\\(|+\\)[     ]+[^|\n].*\n\\(         *\n\\)?\\)+" 0 table) (2900 
muse-explicit-link-regexp 0 link) (3000 muse-url-regexp 0 url) (3200 
planner-date-regexp 0 link) (3500 
"\\([^[]\\)address@hidden([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+" 0 email) (10000 
"\\(\\(\n\\([   ]*\n\\)+\\)\\|\\`\\s-*\\|\\s-*\\'\\)" 0 
muse-html-markup-paragraph)))
  (save-restriction (narrow-to-region beg end) (muse-style-run-hooks :before 
style) (muse-publish-markup title (sort ... ...)) (muse-style-run-hooks 
:before-end style) (muse-publish-escape-specials (point-min) (point-max) nil 
(quote document)))
  muse-publish-markup-region(21291 66802 "notes" (:base "planner-html" :path 
"~/norsys/ue/journal/nono/"))
  (save-excursion (muse-publish-markup-region beg (1- end) "notes" 
(muse-style)) (goto-char beg) (planner-insert-markup (muse-markup-text ...)) 
(forward-line 1) (planner-insert-markup (muse-markup-text ...)) (goto-char end) 
(planner-insert-markup (muse-markup-text ...)) (planner-insert-markup 
(muse-markup-text ...)))
  planner-publish-notes-tag(21291 #<marker at 71610 in  *muse-temp*>)
  apply(planner-publish-notes-tag (21291 #<marker at 71610 in  *muse-temp*>))
  (let ((args ...)) (if (nth 2 tag-info) (nconc args ...)) (apply (nth 3 
tag-info) args))
  (progn (setq end (point-marker)) (delete-region start beg) (goto-char start) 
(let (...) (if ... ...) (apply ... args)))
  (if tag-info (progn (setq end ...) (delete-region start beg) (goto-char 
start) (let ... ... ...)))
  (when tag-info (setq end (point-marker)) (delete-region start beg) (goto-char 
start) (let (...) (if ... ...) (apply ... args)))
  (let ((closed-tag ...) (start ...) (beg ...) end attrs) (when (nth 2 
tag-info) (let ... ...)) (if (and ... ...) (if ... ... ...)) (when tag-info 
(setq end ...) (delete-region start beg) (goto-char start) (let ... ... ...)))
  (progn (let (... ... ... end attrs) (when ... ...) (if ... ...) (when 
tag-info ... ... ... ...)))
  (if (and tag-info (not ...)) (progn (let ... ... ... ...)))
  (when (and tag-info (not ...)) (let (... ... ... end attrs) (when ... ...) 
(if ... ...) (when tag-info ... ... ... ...)))
  (let ((tag-info ...)) (when (and tag-info ...) (let ... ... ... ...)))
  muse-publish-markup-tag()
  funcall(muse-publish-markup-tag)
  (cond ((and ... ...) (funcall func)) ((functionp repl) (funcall repl)) 
((symbolp repl) (symbol-value repl)) (t repl))
  (let* (func (text ...)) (if text (replace-match text t)))
  (if (and (> ... 0) (get-text-property ... ...)) nil (let* (func ...) (if text 
...)))
  (unless (and (> ... 0) (get-text-property ... ...)) (let* (func ...) (if text 
...)))
  (while (and regexp (setq pos ...)) (if (and verbose ...) (message "Publishing 
%s...%d%%" name ...)) (unless (and ... ...) (let* ... ...)) (if (and 
muse-publishing-last-position ...) (if ... ... ...)) (setq 
muse-publishing-last-position pos))
  (let ((regexp ...) (group ...) (repl ...) pos) (setq 
muse-publishing-last-position nil) (if (symbolp regexp) (setq regexp ...)) (if 
(and verbose ...) (message "Publishing %s...%d%%" name ...)) (while (and regexp 
...) (if ... ...) (unless ... ...) (if ... ...) (setq 
muse-publishing-last-position pos)))
  (while rules (goto-char (point-min)) (let (... ... ... pos) (setq 
muse-publishing-last-position nil) (if ... ...) (if ... ...) (while ... ... ... 
... ...)) (setq rules (cdr rules) base (+ base ...)))
  (let* ((case-fold-search nil) (inhibit-read-only t) (limit ...) (verbose ...) 
(base 0)) (while rules (goto-char ...) (let ... ... ... ... ...) (setq rules 
... base ...)) (if (and verbose ...) (message "Publishing %s...done" name)))
  muse-publish-markup("FrameworkLDAP" ((1000 "\\(\\`\n+\\|\n+\\'\\)" 0 "") 
(1100 "[     ]+$" 0 "") (1200 "\\`#\\([a-zA-Z-]+\\)\\s-+\\(.+\\)\n+" 0 
directive) (1275 "^#\\([A-C]\\)\\([0-9]*\\)\\s-*\\([_oX>CP]\\)\\s-*\\(.+\\)" 0 
task) (1280 "^\\.#[0-9]+\\s-*" 0 note) (1300 muse-tag-regexp 0 tag) (1350 
"^;\\s-+\\(.+\\)" 0 comment) (1400 muse-explicit-link-regexp 0 
muse-publish-mark-noemphasis) (1500 "^\\(\\W*\\)#\\(\\S-+\\)\\s-*" 0 anchor) 
(1600 "\\(^\\|[-[        <('`\"\n]\\)\\(=[^=     \n]\\|_[^_      \n]\\|\\*+[^*  
 \n]\\)" 2 word) (1700 "^\\(\\*+\\)\\s-+" 0 heading) (1800 "\\.\\.\\.\\." 0 
enddots) (1850 "\\.\\.\\." 0 dots) (1900 "^----+" 0 rule) (1950 "~~" 0 
no-break-space) (2000 "^Footnotes:?\\s-*" 0 fn-sep) (2100 
"\\[\\([1-9][0-9]*\\)\\]" 0 footnote) (2200 "^[     ]+\\(-[         
]*\\|[0-9]+\\.[         ]*\\|\\(?:.+?\\)[       ]+::\\)" 1 list) (2300 
"^\\(\\(?:.+?\\)[        ]+::\n?\\)" 0 list) (2400 "^\\([        ]+\\).+" 0 
quote) (2500 "\\(^\\|[       ]+\\)--\\($\\|[         ]+\\)" 0 emdash) (2600 "^[ 
     ]*> " 0 verse) (2700 "\\(^[     ]*[^|\n]+[      ]+\\(|+\\)[     
]+[^|\n].*\n\\(         *\n\\)?\\)+" 0 table) (2900 muse-explicit-link-regexp 0 
link) (3000 muse-url-regexp 0 url) (3200 planner-date-regexp 0 link) (3500 
"\\([^[]\\)address@hidden([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+" 0 email) (10000 
"\\(\\(\n\\([   ]*\n\\)+\\)\\|\\`\\s-*\\|\\s-*\\'\\)" 0 
muse-html-markup-paragraph)))
  (save-restriction (narrow-to-region beg end) (muse-style-run-hooks :before 
style) (muse-publish-markup title (sort ... ...)) (muse-style-run-hooks 
:before-end style) (muse-publish-escape-specials (point-min) (point-max) nil 
(quote document)))
  muse-publish-markup-region(1 49185 "FrameworkLDAP" (:base "planner-html" 
:path "~/norsys/ue/journal/nono/"))
  (let ((style-header ...) (style-footer ...) (muse-publishing-current-style 
style) (muse-publishing-directives ...) (muse-publishing-p t) 
(inhibit-read-only t)) (run-hooks (quote muse-before-publish-hook)) 
(muse-publish-markup-region (point-min) (point-max) title style) (goto-char 
(point-min)) (when style-header (muse-insert-file-or-string style-header 
title)) (goto-char (point-max)) (when style-footer (muse-insert-file-or-string 
style-footer title)) (muse-style-run-hooks :after style) (run-hooks (quote 
muse-after-publish-hook)))
  muse-publish-markup-buffer("FrameworkLDAP" (:base "planner-html" :path 
"~/norsys/ue/journal/nono/"))
  (save-current-buffer (set-buffer temp-buffer) (insert-file-contents file) 
(muse-publish-markup-buffer (muse-page-name file) style) (let (...) (write-file 
output-path)) (muse-style-run-hooks :final style file output-path target))
  (with-current-buffer temp-buffer (insert-file-contents file) 
(muse-publish-markup-buffer (muse-page-name file) style) (let (...) (write-file 
output-path)) (muse-style-run-hooks :final style file output-path target))
  (if debug-on-error (with-current-buffer temp-buffer (insert-file-contents 
file) (muse-publish-markup-buffer ... style) (let ... ...) 
(muse-style-run-hooks :final style file output-path target)) (condition-case 
err (with-current-buffer temp-buffer ... ... ... ...) (error ...)))
  (unwind-protect (if debug-on-error (with-current-buffer temp-buffer ... ... 
... ...) (condition-case err ... ...)) (when (buffer-live-p temp-buffer) 
(with-current-buffer temp-buffer ...) (unless debug-on-error ...)))
  (let ((temp-buffer ...)) (unwind-protect (if debug-on-error ... ...) (when 
... ... ...)))
  (muse-with-temp-buffer (insert-file-contents file) 
(muse-publish-markup-buffer (muse-page-name file) style) (let (...) (write-file 
output-path)) (muse-style-run-hooks :final style file output-path target))
  (progn (if (and muse-publish-report-threshhold ...) (message "Publishing %s 
..." file)) (muse-with-temp-buffer (insert-file-contents file) 
(muse-publish-markup-buffer ... style) (let ... ...) (muse-style-run-hooks 
:final style file output-path target)) t)
  (if (or force (file-newer-than-file-p file target)) (progn (if ... ...) 
(muse-with-temp-buffer ... ... ... ...) t))
  (when (or force (file-newer-than-file-p file target)) (if (and 
muse-publish-report-threshhold ...) (message "Publishing %s ..." file)) 
(muse-with-temp-buffer (insert-file-contents file) (muse-publish-markup-buffer 
... style) (let ... ...) (muse-style-run-hooks :final style file output-path 
target)) t)
  (let* ((output-path ...) (output-suffix ...) (muse-publishing-current-file 
file) (muse-publishing-current-output-path output-path) (target ...)) (when (or 
force ...) (if ... ...) (muse-with-temp-buffer ... ... ... ...) t))
  muse-publish-file("/home/nono/norsys/plans/FrameworkLDAP" (:base 
"planner-html" :path "~/norsys/ue/journal/nono/") "~/norsys/ue/journal/nono/" 
nil)
  (if (muse-publish-file file style output-dir force) (setq published t))
  (let ((output-dir ...)) (unless (file-exists-p output-dir) (message "Creating 
publishing directory %s" output-dir) (make-directory output-dir)) (if 
(muse-publish-file file style output-dir force) (setq published t)))
  (while --dolist-temp--31189 (setq style (car --dolist-temp--31189)) (let 
(...) (unless ... ... ...) (if ... ...)) (setq --dolist-temp--31189 (cdr 
--dolist-temp--31189)))
  (let ((--dolist-temp--31189 styles) style) (while --dolist-temp--31189 (setq 
style ...) (let ... ... ...) (setq --dolist-temp--31189 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... style) (while --dolist-temp--31189 
... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... style) (while --dolist-temp--31189 ... ... ...) nil))
  (dolist (style styles) (let (...) (unless ... ... ...) (if ... ...)))
  (let (published) (dolist (style styles) (let ... ... ...)) published)
  muse-project-publish-file("/home/nono/norsys/plans/FrameworkLDAP" ((:base 
"planner-html" :path "~/norsys/ue/journal/nono/")) nil)
  (if (muse-project-publish-file (cdr pair) styles force) (progn (setq 
forced-files ...) (setq published t)))
  (when (muse-project-publish-file (cdr pair) styles force) (setq forced-files 
(delete ... forced-files)) (setq published t))
  (while --dolist-temp--30917 (setq pair (car --dolist-temp--30917)) (when 
(muse-project-publish-file ... styles force) (setq forced-files ...) (setq 
published t)) (setq --dolist-temp--30917 (cdr --dolist-temp--30917)))
  (let ((--dolist-temp--30917 file-alist) pair) (while --dolist-temp--30917 
(setq pair ...) (when ... ... ...) (setq --dolist-temp--30917 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... pair) (while --dolist-temp--30917 
... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... pair) (while --dolist-temp--30917 ... ... ...) nil))
  (dolist (pair file-alist) (when (muse-project-publish-file ... styles force) 
(setq forced-files ...) (setq published t)))
  (let ((forced-files ...) (file-alist ...)) (dolist (pair file-alist) (when 
... ... ...)) (dolist (file forced-files) (muse-project-publish-file ... styles 
t)))
  (let ((styles ...) (muse-current-project project) published) (unless styles 
(setq styles ...)) (muse-project-save-buffers project) (run-hook-with-args 
(quote muse-before-project-publish-hook) project) (let (... ...) (dolist ... 
...) (dolist ... ...)) (run-hook-with-args (quote 
muse-after-project-publish-hook) project) (if published (message "All pages in 
%s have been published." ...) (message "No pages in %s need publishing at this 
time." ...)))
  muse-project-publish(("WikiPlanner" ("~/norsys/plans" :default "index" 
:force-publish ("index") :major-mode planner-mode :visit-link 
planner-visit-link) (:base "planner-html" :path "~/norsys/ue/journal/nono/")) 
nil)
  call-interactively(muse-project-publish)

* Tasks


* Notes

Notes concernant [[http://uml.sourceforge.net][Umbrello]] ::
 - problème avec l'utilisation des statecharts : les étiquettes des transitions 
 ne sont pas correctes, il manque la possibilité des états imbriqués, ...
 - pas d'attribut =navigability= dans les associations.