(muse-html-encoding)"?> <lisp> (let ((current-project (car (muse-project-of-file muse-publishing-current-file)))) (concat (when current-project (concat current-project " - ")) (muse-publishing-directive "title")))</lisp>

(muse-wiki-publish-pretty-title)