-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")] []
- }