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

See jgm/typst-hs#38.
jgm · Feb 5, 2024 · 3ef74d1 · 3ef74d1
1 parent 1e05f32
commit 3ef74d1
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 7 deletions.
diff --git 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'

diff --git a/test/typst-reader.native b/test/typst-reader.native
@@ -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)"
                                   ]