diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-10-05 08:15:55 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2016-10-05 08:15:55 -0400 |
| commit | 6d05c378d03253ca829ffdb65777535bf2a7ff8d (patch) | |
| tree | 19c7935b334132390492edd95090a64dad1cd529 /src/Text/Pandoc/Writers | |
| parent | 4eba314c242aa44db4aed48f99973e07dc4ae435 (diff) | |
| download | pandoc-6d05c378d03253ca829ffdb65777535bf2a7ff8d.tar.gz | |
Docx writer: Move one more env var to Reader monad
PrintWidth is set at the beginning and stays the same throughout the
document writing, so we just set it as an env variable in the Reader
monad.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 9081c0a20..a006773d6 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -100,7 +100,7 @@ data WriterEnv = WriterEnv{ envTextProperties :: [Element] , envInDel :: Bool , envChangesAuthor :: String , envChangesDate :: String - + , envPrintWidth :: Integer } defaultWriterEnv :: WriterEnv @@ -112,6 +112,7 @@ defaultWriterEnv = WriterEnv{ envTextProperties = [] , envInDel = False , envChangesAuthor = "unknown" , envChangesDate = "1969-12-31T19:00:00Z" + , envPrintWidth = 1 } data WriterState = WriterState{ @@ -122,7 +123,6 @@ data WriterState = WriterState{ , stLists :: [ListMarker] , stInsId :: Int , stDelId :: Int - , stPrintWidth :: Integer , stStyleMaps :: StyleMaps , stFirstPara :: Bool , stTocTitle :: [Inline] @@ -139,7 +139,6 @@ defaultWriterState = WriterState{ , stLists = [NoMarker] , stInsId = 1 , stDelId = 1 - , stPrintWidth = 1 , stStyleMaps = defaultStyleMaps , stFirstPara = False , stTocTitle = normalizeInlines [Str "Table of Contents"] @@ -259,8 +258,7 @@ writeDocx opts doc@(Pandoc meta _) = do metaValueToInlines <$> lookupMeta "toc-title" meta let initialSt = defaultWriterState { - stPrintWidth = (maybe 420 (\x -> quot x 20) pgContentWidth) - , stStyleMaps = styleMaps + stStyleMaps = styleMaps , stTocTitle = tocTitle } @@ -273,6 +271,7 @@ writeDocx opts doc@(Pandoc meta _) = do envRTL = isRTLmeta , envChangesAuthor = fromMaybe "unknown" username , envChangesDate = formatTime defaultTimeLocale "%FT%XZ" utctime + , envPrintWidth = (maybe 420 (\x -> quot x 20) pgContentWidth) } @@ -1171,7 +1170,7 @@ inlineToOpenXML' opts (Link _ txt (src,_)) = do return [ mknode "w:hyperlink" [("r:id",id')] contents ] inlineToOpenXML' opts (Image attr alt (src, _)) = do -- first, check to see if we've already done this image - pageWidth <- gets stPrintWidth + pageWidth <- asks envPrintWidth imgs <- gets stImages case M.lookup src imgs of Just (_,_,_,elt,_) -> return [elt] |