fixed some discontinuous categories in synopsis by wrapping with mkUtt

This commit is contained in:
aarne
2012-05-15 08:02:12 +00:00
parent d6ae92f1df
commit f6b87a7d88
4 changed files with 680 additions and 678 deletions

View File

@@ -71,7 +71,7 @@ prApiEx apexx = case M.toList apexx of
[l ++ ": //" ++ mkEx l e ++ "//" | (l,e) <- lexx]
mkEx l = unws . bind . mkE . words where
unws = if l == "Tha" then concat else unwords
unws = if elem l ["Jap","Tha"] then concat else unwords -- remove spaces
mkE e = case e of
"atomic":"term":_ -> ["*"]
"[]":_ -> ["''"]