progress on the Names API

src/finnish/DocumentationFinFunctor.gf

@@ -37,6 +37,12 @@ lin
     s2 = inflPN (\c -> pn.s ! c)
     } ;
 
+  InflectionLN = \pn -> {
+    t  = "s" ;
+    s1 = heading1 (heading noun_Category) ;
+    s2 = inflPN (\c -> pn.s ! c)
+    } ;
+
   InflectionGN = \pn -> {
     t  = "s" ;
     s1 = heading1 "Etunimi" ;

src/finnish/NamesFin.gf

@@ -11,4 +11,10 @@ lin FullName gn sn = {
       isPron = False ; isNeg = False
       } ;
 
+lin UseLN pn = {
+      s = snoun2np Sg pn ;
+      a = agrP3 Sg ;
+      isPron = False ; isNeg = False
+      } ;
+
 }