From 2aef82181ba9de0769f3929b338bc0a1cf982760 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Mon, 11 Mar 2024 07:39:31 +0100
Subject: [PATCH] fix the order of genders for the adjectives and show the
 adjectives for the nouns

---
 src/russian/DocumentationRusFunctor.gf | 26 +++++++++++++++++---------
 1 file changed, 17 insertions(+), 9 deletions(-)

diff --git a/src/russian/DocumentationRusFunctor.gf b/src/russian/DocumentationRusFunctor.gf
index c0a96d8f8..cbb85ca59 100644
--- a/src/russian/DocumentationRusFunctor.gf
+++ b/src/russian/DocumentationRusFunctor.gf
@@ -29,7 +29,12 @@ lin
                      Fem  => "(ж.р.)" ;
                      Neut => "(ср.р.)"
                    }) ;
-    s2 = inflNoun noun
+    s2 = inflNoun noun ++
+         case noun.rt of {
+           GenType => [] ;
+           AdjType => heading1 (heading adjective_Category) ++
+                      inflAdj noun.rel
+         }
     } ;
 
   InflectionPN = \pn -> {
@@ -114,14 +119,7 @@ lin
   InflectionA, InflectionA2 = \adj -> {
     t  = "пр" ;
     s1 = heading1 (heading adjective_Category) ;
-    s2 = heading2 (heading feminine_Parameter) ++
-         inflNoun (makeNFFromAF adj Fem Inanimate) ++
-         heading2 (heading masculine_Parameter) ++
-         inflNoun (makeNFFromAF adj Masc Inanimate) ++
-         heading2 (heading neuter_Parameter) ++
-         inflNoun (makeNFFromAF adj Neut Inanimate) ++
-         heading2 (heading comparative_Parameter) ++
-         frameTable (tr (tr (adj.comp)))
+    s2 = inflAdj adj
     } ;
 
   InflectionAdv, InflectionAdV, InflectionAdA, InflectionAdN = \adv -> {
@@ -238,6 +236,16 @@ oper
           tr (th ("звательный") ++ td (nf.svoc) ++ td ("-"))
           ) ;
 
+  inflAdj : AdjForms -> Str = \adj ->
+    heading2 (heading masculine_Parameter) ++
+    inflNoun (makeNFFromAF adj Masc Inanimate) ++
+    heading2 (heading feminine_Parameter) ++
+    inflNoun (makeNFFromAF adj Fem Inanimate) ++
+    heading2 (heading neuter_Parameter) ++
+    inflNoun (makeNFFromAF adj Neut Inanimate) ++
+    heading2 (heading comparative_Parameter) ++
+    frameTable (tr (tr (adj.comp))) ;
+
 lin
   -- : String -> Definition ;
   NoDefinition   t     = {s=t.s};