opensource/pandoc
3
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-31 02:04:53 +08:00
Code Issues Packages Projects Releases Wiki Activity

Typst reader: fix handling of dot(), tilde(), ddot().

Browse Source 
See jgm/typst-hs#38.
This commit is contained in:
John MacFarlane
2024-02-04 22:37:37 -08:00
parent 1e05f32ead
commit 3ef74d1fd2
2 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Readers/Typst/Math.hs
+3 -2
View File
@@ -31,8 +31,6 @@ import Text.Pandoc.Readers.Typst.Parsing
( P, pTok, ignored, pWithContents, getField, chunks )
import Typst.Types
-- import Debug.Trace
withGroup :: [Exp] -> Exp
withGroup [x] = x
withGroup xs = EGrouped xs
@@ -91,6 +89,9 @@ handleMath tok =
base <- getField "base" fields >>= pMathGrouped
acc <- getField "accent" fields >>= pMathGrouped
let acc' = case acc of
ESymbol _ "\8901" -> ESymbol Accent "\775" -- \dot
ESymbol _ "\168" -> ESymbol Accent "\776" -- \ddot
ESymbol _ "\8764" -> ESymbol Accent "\771" -- \tilde
ESymbol _ t -> ESymbol Accent t
_ -> acc
pure $ EOver False base acc'
test/typst-reader.native
+3 -5
View File
@@ -1847,8 +1847,7 @@ Pandoc
[ Para
[ Span
( "" , [ "box" ] , [] )
[ Math
InlineMath "\\overset{\\cdot}{a}"
[ Math InlineMath "\\dot{a}"
, Str "\8192"
, Code ( "" , [] , [] ) "dot(a)"
]
@@ -1862,8 +1861,7 @@ Pandoc
[ Para
[ Span
( "" , [ "box" ] , [] )
[ Math
InlineMath "\\overset{\\sim}{a}"
[ Math InlineMath "\\widetilde{a}"
, Str "\8192"
, Code ( "" , [] , [] ) "tilde(a)"
]
@@ -1895,7 +1893,7 @@ Pandoc
[ Para
[ Span
( "" , [ "box" ] , [] )
[ Math InlineMath "\\overset{\168}{a}"
[ Math InlineMath "\\ddot{a}"
, Str "\8192"
, Code ( "" , [] , [] ) "diaer(a)"
]