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

@@ -6,6 +6,7 @@ flags coding=utf8 ;
lincat
Inflection = {t : Str; s1,s2,s3 : Str} ;
Definition = {s : Str} ;
Document = {s : Str} ;
Tag = {s : Str} ;
@@ -390,7 +391,12 @@ oper
pp : Str -> Str = \s -> "<"+s+">";
lin
MkDocument b i e = {s = i.s1 ++ "<p style=\"font-size:20px\">"++b.s++"</p>" ++ i.s2 ++ i.s3 ++ e.s} ;
NoDefinition = {s=""};
MkDefinition d = {s="<p><b>Дефиниция:</b>"++d.s++"</p>"};
MkDefinitionEx d e = {s="<p><b>Дефиниция:</b>"++d.s++"</p><p><b>Пример:</b>"++e.s++"</p>"};
lin
MkDocument d i e = {s = i.s1 ++ d.s ++ i.s2 ++ i.s3 ++ e.s} ;
MkTag i = {s = i.t} ;
}