forked from GitHub/gf-rgl
a better table for nouns
This commit is contained in:
@@ -12,20 +12,14 @@ lin
|
|||||||
t="n" ;
|
t="n" ;
|
||||||
s1="" ;
|
s1="" ;
|
||||||
s2=frameTable (
|
s2=frameTable (
|
||||||
tr (intagAttr "th" "rowspan=\"2\"" "Nom" ++ th "Sg" ++ td (x.s ! Nom ! Sg)) ++
|
tr (th "" ++ th "Sg" ++ th "Pl") ++
|
||||||
tr (th "Pl" ++ td (x.s ! Nom ! Pl)) ++
|
tr (th "Nom" ++ td (x.s ! Nom ! Sg) ++ td (x.s ! Nom ! Pl)) ++
|
||||||
tr (intagAttr "th" "rowspan=\"2\"" "Acc" ++ th "Sg" ++ td (x.s ! Acc ! Sg)) ++
|
tr (th "Acc" ++ td (x.s ! Acc ! Sg) ++ td (x.s ! Acc ! Pl)) ++
|
||||||
tr (th "Pl" ++ td (x.s ! Acc ! Pl)) ++
|
tr (th "Dat" ++ td (x.s ! Dat ! Sg) ++ td (x.s ! Dat ! Pl)) ++
|
||||||
tr (intagAttr "th" "rowspan=\"2\"" "Dat" ++ th "Sg" ++ td (x.s ! Dat ! Sg)) ++
|
tr (th "Gen" ++ td (x.s ! Gen ! Sg) ++ td (x.s ! Gen ! Pl)) ++
|
||||||
tr (th "Pl" ++ td (x.s ! Dat ! Pl)) ++
|
tr (th "Loc" ++ td (x.s ! Loc ! Sg) ++ td (x.s ! Loc ! Pl)) ++
|
||||||
tr (intagAttr "th" "rowspan=\"2\"" "Gen" ++ th "Sg" ++ td (x.s ! Gen ! Sg)) ++
|
tr (th "Instr" ++ td (x.s ! Instr ! Sg) ++ td (x.s ! Instr ! Pl)) ++
|
||||||
tr (th "Pl" ++ td (x.s ! Gen ! Pl)) ++
|
tr (th "Voc" ++ td (x.Voc ! Sg) ++ td (x.Voc ! Pl))) ;
|
||||||
tr (intagAttr "th" "rowspan=\"2\"" "Loc" ++ th "Sg" ++ td (x.s ! Loc ! Sg)) ++
|
|
||||||
tr (th "Pl" ++ td (x.s ! Loc ! Pl)) ++
|
|
||||||
tr (intagAttr "th" "rowspan=\"2\"" "Instr" ++ th "Sg" ++ td (x.s ! Instr ! Sg)) ++
|
|
||||||
tr (th "Pl" ++ td (x.s ! Instr ! Pl)) ++
|
|
||||||
tr (intagAttr "th" "rowspan=\"2\"" "Voc" ++ th "Sg" ++ td (x.Voc ! Sg)) ++
|
|
||||||
tr (th "Pl" ++ td (x.Voc ! Pl))) ;
|
|
||||||
s3=[]
|
s3=[]
|
||||||
} ;
|
} ;
|
||||||
lin
|
lin
|
||||||
|
|||||||
Reference in New Issue
Block a user