now the Documentation module contains a category Definition which is used to generate definitions and examples for words in the App.

This commit is contained in:
krasimir
2015-11-16 14:57:32 +00:00
parent fae5cba926
commit 80ccd0493d
16 changed files with 135 additions and 27 deletions

View File

@@ -13,6 +13,7 @@ in {
lincat
Inflection = {t : Str; s1,s2 : Str} ;
Definition = {s : Str} ;
Document = {s : Str} ;
Tag = {s : Str} ;
@@ -263,6 +264,11 @@ oper
tr (th (heading instructive_Parameter) ++ td (nouns (NCase Sg Termin)) ++ td (nouns (NCase Pl Termin))
)) ;
lin
NoDefinition = {s=""};
MkDefinition d = {s="<p><b>Definitsioon:</b>"++d.s++"</p>"};
MkDefinitionEx d e = {s="<p><b>Definitsioon:</b>"++d.s++"</p><p><b>Eeskuju:</b>"++e.s++"</p>"};
lin
MkDocument b i e = ss (i.s1 ++ paragraph b.s ++ i.s2 ++ paragraph e.s) ; -- explanation appended in a new paragraph
MkTag i = ss (i.t) ;