added gender to nouns

2026-06-30 02:58:35 -06:00 · 2026-04-22 13:25:04 +02:00
parent 4a3e30a1cd
commit 41e3b8280b
3 changed files with 351 additions and 176 deletions
@@ -10,7 +10,11 @@ lincat
 lin
  InflectionN,InflectionN2,InflectionN3 = \x -> {
      t="n" ;
-      s1="" ;
+      s1 = heading1 ("Noun" ++ case x.g of {
+                               Neutr => "(neuter)";
+                               Masc  => "(masc)";
+                               Fem   => "(fem)"
+                             }) ;
      s2=frameTable (
           tr (intagAttr "th" "colspan=\"2\"" "" ++ th "Indef" ++ th "Def") ++
           tr (intagAttr "th" "rowspan=\"4\"" "Sg" ++