blob: f0d4f0939881f517c22087e69d88abb4b359bc03 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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) ;
}
|
