X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Rakka%2FWiki%2FInterpreter%2FTrackback.hs;h=b5e5cf0270d9aa2acd50368af0dec79a9588fa83;hb=HEAD;hp=a5b96814bf37d05a4f89d85f51d65d03f11734fd;hpb=dc29dc9081156af3b536b19ffd828cdd67ddd84a;p=Rakka.git

diff --git a/Rakka/Wiki/Interpreter/Trackback.hs b/Rakka/Wiki/Interpreter/Trackback.hs
deleted file mode 100644
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")] []
-      }