more examples in synopsis

This commit is contained in:
aarne
2010-12-13 17:28:34 +00:00
parent 61b2192ac8
commit 6a2912bb1c
9 changed files with 622 additions and 300 deletions

View File

@@ -12,6 +12,10 @@ type Rules = [(String,String,String)]
-- the file generated
synopsis = "synopsis.txt"
-- the language in which revealed examples are shown
revealedLang = "Eng"
-- all languages shown
apiExxFiles = ["api-examples-" ++ lang ++ ".txt" | lang <- words
"Bul Cat Dan Dut Eng Fin Fre Ger Ita Nor Pol Ron Rus Spa Swe Urd"]
@@ -193,7 +197,7 @@ mkTable hasEx isLatex aexx cs = inChunks chsize (\rs -> header : map (unwords .
-- make an example with hover-popup translations
mkExample es ex = unwords [
"#divreveal",
itf ex,
itf (maybe ex id (M.lookup revealedLang es)),
"#divpopup",
"#UL",
unwords ["#LI" ++ e | e <- prApiEx es],