Changed handling of titles in HTML writer so you don't get "titleprefix - "

followed by nothing. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1159 788f1e2b-df1e-0410-8736-df70ead52e1b
2007-12-29 21:11:33 +00:00 · 2007-12-29 21:11:33 +00:00 · a465c4f659
commit a465c4f659
parent 5e65598b9e
1 changed files with 4 additions and 2 deletions
--- a/Text/Pandoc/Writers/HTML.hs
+++ b/Text/Pandoc/Writers/HTML.hs
@ -72,6 +72,8 @@ writeHtml opts (Pandoc (Meta tit authors date) blocks) =
      topTitle    = evalState (inlineListToHtml opts tit) defaultWriterState
      topTitle'   = if null titlePrefix
                       then topTitle
+                       else if null tit 
+                               then stringToHtml titlePrefix
                               else titlePrefix +++ " - " +++ topTitle
      metadata    = thetitle topTitle' +++ 
                    meta ! [httpequiv "Content-Type",