added MarkupFin to wrap Finnish phrases in html tags and other markup

src/finnish/LangFin.gf

@@ -5,8 +5,7 @@ concrete LangFin of Lang =
   LexiconFin
   , ConstructionFin
   , DocumentationFin --# notpresent
-  ** {
+  , MarkupFin - [stringMark]
-
+** {
-flags startcat = Phr ; unlexer = text ; lexer = finnish ;
 
 } ;

src/finnish/MarkupFin.gf

@@ -0,0 +1,15 @@
+--# -path=.:../abstract:../common
+
+concrete MarkupFin of Markup = CatFin, MarkHTMLX ** {
+
+lin
+  MarkupCN   m cn  = cn ** {s = \\nf   => appMark m (cn.s ! nf)} ;
+  MarkupNP   m np  = np ** {s = \\c    => appMark m (np.s ! c)} ;
+  MarkupAP   m ap  = ap ** {s = \\b,nf => appMark m (ap.s ! b ! nf)} ;
+  MarkupAdv  m adv =       {s =          appMark m adv.s} ;
+  MarkupS    m s   =       {s =          appMark m s.s} ;
+  MarkupUtt  m utt =       {s =          appMark m utt.s} ;
+  MarkupPhr  m phr =       {s =          appMark m phr.s} ;
+  MarkupText m txt =       {s =          appMark m txt.s} ;
+
+}