Use separate variables for meta-date, meta-author.

This makes footnotes work in author and date fields.
Closes #301.

src/Text/Pandoc/Writers/HTML.hs

@@ -160,16 +160,16 @@ inTemplate :: TemplateTarget a
            -> [(String,String)]
            -> a
 inTemplate opts tit auths date toc body' newvars =
-  let renderedTit = showHtmlFragment tit
+  let title'      = dropWhile (=='\n') $ showHtmlFragment tit
-      topTitle'   = stripTags renderedTit
+      authors     = map showHtmlFragment auths
-      authors     = map (stripTags . showHtmlFragment) auths
+      date'       = showHtmlFragment date
-      date'       = stripTags $ showHtmlFragment date
       variables   = writerVariables opts ++ newvars
       context     = variables ++
                     [ ("body", dropWhile (=='\n') $ showHtmlFragment body')
-                    , ("pagetitle", topTitle')
+                    , ("pagetitle", stripTags title')
-                    , ("title", dropWhile (=='\n') $ showHtmlFragment tit)
+                    , ("title", title')
                     , ("date", date')
+                    , ("date-meta", stripTags date')
                     , ("idprefix", writerIdentifierPrefix opts)
                     , ("slidy-url", "http://www.w3.org/Talks/Tools/Slidy2")
                     , ("s5-url", "s5/default") ] ++
@@ -177,7 +177,8 @@ inTemplate opts tit auths date toc body' newvars =
                     (case toc of
                          Just t  -> [ ("toc", showHtmlFragment t)]
                          Nothing -> [])  ++
-                    [ ("author", a) | a <- authors ]
+                    [ ("author", a) | a <- authors ] ++
+                    [ ("author-meta", stripTags a) | a <- authors ]
   in  renderTemplate context $ writerTemplate opts
 
 -- | Like Text.XHtml's identifier, but adds the writerIdentifierPrefix

templates

@@ -1 +1 @@
-Subproject commit 6c48030dcd70359e5f9c2eeef8cb01873ac033a6
+Subproject commit 5facbc552da097dd150112457866a7785cfb21d4