Supported EDelimited in OMML.

reinerp · Jan 7, 2012 · d04db6d · d04db6d
1 parent 75499a5
commit d04db6d
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/Text/TeXMath/OMML.hs b/Text/TeXMath/OMML.hs
@@ -121,6 +121,14 @@ showExp e =
  case e of
    ENumber x        -> [str [] x]
    EGrouped xs      -> concatMap showExp xs
+   EDelimited start end xs ->
+                       [mnode "d" [ mnode "dPr"
+                                    [ mnodeAttr "begChr" [("val",start)] ()
+                                    , mnodeAttr "endChr" [("val",end)] ()
+                                    , mnode "grow" () ]
+                                  , mnode "e" $ concatMap showExp xs
+                                  ] ]
+
    EIdentifier x    -> [str [] x]
    EMathOperator x  -> [str [] x]
    EStretchy x      -> showExp x  -- no support for stretchy in OMML