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/OpenDocument.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/OpenDocument.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/OpenDocument.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/OpenDocument.hs b/src/Text/Pandoc/Writers/OpenDocument.hs index 0c09cde99..ff405355f 100644 --- a/src/Text/Pandoc/Writers/OpenDocument.hs +++ b/src/Text/Pandoc/Writers/OpenDocument.hs @@ -42,7 +42,7 @@ import Control.Arrow ( (***), (>>>) ) import Control.Monad.State hiding ( when ) import Data.Char (chr, isDigit) import qualified Data.Map as Map -import Text.Pandoc.Shared (metaToJSON, setField) +import Text.Pandoc.Shared (metaToJSON, defField, setField) -- | Auxiliary function to convert Plain block to Para. plainToPara :: Block -> Block @@ -192,8 +192,8 @@ writeOpenDocument opts (Pandoc meta blocks) = listStyles = map listStyle (stListStyles s) automaticStyles = inTagsIndented "office:automatic-styles" $ vcat $ reverse $ styles ++ listStyles - context = setField "body" body - $ setField "automatic-styles" (render' automaticStyles) + context = defField "body" body + $ defField "automatic-styles" (render' automaticStyles) $ foldl (\acc (x,y) -> setField x y acc) metadata (writerVariables opts) in if writerStandalone opts |