Update Render.hs

Add special case to rendering TeXSeq to insert spaces after TeXCommS when necessary.
Daniel-Diaz · Feb 13, 2015 · 8928b73 · 8928b73
1 parent 9495907
commit 8928b73
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/Text/LaTeX/Base/Render.hs b/Text/LaTeX/Base/Render.hs
@@ -136,6 +136,11 @@ instance Render LaTeX where
    in if null xs then "%\n"
                  else Data.Text.unlines $ fmap ("%" <>) xs
 
+  render (TeXSeq l1@(TeXCommS _) l2) = let r2 = render l2 in
+    render l1 <> (case uncons r2 of
+      Just (c,_) | isIdentChar c -> " "
+      _ -> "") <> r2
+    where isIdentChar = isAlpha
   render (TeXSeq l1 l2) = render l1 <> render l2
   render TeXEmpty = mempty