use lofTitle, lotTitle from Translations instead of WriterState

jgm · Jul 31, 2024 · 7a3b5e9 · 7a3b5e9
1 parent 709e336
commit 7a3b5e9
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 18 deletions.
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
@@ -175,19  175,9 @@ writeDocx opts doc = do
                    [] -> stTocTitle defaultWriterState
                    ls -> ls
 
-  let lofTitle = case lookupMetaInlines "lof-title" meta of
-                   [] -> stLofTitle defaultWriterState
-                   ls -> ls
-
-  let lotTitle = case lookupMetaInlines "lot-title" meta of
-                   [] -> stLotTitle defaultWriterState
-                   ls -> ls
-
   let initialSt = defaultWriterState {
           stStyleMaps  = styleMaps
         , stTocTitle   = tocTitle
-        , stLofTitle   = lofTitle
-        , stLotTitle   = lotTitle
         , stCurId      = 20
         }
 

diff --git a/src/Text/Pandoc/Writers/Docx/OpenXML.hs b/src/Text/Pandoc/Writers/Docx/OpenXML.hs
@@ -174,8  174,7 @@ makeTOC opts = do
 makeLOF :: (PandocMonad m) => WriterOptions -> WS m [Element]
 makeLOF opts = do
   let lofCmd = "TOC \\h \\z \\t \"Image Caption\" \\c" :: Text
-  lofTitle <- gets stLofTitle
-  -- Create a separate style for LOF Heading?
   lofTitle <- T.text <$> translateTerm Term.ListOfFigures
   title <- withParaPropM (pStyleM "TOC Heading") (blocksToOpenXML opts [Para lofTitle])
   return
     [mknode "w:sdt" [] [
@@ -200,8  199,7 @@ makeLOF opts = do
 makeLOT :: (PandocMonad m) => WriterOptions -> WS m [Element]
 makeLOT opts = do
   let lotCmd = "TOC \\h \\z \\t \"Table Caption\" \\c" :: Text
-  lotTitle <- gets stLotTitle
-  -- Create a separate style for LOT Heading?
   lotTitle <- T.text <$> translateTerm Term.ListOfTables
   title <- withParaPropM (pStyleM "TOC Heading") (blocksToOpenXML opts [Para lotTitle])
   return
     [mknode "w:sdt" [] [

diff --git a/src/Text/Pandoc/Writers/Docx/Types.hs b/src/Text/Pandoc/Writers/Docx/Types.hs
@@ -124,8  124,6 @@ data WriterState = WriterState{
        , stInTable        :: Bool
        , stInList         :: Bool
        , stTocTitle       :: [Inline]
-       , stLofTitle       :: [Inline]
-       , stLotTitle       :: [Inline]
        , stDynamicParaProps :: Set.Set ParaStyleName
        , stDynamicTextProps :: Set.Set CharStyleName
        , stCurId          :: Int
@@ -150,8  148,6 @@ defaultWriterState = WriterState{
       , stInTable        = False
       , stInList         = False
       , stTocTitle       = [Str "Table of Contents"]
-      , stLofTitle       = [Str "List of Figures"]
-      , stLotTitle       = [Str "List of Tables"]
       , stDynamicParaProps = Set.empty
       , stDynamicTextProps = Set.empty
       , stCurId          = 20