started implementing systemConfig

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

diff --git a/Rakka/Wiki/Interpreter/Base.hs b/Rakka/Wiki/Interpreter/Base.hs
index 2363b9b5da362bdee29c2433f8ff9b3b21a9361e..2f6aade45ac6ba8a86f88d2daa12cb02841ed29e 100644 (file)
--- a/Rakka/Wiki/Interpreter/Base.hs
+++ b/Rakka/Wiki/Interpreter/Base.hs
@@ -23,6 +23,7 @@ interpreters = [ lineBreakInterp
                , editPageInterp
                , loginInterp
                , searchFieldInterp
+               , configurationInterp
                ]
 
 
@@ -174,3 +175,20 @@ searchFieldInterp
             in
               return (Input attrs)
       }
+
+-- <input type="button"
+--        value="Configuration"
+--        class="configButton" />
+configurationInterp :: Interpreter
+configurationInterp 
+    = InlineCommandInterpreter {
+        iciName = "configuration"
+      , iciInterpret
+          = \ _ _ ->
+            let attrs = [ ("type" , "button")
+                        , ("value", "Configuration")
+                        , ("class", "configButton")
+                        ]
+            in
+              return (Input attrs)
+      }