1
0
forked from GitHub/gf-rgl

a better table for nouns

This commit is contained in:
Krasimir Angelov
2025-09-25 13:09:10 +02:00
parent 3e066bd7ec
commit 9649f348b2

View File

@@ -12,20 +12,14 @@ lin
t="n" ;
s1="" ;
s2=frameTable (
tr (intagAttr "th" "rowspan=\"2\"" "Nom" ++ th "Sg" ++ td (x.s ! Nom ! Sg)) ++
tr (th "Pl" ++ td (x.s ! Nom ! Pl)) ++
tr (intagAttr "th" "rowspan=\"2\"" "Acc" ++ th "Sg" ++ td (x.s ! Acc ! Sg)) ++
tr (th "Pl" ++ td (x.s ! Acc ! Pl)) ++
tr (intagAttr "th" "rowspan=\"2\"" "Dat" ++ th "Sg" ++ td (x.s ! Dat ! Sg)) ++
tr (th "Pl" ++ td (x.s ! Dat ! Pl)) ++
tr (intagAttr "th" "rowspan=\"2\"" "Gen" ++ th "Sg" ++ td (x.s ! Gen ! Sg)) ++
tr (th "Pl" ++ td (x.s ! Gen ! 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))) ;
tr (th "" ++ th "Sg" ++ th "Pl") ++
tr (th "Nom" ++ td (x.s ! Nom ! Sg) ++ td (x.s ! Nom ! Pl)) ++
tr (th "Acc" ++ td (x.s ! Acc ! Sg) ++ td (x.s ! Acc ! Pl)) ++
tr (th "Dat" ++ td (x.s ! Dat ! Sg) ++ td (x.s ! Dat ! Pl)) ++
tr (th "Gen" ++ td (x.s ! Gen ! Sg) ++ td (x.s ! Gen ! Pl)) ++
tr (th "Loc" ++ td (x.s ! Loc ! Sg) ++ td (x.s ! Loc ! Pl)) ++
tr (th "Instr" ++ td (x.s ! Instr ! Sg) ++ td (x.s ! Instr ! Pl)) ++
tr (th "Voc" ++ td (x.Voc ! Sg) ++ td (x.Voc ! Pl))) ;
s3=[]
} ;
lin