Txt2Tags Reader: Parse Meta information

The header is now parsed as meta information. The first line is the
`title`, the second is the `author` and third line is the `date`.

3 files changed, 39 insertions, 13 deletions

diff --git a/src/Text/Pandoc/Readers/Txt2Tags.hs b/src/Text/Pandoc/Readers/Txt2Tags.hs
index dc221568c..8391c6062 100644
--- a/src/Text/Pandoc/Readers/Txt2Tags.hs
+++ b/src/Text/Pandoc/Readers/Txt2Tags.hs
@@ -92,15 +92,41 @@ readTxt2TagsNoMacros = readTxt2Tags def
 parseT2T :: T2T Pandoc
 parseT2T = do
   -- Parse header if standalone flag is set
-  optional ((readerStandalone . stateOptions <$> getState) 
-            >>= guard 
-            >> (() <$ (try blankline) <|> () <$ (count 3 anyLine)))
+  standalone <- getOption readerStandalone
+  when standalone parseHeader
+  body <- mconcat <$>  manyTill block eof
+  meta' <- stateMeta <$> getState
+  return $ Pandoc meta' (B.toList body)
+
+parseHeader :: T2T ()
+parseHeader = do
+  () <$ try blankline <|> header
+  meta <- stateMeta <$> getState
+  optional blanklines
   config <- manyTill setting (notFollowedBy setting)
   -- TODO: Handle settings better
-  let settings = foldr (\(k,v) -> B.setMeta k (MetaString v)) nullMeta config
-  updateState (\s -> s {stateMeta = settings})
-  body <- mconcat <$>  manyTill block eof
-  return $ Pandoc mempty (B.toList body)
+  let settings = foldr (\(k,v) -> B.setMeta k (MetaString v)) meta config
+  updateState (\s -> s {stateMeta = settings}) <* optional blanklines
+
+header :: T2T ()
+header = titleline >> authorline >> dateline
+
+headerline :: B.ToMetaValue a => String -> T2T a -> T2T ()
+headerline field p = (() <$ try blankline)
+                        <|> (p >>= updateState . B.setMeta field)
+
+titleline :: T2T ()
+titleline =
+  headerline "title" (trimInlines . mconcat <$> manyTill inline newline)
+
+authorline :: T2T ()
+authorline =
+  headerline "author" (sepBy author (char ';') <* newline)
+  where
+    author = trimInlines . mconcat <$> many (notFollowedBy (char ';' <|> newline) >> inline)
+
+dateline :: T2T ()
+dateline = headerline "date" (trimInlines . mconcat <$> manyTill inline newline)
 
 type Keyword = String
 type Value = String
@@ -245,7 +271,7 @@ indentWith n = count n space
 
 table :: T2T Blocks
 table = try $ do
-  header <- fmap snd <$> option mempty (try headerRow)
+  tableHeader <- fmap snd <$> option mempty (try headerRow)
   rows <- many1 (many commentLine *> tableRow)
   let columns = transpose rows
   let ncolumns = length columns
@@ -253,7 +279,7 @@ table = try $ do
   let rows' = map (map snd) rows
   let size = maximum (map length rows')
   let rowsPadded = map (pad size) rows'
-  let headerPadded = if (not (null header)) then pad size header else mempty
+  let headerPadded = if (not (null tableHeader)) then pad size tableHeader else mempty
   return $ B.table mempty
                     (zip aligns (replicate ncolumns 0.0))
                       headerPadded rowsPadded
@@ -500,7 +526,7 @@ image =  try $ do
 
 -- Characters used in markup
 specialChars :: String
-specialChars = "%*-_/|:+"
+specialChars = "%*-_/|:+;"
 
 tab :: T2T Char
 tab = char '\t'
diff --git a/tests/txt2tags.native b/tests/txt2tags.native
index 5e741b609..189c099e2 100644
--- a/tests/txt2tags.native
+++ b/tests/txt2tags.native
@@ -1,4 +1,4 @@
-Pandoc (Meta {unMeta = fromList []})
+Pandoc (Meta {unMeta = fromList [("author",MetaList [MetaInlines [Str "author"]]),("date",MetaInlines [Str "date"]),("includeconf",MetaString "rules.conf"),("title",MetaInlines [Str "Txt2tags",Space,Str "Markup",Space,Str "Rules"])]})
 [Para [Str "This",Space,Str "document",Space,Str "describes",Space,Str "all",Space,Str "the",Space,Str "details",Space,Str "about",Space,Str "each",Space,Str "txt2tags",Space,Str "mark.",Space,Str "The",Space,Str "target",Space,Str "audience",Space,Str "are",Space,Strong [Str "experienced"],Space,Str "users.",Space,Str "You",Space,Str "may",Space,Str "find",Space,Str "it",Space,Str "useful",Space,Str "if",Space,Str "you",Space,Str "want",Space,Str "to",Space,Str "master",Space,Str "the",Space,Str "marks",Space,Str "or",Space,Str "solve",Space,Str "a",Space,Str "specific",Space,Str "problem",Space,Str "about",Space,Str "a",Space,Str "mark."]
 ,Para [Str "If",Space,Str "you",Space,Str "are",Space,Str "new",Space,Str "to",Space,Str "txt2tags",Space,Str "or",Space,Str "just",Space,Str "want",Space,Str "to",Space,Str "know",Space,Str "which",Space,Str "are",Space,Str "the",Space,Str "available",Space,Str "marks,",Space,Str "please",Space,Str "read",Space,Str "the",Space,Link [Str "Markup",Space,Str "Demo"] ("MARKUPDEMO",""),Str "."]
 ,Para [Str "Note",Space,Str "1:",Space,Str "This",Space,Str "document",Space,Str "is",Space,Str "generated",Space,Str "directly",Space,Str "from",Space,Str "the",Space,Str "txt2tags",Space,Str "test-suite.",Space,Str "All",Space,Str "the",Space,Str "rules",Space,Str "mentioned",Space,Str "here",Space,Str "are",Space,Str "100%",Space,Str "in",Space,Str "sync",Space,Str "with",Space,Str "the",Space,Str "current",Space,Str "program",Space,Str "code."]
diff --git a/tests/txt2tags.t2t b/tests/txt2tags.t2t
index e282498d0..d374b7a85 100644
--- a/tests/txt2tags.t2t
+++ b/tests/txt2tags.t2t
@@ -1,6 +1,6 @@
 Txt2tags Markup Rules
-
-
+author
+date
 %!includeconf: rules.conf
 
 This document describes all the details about each txt2tags mark.