@@ -58,7 +58,6 @@ import qualified Data.Text as T
60-- [ ] .. parsed-literal
60-- [ ] .. parsed-literal
61−-- [ ] :widths: attribute in .. table
62-- [ ] .. csv-table
61-- [ ] .. csv-table
64-- | Parse reStructuredText string and return Pandoc document.
63-- | Parse reStructuredText string and return Pandoc document.
@@ -1057,7 +1056,6 @@ anonymousKey = try $ do
1057 src <- targetURI
1056 src <- targetURI
1058 pos <- getPosition
1057 pos <- getPosition
1059 let key = toKey $ "_" ++ printf "%09d" (sourceLine pos)
1058 let key = toKey $ "_" ++ printf "%09d" (sourceLine pos)
1060− --TODO: parse width, height, class and name attributes
1061 updateState $ \s -> s { stateKeys = M.insert key ((src,""), nullAttr) $
1059 updateState $ \s -> s { stateKeys = M.insert key ((src,""), nullAttr) $
1062 stateKeys s }
1060 stateKeys s }
@@ -1085,7 +1083,6 @@ regularKey = try $ do
1085 refs <- referenceNames
1083 refs <- referenceNames
1086 src <- targetURI
1084 src <- targetURI
1087 guard $ not (null src)
1085 guard $ not (null src)
1088− --TODO: parse width, height, class and name attributes
1089 let keys = map (toKey . stripTicks) refs
1086 let keys = map (toKey . stripTicks) refs
1090 forM_ keys $ \key ->
1087 forM_ keys $ \key ->
1091 updateState $ \s -> s { stateKeys = M.insert key ((src,""), nullAttr) $
1088 updateState $ \s -> s { stateKeys = M.insert key ((src,""), nullAttr) $
@@ -1115,7 +1112,6 @@ headerBlock = do
1115 ((txt, _), raw) <- withRaw (doubleHeader' <|> singleHeader')
1112 ((txt, _), raw) <- withRaw (doubleHeader' <|> singleHeader')
1116 (ident,_,_) <- registerHeader nullAttr txt
1113 (ident,_,_) <- registerHeader nullAttr txt
1117 let key = toKey (stringify txt)
1114 let key = toKey (stringify txt)
1118− --TODO: parse width, height, class and name attributes
1119 updateState $ \s -> s { stateKeys = M.insert key (('#':ident,""), nullAttr)
1115 updateState $ \s -> s { stateKeys = M.insert key (('#':ident,""), nullAttr)
1120 $ stateKeys s }
1116 $ stateKeys s }
1121 return raw
1117 return raw