a new abstract syntax in Documentation.gf which allows a more compact definition of the corresponding concrete syntax. The new strategy is so far used only in DocumentationEng and the new DocumentationBul.

lib/src/german/DocumentationGerFunctor.gf

@@ -13,8 +13,8 @@ in {
 
 
 lincat
-  Inflection = {s : Str} ; 
-  
+  Inflection = {s : Str} ;
+  Document = {s : Str} ;
 
 oper
    tdf : Str -> Str = \s -> td (intag "i" s) ;
@@ -71,7 +71,7 @@ lin
         paragraph (intag "b" (heading exampleGr_N ++ ":") ++ intag "i" (S.mkAdv (lin Prep p) (S.mkNP S.a_Det L.computer_N)).s)
     } ;
 
-  ExplainInflection e i = ss (i.s ++ paragraph e.s) ;  -- explanation appended in a new paragraph
+  MkDocument b i e = ss (paragraph b.s ++ i.s ++ paragraph e.s) ;  -- explanation appended in a new paragraph
 
 oper 
   verbExample : CatGer.Cl -> Str = \cl ->
@@ -115,4 +115,4 @@ oper
        ))
      } ;
 
-}
+}