git.iko.soy/typeable/pandoc
on master help sign in
Merge pull request #2282 from adunning/patch-1

CommonMark Writer: Correct tags used for superscript/subscript

commit4667f92987b2b38f881a1515da6086eb82de7ba2 authorJohn MacFarlane <jgm@berkeley.edu> dateWed 8 Jul 2015, 11:20 (11 years ago) parent9e528f44850aaf
1 file changed+3−3
compare with master
unifiedsplit
src/Text/Pandoc/Writers/CommonMark.hs+3−3
src/Text/Pandoc/Writers/CommonMark.hs+3−3
@@ -144,11 +144,11 @@ inlineToNodes (Strikeout xs) =
144144 ((node (INLINE_HTML (T.pack "<s>")) [] : inlinesToNodes xs ++
145145 [node (INLINE_HTML (T.pack "</s>")) []]) ++ )
146146inlineToNodes (Superscript xs) =
147− ((node (INLINE_HTML (T.pack "<sub>")) [] : inlinesToNodes xs ++
148− [node (INLINE_HTML (T.pack "</sub>")) []]) ++ )
149−inlineToNodes (Subscript xs) =
150147 ((node (INLINE_HTML (T.pack "<sup>")) [] : inlinesToNodes xs ++
151148 [node (INLINE_HTML (T.pack "</sup>")) []]) ++ )
149+inlineToNodes (Subscript xs) =
150+ ((node (INLINE_HTML (T.pack "<sub>")) [] : inlinesToNodes xs ++
151+ [node (INLINE_HTML (T.pack "</sub>")) []]) ++ )
152152inlineToNodes (SmallCaps xs) =
153153 ((node (INLINE_HTML (T.pack "<span style=\"font-variant:small-caps;\">")) []
154154 : inlinesToNodes xs ++