Implemented block commands

[Rakka.git] / Rakka / Wiki / Interpreter / Base.hs

diff --git a/Rakka/Wiki/Interpreter/Base.hs b/Rakka/Wiki/Interpreter/Base.hs
index bd11029034d60b45184234e10cd5759263742d19..e03b669fd083ac568fdd0cfccb1237937cbb094b 100644 (file)
--- a/Rakka/Wiki/Interpreter/Base.hs
+++ b/Rakka/Wiki/Interpreter/Base.hs
@@ -8,10 +8,25 @@ import           Rakka.Wiki
 
 
 baseInterpreters :: [Interpreter]
-baseInterpreters = [ lineBreakInterp ]
+baseInterpreters = [ lineBreakInterp
+                   , spanInterp
+                   , divInterp
+                   ]
 
 
 lineBreakInterp :: Interpreter
 lineBreakInterp = pureInlineInterp "br" interpret
     where
       interpret (InlineCommand _ attrs _) _ = LineBreak attrs
+
+
+spanInterp :: Interpreter
+spanInterp = pureInlineInterp "span" interpret
+    where
+      interpret (InlineCommand _ attrs contents) _ = Span attrs contents
+
+
+divInterp :: Interpreter
+divInterp = pureBlockInterp "div" interpret
+    where
+      interpret (BlockCommand _ attrs contents) _ = Div attrs contents
\ No newline at end of file