OMML writer: use upright style by default for uppercase Greek.

Author: jgm

src/Text/TeXMath/Writers/OMML.hs

@@ -26,6 +26,7 @@ where
 
 import Text.XML.Light
 import Text.TeXMath.Types
+import Text.TeXMath.Shared (isUppercaseGreek)
 import Data.Generics (everywhere, mkT)
 import Data.Char (isSymbol, isPunctuation)
 import Data.Either (lefts, isLeft, rights)
@@ -223,7 +224,10 @@ showExp props e =
 
    EIdentifier ""   -> [str props "\x200B"]  -- 0-width space
                        -- to avoid the dashed box we get otherwise; see #118
-   EIdentifier x    -> [str props x]
+   EIdentifier x
+     | isUppercaseGreek x
+     , null props -> [str [mnodeA "sty" "p" ()] x]
+     | otherwise  -> [str props x]
    EMathOperator x  -> [str (mnodeA "sty" "p" () : props) x]
    ESymbol ty xs
     | Just (c, xs') <- T.uncons xs

test/writer/omml/complex3.test

@@ -13821,6 +13821,9 @@
           <m:sSubSup>
             <m:e>
               <m:r>
+                <m:rPr>
+                  <m:sty m:val="p" />
+                </m:rPr>
                 <m:t>Γ</m:t>
               </m:r>
             </m:e>
@@ -16522,6 +16525,9 @@
                 <m:sSup>
                   <m:e>
                     <m:r>
+                      <m:rPr>
+                        <m:sty m:val="p" />
+                      </m:rPr>
                       <m:t>Ω</m:t>
                     </m:r>
                   </m:e>
@@ -16573,6 +16579,9 @@
                 <m:sSup>
                   <m:e>
                     <m:r>
+                      <m:rPr>
+                        <m:sty m:val="p" />
+                      </m:rPr>
                       <m:t>Ω</m:t>
                     </m:r>
                   </m:e>
@@ -16647,6 +16656,9 @@
                 <m:sSup>
                   <m:e>
                     <m:r>
+                      <m:rPr>
+                        <m:sty m:val="p" />
+                      </m:rPr>
                       <m:t>Ω</m:t>
                     </m:r>
                   </m:e>
@@ -16696,6 +16708,9 @@
                   <m:t>;</m:t>
                 </m:r>
                 <m:r>
+                  <m:rPr>
+                    <m:sty m:val="p" />
+                  </m:rPr>
                   <m:t>Ω</m:t>
                 </m:r>
                 <m:r>

test/writer/omml/miSfonts8.test

@@ -55,6 +55,9 @@
       <m:t>+</m:t>
     </m:r>
     <m:r>
+      <m:rPr>
+        <m:sty m:val="p" />
+      </m:rPr>
       <m:t>Γ</m:t>
     </m:r>
     <m:r>