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 a5b9681..0000000
--- a/Rakka/Wiki/Interpreter/Trackback.hs
+++ /dev/null
@@ -1,39 +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 _ -> case ctxPageName ctx of
-                         Nothing
-                             -> return (Text "No trackbacks for this page.")
-                         Just name
-                             -> do BaseURI baseURI <- getSysConf (ctxSysConf ctx)
-                                   let uri = mkAuxiliaryURI baseURI ["trackback"] name
-                                   return $ ExternalLink uri (Just "Trackback URL")
-      }
-
-
-trackbacksInterp :: Interpreter
-trackbacksInterp 
-    = BlockCommandInterpreter {
-        bciName = "trackbacks"
-      , bciInterpret
-          = \ _ _ -> return $ Div [("class", "trackbacks")] []
-      }