git.iko.soy/typeable/pandoc
on master help sign in
RST reader: keep `name` property in `imgAttr`. (#5637)
1d9ff85Brian Leung
src/Text/Pandoc/Readers/RST.hs+1−1
compare with master
unifiedsplit
@@ -645,7 +645,7 @@ directive' = do
645 name = trim $ fromMaybe "" (lookup "name" fields)
645 name = trim $ fromMaybe "" (lookup "name" fields)
646 classes = words $ maybe "" trim (lookup "class" fields)
646 classes = words $ maybe "" trim (lookup "class" fields)
647 keyvals = [(k, trim v) | (k, v) <- fields, k /= "name", k /= "class"]
647 keyvals = [(k, trim v) | (k, v) <- fields, k /= "name", k /= "class"]
648− imgAttr cl = ("", classes ++ alignClasses, widthAttr ++ heightAttr)
648+ imgAttr cl = (name, classes ++ alignClasses, widthAttr ++ heightAttr)
649 where
649 where
650 alignClasses = words $ maybe "" trim (lookup cl fields) ++
650 alignClasses = words $ maybe "" trim (lookup cl fields) ++
651 maybe "" (\x -> "align-" ++ trim x)
651 maybe "" (\x -> "align-" ++ trim x)
test/command/5619.mdnew file+10
@@ -0,0 +1,10 @@
1+```
2+% pandoc -f rst -t native
3+.. figure:: img1.jpg
4+ :width: 1in
5+ :name: test
6+
7+ The caption. Here's what piggybacking on caption would look like {#fig:1}
8+^D
9+[Para [Image ("test",[],[("width","1in")]) [Str "The",Space,Str "caption.",Space,Str "Here's",Space,Str "what",Space,Str "piggybacking",Space,Str "on",Space,Str "caption",Space,Str "would",Space,Str "look",Space,Str "like",Space,Str "{#fig:1}"] ("img1.jpg","fig:")]]
10+```