diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2024-02-04 22:37:37 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2024-02-04 22:37:37 -0800 |
| commit | 3ef74d1fd2fa7937da841f90d3ff3d8dc87488c8 (patch) | |
| tree | df27e0980f3b4b8f5c39de038c8c54f73d4cc7aa /src | |
| parent | 1e05f32ead3da5bf8c81f78f2c7ccb2971e69044 (diff) | |
Typst reader: fix handling of `dot()`, `tilde()`, `ddot()`.
See jgm/typst-hs#38.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Typst/Math.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Typst/Math.hs b/src/Text/Pandoc/Readers/Typst/Math.hs index e06e1c680..7d61d893c 100644 --- a/src/Text/Pandoc/Readers/Typst/Math.hs +++ b/src/Text/Pandoc/Readers/Typst/Math.hs @@ -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' |