merge branch origin/master

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

diff --git a/Rakka/Wiki/Interpreter/Trackback.hs b/Rakka/Wiki/Interpreter/Trackback.hs
deleted file mode 100644 (file)
index 44cf13c..0000000
--- a/Rakka/Wiki/Interpreter/Trackback.hs
+++ /dev/null
@@ -1,35 +0,0 @@
-module Rakka.Wiki.Interpreter.Trackback
-    ( interpreters
-    )
-    where
-
-import           Rakka.Page
-import           Rakka.SystemConfig
-import           Rakka.Wiki
-import           Rakka.Wiki.Interpreter
-
-
-interpreters :: [Interpreter]
-interpreters = [ trackbackURLInterp
-               , trackbacksInterp
-               ]
-
-
-trackbackURLInterp :: Interpreter
-trackbackURLInterp
-    = InlineCommandInterpreter {
-        iciName = "trackbackURL"
-      , iciInterpret
-          = \ ctx _ -> do BaseURI baseURI <- getSysConf (ctxSysConf ctx)
-                          let uri = mkAuxiliaryURI baseURI ["trackback"] (ctxPageName ctx)
-                          return $ ExternalLink uri (Just "Trackback URL")
-      }
-
-
-trackbacksInterp :: Interpreter
-trackbacksInterp 
-    = BlockCommandInterpreter {
-        bciName = "trackbacks"
-      , bciInterpret
-          = \ _ _ -> return $ Div [("class", "trackbacks")] []
-      }