Quick attempt at fixing multicharacter identifiers

JacquesCarette · Oct 17, 2021 · 1cf33bb · 1cf33bb · JacquesCarette · Oct 18, 2021
1 parent 0ea1e82
commit 1cf33bb
Show file tree

Hide file tree

Showing 10 changed files with 204 additions and 191 deletions.
diff --git a/code/drasil-printers/lib/Language/Drasil/TeX/Print.hs b/code/drasil-printers/lib/Language/Drasil/TeX/Print.hs
@@ -80,6 +80,8 @@ print :: PrintingInformation -> [LayoutObj] -> D
 print sm = foldr (($+$) . (`lo` sm)) empty
 
 ------------------ Symbol ----------------------------
+
+-- TODO: It seems that there's a disconnect with this function and
 -- | Converts a symbol into a printable document form.
 symbol :: LD.Symbol -> D
 symbol (LD.Variable s) = pure $ text s
@@ -123,7 +125,8 @@ pExpr (Case ps) = mkEnv "cases" (cases ps)
 pExpr (Mtx a) = mkEnv "bmatrix" (pMatrix a)
 pExpr (Row [x]) = br $ pExpr x -- FIXME: Hack needed for symbols with multiple subscripts, etc.
 pExpr (Row l) = foldl1 (<>) (map pExpr l)
-pExpr (Ident s) = pure . text $ s
+pExpr (Ident s@[_]) = pure . text $ s
+pExpr (Ident s) = commandD "mathit" (pure $ text s)
 pExpr (Label s) = command "text" s
 pExpr (Spec s) = pure . text $ unPL $ L.special s
 --pExpr (Gr g) = unPL $ greek g

diff --git a/code/stable/glassbr/SRS/HTML/GlassBR_SRS.html b/code/stable/glassbr/SRS/HTML/GlassBR_SRS.html