[emacs-wiki-discuss] how do I get muse to publish html on file save?

[Louis B. Moore]

Muse: 3.02.6
Planner: 3.40

from .emacs

(require 'muse-mode)     ; load authoring mode
(require 'muse-wiki)     ; load publishing styles I use
(require 'muse-html)     ;
(require 'muse-latex)    ;
(require 'muse-colors)   ;
(require 'muse-journal)
(require 'muse-texinfo)  ;

(setq muse-html-extension ".html")
(setq muse-xhtml-extension ".xhtml")
(setq muse-html-style-sheet "<link rel=\"stylesheet\" type=\"text/css\" 
href=\"style.css\" />")

(setq muse-html-header "~/notebook/wiki/.header")
(require 'planner)
(require 'planner-publish)
(load-library "planner-cyclic")

(setq planner-directory "~/notebook/plans")
(setq planner-publishing-directory "~/public_html/planner")
(setq planner-project "WikiPlanner")


(require 'muse-project)
 (setq muse-project-alist
       '(
         ("website" ; my various writings
          ("~/notebook/wiki" :default "WolfPage")
          (:base "html"
                 :header "~/notebook/wiki/.header"
                 :footer "~/notebook/wiki/.footer"
                 :style-sheet "<link rel=\"stylesheet\" type=\"text/css\" 
href=\
"style.css\" />"
                 :path "~/public_html/wiki"))

         ("WikiPlanner"
          ("~/notebook/plans"      ;; where your Planner pages are located
           :default "TaskPool" ;; use value of `planner-default-page'
           :major-mode planner-mode
           :visit-link planner-visit-link)
          (:base "planner-html"
                 :header "~/notebook/plans/.header"
                 :footer "~/notebook/plans/.footer"
                 :style-sheet "<link rel=\"stylesheet\" type=\"text/css\" 
href=\
"style.css\" />"
                 :path "~/public_html/planner"))
         )
       )



IF I try the code from:

http://www.mwolson.org/static/doc/planner/Publishing.html#Publishing

     (eval-after-load "muse-mode"
       (add-hook 'after-save-hook
                 #'(lambda ()
                     (when (planner-derived-mode-p 'muse-mode)
                       (muse-project-publish nil)))
                 nil t))


I get the following:


Wrong number of arguments: (lambda nil (when (planner-derived-mode-p 
(quote muse-mode)) (muse-project-publish nil))), 1



I'm not much of an elisp person, how do I debug this?


Louis