From ac3975eefbd046d7e657d62b9fbb4d5ee1437fcb Mon Sep 17 00:00:00 2001
From: Aarne Ranta <aarne@chalmers.se>
Date: Fri, 23 Aug 2019 16:58:30 +0200
Subject: [PATCH] added MarkupFin to wrap Finnish phrases in html tags and
 other markup

---
 src/finnish/LangFin.gf   |  5 ++---
 src/finnish/MarkupFin.gf | 15 +++++++++++++++
 2 files changed, 17 insertions(+), 3 deletions(-)
 create mode 100644 src/finnish/MarkupFin.gf

diff --git a/src/finnish/LangFin.gf b/src/finnish/LangFin.gf
index 8343c07d..cf9b2aa5 100644
--- a/src/finnish/LangFin.gf
+++ b/src/finnish/LangFin.gf
@@ -5,8 +5,7 @@ concrete LangFin of Lang =
   LexiconFin
   , ConstructionFin
   , DocumentationFin --# notpresent
-  ** {
-
-flags startcat = Phr ; unlexer = text ; lexer = finnish ;
+  , MarkupFin - [stringMark]
+** {
 
 } ;
diff --git a/src/finnish/MarkupFin.gf b/src/finnish/MarkupFin.gf
new file mode 100644
index 00000000..aa98372f
--- /dev/null
+++ b/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} ;
+
+}
\ No newline at end of file