msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

showing word lemmas in DocumentationIce headings

Browse Source
This commit is contained in:
Aarne Ranta
2019-08-04 21:15:44 +02:00
parent 80854f4c44
commit 2fdfd5127e
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/icelandic/DocumentationIceFunctor.gf
View File

@@ -25,7 +25,7 @@ oper
lin
InflectionN, InflectionN2, InflectionN3 = \noun -> {
t = "s" ;
s1 = heading1 (heading noun_Category ++
s1 = heading1 (intag "i" (noun.s ! Sg ! Free ! Nom) ++ ":" ++ heading noun_Category ++
case noun.g of {
Masc => "("+heading masculine_Parameter+")" ;
Fem => "("+heading feminine_Parameter+")" ;
@@ -64,7 +64,7 @@ lin
)) ;
in { t = "a" ;
s1 = heading1 (nounHeading adjective_Category).s ;
s1 = heading1 (intag "i" (adj.s ! APosit Strong Sg Masc Nom) ++ ":" ++ (nounHeading adjective_Category).s) ;
s2 =
dtable (heading positive_Parameter ++ heading strong_Parameter) (APosit Strong) ++
dtable (heading positive_Parameter ++ heading weak_Parameter) (APosit Weak) ++
@@ -89,21 +89,21 @@ lin
InflectionV v = {
t = "v" ;
s1 = heading1 (heading verb_Category) ++
s1 = heading1 (intag "i" (v.s ! VInf Active) ++ ":" ++ heading verb_Category) ++
paragraph (verbExample (S.mkCl S.she_NP v)) ;
s2 = inflVerb v
} ;
InflectionV2 v = {
t = "v" ;
s1 = heading1 (heading verb_Category) ++
s1 = heading1 (intag "i" (v.s ! VInf Active) ++ ":" ++ heading verb_Category) ++
paragraph (verbExample (S.mkCl S.she_NP v S.i_NP)) ;
s2 = inflVerb v
} ;
InflectionV3 v = {
t = "v" ;
s1 = heading1 (heading verb_Category) ++
s1 = heading1 (intag "i" (v.s ! VInf Active) ++ ":" ++ heading verb_Category) ++
paragraph (verbExample (S.mkCl S.she_NP v S.it_NP S.i_NP)) ;
s2 = inflVerb v
} ;