diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-06-27 22:42:55 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-06-27 22:42:55 -0700 |
| commit | 899a65b7d157193bdcb05bd4027a9e7a7fc3c9cc (patch) | |
| tree | 7d25a754ed93c137ac6fe1417bfba76de024d5e6 /src/Text/Pandoc/Writers/Man.hs | |
| parent | 9ab60a4d1588cfed153ca9efea9c9546bc0e041b (diff) | |
Writers: Use defField for defaults.
This way explicitly specified fields not overridden.
Fixes a problem e.g. with specifying a documentclass via
the command line using -V.
Diffstat (limited to 'src/Text/Pandoc/Writers/Man.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Man.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs index 31c044ba4..7162ffa17 100644 --- a/src/Text/Pandoc/Writers/Man.hs +++ b/src/Text/Pandoc/Writers/Man.hs @@ -62,15 +62,15 @@ pandocToMan opts (Pandoc meta blocks) = do case break (== ' ') title' of (cmdName, rest) -> case reverse cmdName of (')':d:'(':xs) | isDigit d -> - setField "title" (reverse xs) . - setField "section" [d] . + defField "title" (reverse xs) . + defField "section" [d] . case splitBy (=='|') rest of (ft:hds) -> - setField "footer" (trim ft) . - setField "header" + defField "footer" (trim ft) . + defField "header" (trim $ concat hds) [] -> id - _ -> setField "title" title' + _ -> defField "title" title' metadata <- metaToJSON (fmap (render colwidth) . blockListToMan opts) (fmap (render colwidth) . inlineListToMan opts) @@ -80,9 +80,9 @@ pandocToMan opts (Pandoc meta blocks) = do notes' <- notesToMan opts (reverse notes) let main = render' $ body $$ notes' $$ text "" hasTables <- liftM stHasTables get - let context = setField "body" main + let context = defField "body" main $ setFieldsFromTitle - $ setField "has-tables" hasTables + $ defField "has-tables" hasTables $ foldl (\acc (x,y) -> setField x y acc) metadata (writerVariables opts) if writerStandalone opts |