(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-html-style-sheet
(muse-publishing-directive "title")