;; evaluate this buffer to make it work (defun my-publishing-header () (if (file-exists-p "adds/header.wiki") (insert-file "adds/header.wiki") " <lisp>(emacs-wiki-page-title)</lisp> emacs-wiki-meta-http-equiv\" content=\"emacs-wiki-meta-content\"> emacs-wiki-maintainer\"> (emacs-wiki-published-name emacs-wiki-home-page)\"> (emacs-wiki-published-name emacs-wiki-index-page)\"> emacs-wiki-style-sheet

(emacs-wiki-page-title)

\n")) (setq emacs-wiki-publishing-header "(my-publishing-header)") (defun my-publishing-footer () (if (file-exists-p "adds/footer.wiki") (insert-file "adds/footer.wiki") "
(if buffer-file-name (concat \"Mise à\; jour \;: \" (format-time-string emacs-wiki-footer-date-format (nth 5 (file-attributes buffer-file-name))) (and emacs-wiki-serving-p (emacs-wiki-editable-p (emacs-wiki-page-name)) (concat \" / \" (emacs-wiki-link-href (concat \"editwiki?\" (emacs-wiki-page-name)) \"Edit\"))) \"\")) (concat (and (emacs-wiki-page-file emacs-wiki-home-page t) (not (emacs-wiki-private-p emacs-wiki-home-page)) (concat (emacs-wiki-link-href emacs-wiki-home-page \"Home\") \" / \")) (emacs-wiki-link-href emacs-wiki-index-page \"Index\") (and (emacs-wiki-page-file \"ChangeLog\" t) (not (emacs-wiki-private-p \"ChangeLog\")) (concat \" / \" (emacs-wiki-link-href \"ChangeLog\" \"Modifications\")))) (if emacs-wiki-serving-p (concat \"\" (emacs-wiki-link-href \"searchwiki?get\" \"Search\") (and buffer-file-name (concat \" / \" (emacs-wiki-link-href (concat \"searchwiki?q=\" (emacs-wiki-page-name)) \"Referrers\"))) \"\"))
\n")) (setq emacs-wiki-publishing-footer "(my-publishing-footer)") (defsubst emacs-wiki-link-href-menu (name) "Return an item for the menu with NAME. Use .menu stylesheet class for menu item. " (concat "

" name "

"))