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

[Jim Ottaway]

>>>>> Gerd Flaig <address@hidden> writes:

> Hi,
> while trying to setup planner-muse, I get errors like the following
> when publishing:

>    WelcomePage: Error occured: (void-function muse-insert-markup)
   
>    ((insert-file-contents file)
>     (muse-publish-markup-buffer
>      (muse-page-name file)
>      style)
>     (let
>         ((backup-inhibited t))
>       (write-file output-path))
>     (muse-style-run-hooks :final style file output-path target))

> I have looked at the code and found

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

> in planner-publish.el, which is the only reference to
> muse-insert-markup in planner-muse apart from planner-authz, which I
> don't use. Evaluating (fboundp 'muse-insert-markup) yields nil.

> Muse itself does not contain the string muse-insert-markup in any .el
> file. When I evaluate (planner-insert-markup "test"), the text "test"
> is inserted in the current buffer as expected. When I evaluate
> (muse-publish-this-file "planner-html""/tmp"), the error shown above
> occurs.

> Now I'm confused and don't know how to continue debugging this. Hints
> would be greatly appreciated.

The defsubst in the above code doesn't get evaluated at compile time.
It should be wrapped in an eval-and-compile like this:

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

[patch below]

> planner-muse-el has been generated via 'dpkg-buildpackage -rfakeroot
> -uc -us -b' from
> address@hidden/planner-muse--peter--1.0--patch-15
> because www.mwolson.org gives me connection refused. The muse-el
> package is the latest one from Debian sid.

I got a connection refused as well on Sunday morning around about
11:00ish I think [+5.00 hours mwolson time?]

--- orig/planner-publish.el
+++ mod/planner-publish.el
@@ -416,10 +416,11 @@
 
 ;;;_ + Tags
 
-(if (fboundp 'muse-insert-markup)
-    (defalias 'planner-insert-markup 'muse-insert-markup)
-  (defsubst planner-insert-markup (&rest args)
-    (apply 'insert args)))
+(eval-and-compile
+  (if (fboundp 'muse-insert-markup)
+      (defalias 'planner-insert-markup 'muse-insert-markup)
+    (defsubst planner-insert-markup (&rest args)
+      (apply 'insert args))))
 
 (defun planner-publish-section-tag (beg end attrs)
   (save-excursion

Regards,

-- 
Jim Ottaway