@@ -112,8 +112,6 @@ data WriterState = WriterState{
112112 , stSectionIds :: Set.Set String
113113 , stExternalLinks :: M.Map String String
114114 , stImages :: M.Map FilePath (String, String, Maybe MimeType, Element, B.ByteString)
115− -- , stListLevel :: Int
116− -- , stListNumId :: Int
117115 , stLists :: [ListMarker]
118116 , stInsId :: Int
119117 , stDelId :: Int
@@ -134,8 +132,6 @@ defaultWriterState = WriterState{
134132 , stSectionIds = Set.empty
135133 , stExternalLinks = M.empty
136134 , stImages = M.empty
137− -- , stListLevel = -1
138− -- , stListNumId = 1
139135 , stLists = [NoMarker]
140136 , stInsId = 1
141137 , stDelId = 1
@@ -978,12 +974,6 @@ getTextProps = do
978974 then []
979975 else [mknode "w:rPr" [] props]
980976
981−-- pushTextProp :: Element -> WS ()
982−-- pushTextProp d = modify $ \s -> s{ stTextProperties = d : stTextProperties s }
983−
984−-- popTextProp :: WS ()
985−-- popTextProp = modify $ \s -> s{ stTextProperties = drop 1 $ stTextProperties s }
986−
987977withTextProp :: Element -> WS a -> WS a
988978withTextProp d p =
989979 local (\env -> env {envTextProperties = d : envTextProperties env}) p
@@ -1296,5 +1286,3 @@ setLTR x = do
12961286 , envTextProperties = textProps'
12971287 }
12981288 else x
1299−
1300−