multimodality exx

grammars/timetable/TimetableLatex.gf

@@ -0,0 +1,28 @@
+--# -path=.:../prelude
+
+concrete TimetableLatex of Timetable = open Prelude, Latex in {
+
+  lincat
+    CityList = {s,s2 : Str} ; -- s2 encodes table width
+
+  lin
+    MkTable cs ts = 
+      ss ("\\documentstyle{article}" ++ inEnv "document" (
+          (inEnv "tabular" ("{" ++ cs.s2 ++ "}" ++ "&" ++ cs.s ++ 
+          command "hline" ++ ts.s)))) ;
+    NilTrain _ = ss [] ;
+    ConsTrain cs n t ts = ss (n.s ++ "&" ++ t.s ++ "\\\\" ++ ts.s) ;
+    OneCity c = {s = c.s ++ "\\\\" ; s2 = "l|l"} ;
+    ConsCity c cs = {s = c.s ++ "&" ++ cs.s ; s2 = "l|" ++ cs.s2} ;
+
+    StopTime t = t ;
+    NoStop = ss "---" ;
+
+    LocTrain c s = s ;
+    CityTrain c s cs t = ss (s.s ++ "&" ++ t.s) ;
+
+    T i = i ;
+    N n = n ; --- ss (fun1 "textbf" n.s) ;
+    C s = s ; --- ss (fun1 "textbf" s.s) ;
+
+}