(when (muse-publishing-directive "related") (concat "\n

Related:\n " (mapconcat (lambda (page) (concat "" page "")) (split-string (muse-publishing-directive "related")) "\n ") "\n

"))

(concat "[ Front | " (car (muse-project)) "" " | Index | Source" " ]")

Updated (muse-publishing-directive "date")