cosmetic changes in the tables

This commit is contained in:
Krasimir Angelov
2026-04-20 08:17:18 +02:00
parent 6a6788c24e
commit 3943089d3d

View File

@@ -28,10 +28,11 @@ concrete DocumentationSom of Documentation = CatSom ** open ResSom,Prelude,HTML
lin InflectionN,InflectionN2,InflectionN3 = \noun -> {
t = "n";
s1 = heading1 "Noun";
s2 = frameTable (tr (th "Def" ++ td (noun.s ! Def Sg) ++ td (noun.s ! Def Pl)) ++
s2 = frameTable (tr (td "" ++ th "Sg" ++ th "Pl") ++
tr (th "Def" ++ td (noun.s ! Def Sg) ++ td (noun.s ! Def Pl)) ++
tr (th "Indef" ++ td (noun.s ! Indef Sg) ++ td (noun.s ! Indef Pl)) ++
tr (th "Nom" ++ td (noun.s ! NomSg) ++ td []) ++
tr (th "Numerative" ++ td (noun.s ! Numerative)))
tr (th "Numerative" ++ intagAttr "td" "colspan=2" (noun.s ! Numerative)))
} ;
lin InflectionPN pn = {t = "pn"; s1 = heading1 "Name";
s2 = frameTable (tr (th "" ++ td pn.s))} ;
@@ -149,7 +150,5 @@ concrete DocumentationSom of Documentation = CatSom ** open ResSom,Prelude,HTML
heading2 "Negative Conditional" ++
frameTable (tr (th "SgMasc" ++ td (v.s ! VNegCond SgMasc)) ++
tr (th "SgFem" ++ td (v.s ! VNegCond SgFem)) ++
tr (th "PlInv" ++ td (v.s ! VNegCond PlInv))) ++
frameTable (tr (th "sii" ++ td v.sii) ++
tr (th "dhex" ++ td v.dhex)) ;
tr (th "PlInv" ++ td (v.s ! VNegCond PlInv))) ;
}