Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

OpenDocument writer: make 'Figure' term sensitive to lang in metadata.

Browse source 
We use the new translations API.
This commit is contained in:
John MacFarlane 2018-10-03 17:36:52 -07:00
parent d7263a7e5f
commit 58ae017075
1 changed files with 16 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
src/Text/Pandoc/Writers/OpenDocument.hs
View file

@ -39,17 +39,20 @@ import Control.Monad.State.Strict hiding (when)
import Data.Char (chr) import Data.Char (chr)
import Data.List (sortBy) import Data.List (sortBy)
import qualified Data.Map as Map import qualified Data.Map as Map
import Data.Maybe (fromMaybe)
import Data.Ord (comparing) import Data.Ord (comparing)
import qualified Data.Set as Set import qualified Data.Set as Set
import Data.Text (Text) import Data.Text (Text)
import Text.Pandoc.BCP47 (Lang (..), parseBCP47) import Text.Pandoc.BCP47 (Lang (..), parseBCP47)
import Text.Pandoc.Class (PandocMonad, report) import Text.Pandoc.Class (PandocMonad, report, translateTerm,
setTranslations, toLang)
import Text.Pandoc.Definition import Text.Pandoc.Definition
import Text.Pandoc.Logging import Text.Pandoc.Logging
import Text.Pandoc.Options import Text.Pandoc.Options
import Text.Pandoc.Pretty import Text.Pandoc.Pretty
import Text.Pandoc.Shared (linesToPara) import Text.Pandoc.Shared (linesToPara)
import Text.Pandoc.Templates (renderTemplate') import Text.Pandoc.Templates (renderTemplate')
import Text.Pandoc.Translations (Term(Figure))
import Text.Pandoc.Writers.Math import Text.Pandoc.Writers.Math
import Text.Pandoc.Writers.Shared import Text.Pandoc.Writers.Shared
import Text.Pandoc.XML import Text.Pandoc.XML
@ -223,6 +226,9 @@ handleSpaces s
-- | Convert Pandoc document to string in OpenDocument format. -- | Convert Pandoc document to string in OpenDocument format.
writeOpenDocument :: PandocMonad m => WriterOptions -> Pandoc -> m Text writeOpenDocument :: PandocMonad m => WriterOptions -> Pandoc -> m Text
writeOpenDocument opts (Pandoc meta blocks) = do writeOpenDocument opts (Pandoc meta blocks) = do
lang <- fromMaybe (Lang "en" "US" "" []) <$>
toLang (metaValueToString <$> lookupMeta "lang" meta)
setTranslations lang
let colwidth = if writerWrapText opts == WrapAuto let colwidth = if writerWrapText opts == WrapAuto
then Just $ writerColumns opts then Just $ writerColumns opts
else Nothing else Nothing
@ -413,19 +419,20 @@ blockToOpenDocument o bs
| otherwise = do | otherwise = do
id' <- gets stImageId id' <- gets stImageId
imageDoc <- withParagraphStyle o "FigureWithCaption" [Para [Image attr caption (source,title)]] imageDoc <- withParagraphStyle o "FigureWithCaption" [Para [Image attr caption (source,title)]]
captionDoc <- numberedFigureCaption id' <$> inlinesToOpenDocument o caption captionDoc <- inlinesToOpenDocument o caption >>= numberedFigureCaption id'
return $ imageDoc $$ captionDoc return $ imageDoc $$ captionDoc
numberedFigureCaption :: Int -> Doc -> Doc numberedFigureCaption :: PandocMonad m => Int -> Doc -> OD m Doc
numberedFigureCaption num caption = numberedFigureCaption num caption = do
let t = text "Figure " figterm <- translateTerm Figure
r = num - 1 let t = text figterm
s = inTags False "text:sequence" [ ("text:ref-name", "refIllustration" ++ show r), let r = num - 1
let s = inTags False "text:sequence" [ ("text:ref-name", "refIllustration" ++ show r),
("text:name", "Illustration"), ("text:name", "Illustration"),
("text:formula", "ooow:Illustration+1"), ("text:formula", "ooow:Illustration+1"),
("style:num-format", "1") ] $ text $ show num ("style:num-format", "1") ] $ text $ show num
c = text ": " let c = text ": "
in inParagraphTagsWithStyle "FigureCaption" $ hcat [ t, s, c, caption ] return $ inParagraphTagsWithStyle "FigureCaption" $ hcat [ t, text " ", s, c, caption ]
colHeadsToOpenDocument :: PandocMonad m colHeadsToOpenDocument :: PandocMonad m
=> WriterOptions -> [String] -> [[Block]] => WriterOptions -> [String] -> [[Block]]