Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Correct superscript/subscript.

Browse source
This commit is contained in:
Andrew Dunning 2015-07-08 13:57:04 -04:00
parent 9e528f4c0c
commit 4850aaf046
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Text/Pandoc/Writers/CommonMark.hs
View file

@ -144,11 +144,11 @@ inlineToNodes (Strikeout xs) =
((node (INLINE_HTML (T.pack "<s>")) [] : inlinesToNodes xs ++ ((node (INLINE_HTML (T.pack "<s>")) [] : inlinesToNodes xs ++
[node (INLINE_HTML (T.pack "</s>")) []]) ++ ) [node (INLINE_HTML (T.pack "</s>")) []]) ++ )
inlineToNodes (Superscript xs) = inlineToNodes (Superscript xs) =
((node (INLINE_HTML (T.pack "<sub>")) [] : inlinesToNodes xs ++
[node (INLINE_HTML (T.pack "</sub>")) []]) ++ )
inlineToNodes (Subscript xs) =
((node (INLINE_HTML (T.pack "<sup>")) [] : inlinesToNodes xs ++ ((node (INLINE_HTML (T.pack "<sup>")) [] : inlinesToNodes xs ++
[node (INLINE_HTML (T.pack "</sup>")) []]) ++ ) [node (INLINE_HTML (T.pack "</sup>")) []]) ++ )
inlineToNodes (Subscript xs) =
((node (INLINE_HTML (T.pack "<sub>")) [] : inlinesToNodes xs ++
[node (INLINE_HTML (T.pack "</sub>")) []]) ++ )
inlineToNodes (SmallCaps xs) = inlineToNodes (SmallCaps xs) =
((node (INLINE_HTML (T.pack "<span style=\"font-variant:small-caps;\">")) [] ((node (INLINE_HTML (T.pack "<span style=\"font-variant:small-caps;\">")) []
: inlinesToNodes xs ++ : inlinesToNodes xs ++