mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-17 00:39:32 -06:00
29 lines
785 B
Plaintext
29 lines
785 B
Plaintext
--# -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) ;
|
|
|
|
}
|