[emacs-wiki-discuss] Re: planner-muse: setup trouble, mismatched muse version?

[Gerd Flaig]

Michael Olson <address@hidden> writes:

> Gerd Flaig <address@hidden> writes:
>
>> while trying to setup planner-muse, I get errors like the following
>> when publishing:
>>
>>    WelcomePage: Error occured: (void-function muse-insert-markup)
>
> Thanks for the report!  This should be fixed now.
>
> I'm not sure why my site was unavailable to you.  It's been up for 22
> straight days.  I'll generate an updated planner-muse-el package.

I can reach your HTTP server now.

Unfortunately, the void-function problem is still there. With
debug-on-error I got the attached backtrace. What I don't understand
is this: 

   (defun planner-publish-section-tag (beg end attrs)
     (save-excursion
       (goto-char beg)
       (planner-insert-markup (muse-markup-text 'planner-begin-section))
       (goto-char end)
       (planner-insert-markup (muse-markup-text 'planner-end-section))))

The function muse-insert-markup is called from
planner-publish-section-tag according to the backtrace, but there is
no such call in the definition of that function. Right above in the
source, this can be found:

   (if (fboundp 'muse-insert-markup)
       (defalias 'planner-insert-markup 'muse-insert-markup)
     (defsubst planner-insert-markup (&rest args)
       (apply 'insert args)))

I don't know how to find out what the current definition of
planner-insert-markup really is, but evaluating (fboundp
'muse-insert-markup) yields nil. When I manually evaluate

   (defsubst planner-insert-markup (&rest args)
     (apply ínsert args))

and afterwards re-evaluate the planner-publish-section-tag defun and
retry muse-publish-this-page, the error is in a different function now
but of the same nature (muse-insert-markup called from
planner-publish-title-tag).

So it seems to me that for some reason, (fboundp 'muse-insert-markup)
returns t when compiling planner-publish.el. I could use some tips who
to proceed...

      Goodbyte, Gerd.


Debugger entered--Lisp error: (void-function muse-insert-markup)
  muse-insert-markup("<div class=\"section\">")
  planner-publish-section-tag(465 #<marker at 1043 in  *muse-temp*<2>> nil)
  apply(planner-publish-section-tag (465 #<marker at 1043 in  *muse-temp*<2>> 
nil))
  muse-publish-markup-tag()
  muse-publish-markup("WelcomePage" ((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 "^\\(\\W*\\)#\\(\\S-+\\)\\s-*" 0 anchor) (1500 
muse-explicit-link-regexp 0 muse-publish-mark-noemphasis) (1600 "\\(^\\|[-[     
   \n<('`\"]\\)\\(=[^=     \n]\\|_[^_      \n]\\|\\*+[^*   \n]\\)" 2 word) 
(1700 "^\\(\\*+\\)\\s-+" 0 heading) (1800 "\\.\\.\\.\\." 0 enddots) (1850 
"\\.\\.\\." 0 dots) (1900 "^----+" 0 rule) (2000 "^Footnotes:?\\s-*" 0 fn-sep) 
(2100 "\\[\\([1-9][0-9]*\\)\\]" 0 footnote) (2200 "^[  ]+\\(-[         
]*\\|[0-9]+\\.[         ]*\\|\\(?:.+?\\)[       ]+::\n?\\)" 1 list) (2300 
"^\\(\\(?:.+?\\)[     ]+::\n?\\)" 0 list) (2400 "^\\([        ]+\\)" 0 quote) 
(2500 "\\(^\\|[         ]+\\)--\\($\\|[         ]+\\)" 0 emdash) (2600 "^[      
]*> " 0 verse) (2700 "^[        ]*\\(.+?\\([    ]+|+[   ]+.+?\\)\\)$" 0 table) 
(2900 muse-explicit-link-regexp 0 link) (3000 muse-url-regexp 0 url) (3100 
muse-wiki-interwiki-regexp 0 link) (3200 muse-wiki-wikiword-regexp 0 link) 
(3200 planner-date-regexp 0 link) (3500 
"\\([^[]\\)address@hidden([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+" 0 email) (10000 "  
</t\\(body\\|head\\|foot\\)>\\s-*</table>\\([      ]*\n\\)\\{0,2\\}[       
]*<table[^>]*>\\s-*<t\\1>\n" 0 "") (10100 "</table>\\([         
]*\n\\)\\{0,2\\}[       ]*<table[^>]*>\n" 0 "") (10200 "</\\([oud]l\\)>\\([     
]*\n\\)\\{0,2\\}[       ]*<\\1>\\s-*" 0 "") (10300 
"\\(\n</\\(blockquote\\|center\\)>\\)?\\(\\(\n\\([   
]*\n\\)+\\)\\|\\`\\s-*\\|\\s-*\\'\\)\\(<\\(blockquote\\|center\\)>\n\\)?" 0 
muse-html-markup-paragraph)))
  muse-publish-markup-region(1 1283 "WelcomePage" ("planner-html" :regexps 
planner-publish-markup-regexps :functions planner-publish-markup-functions 
:tags planner-publish-markup-tags :strings planner-html-markup-strings :before 
planner-publish-prepare-buffer :header planner-html-header :footer 
planner-html-footer :base "html"))
  muse-publish-markup-buffer("WelcomePage" ("planner-html" :regexps 
planner-publish-markup-regexps :functions planner-publish-markup-functions 
:tags planner-publish-markup-tags :strings planner-html-markup-strings :before 
planner-publish-prepare-buffer :header planner-html-header :footer 
planner-html-footer :base "html"))
  muse-publish-file("/home/gefla/plans/WelcomePage.muse" ("planner-html" 
:regexps planner-publish-markup-regexps :functions 
planner-publish-markup-functions :tags planner-publish-markup-tags :strings 
planner-html-markup-strings :before planner-publish-prepare-buffer :header 
planner-html-header :footer planner-html-footer :base "html") "/tmp/" nil)
  muse-publish-this-file(("planner-html" :regexps 
planner-publish-markup-regexps :functions planner-publish-markup-functions 
:tags planner-publish-markup-tags :strings planner-html-markup-strings :before 
planner-publish-prepare-buffer :header planner-html-header :footer 
planner-html-footer :base "html") "/tmp/" nil)
* call-interactively(muse-publish-this-file)
  execute-extended-command(nil)
* call-interactively(execute-extended-command)

-- 
The last thing one knows in constructing a work is what to put first.
                -- Blaise Pascal

Jabber: address@hidden