1 module Rakka.Wiki.Interpreter.Trackback
7 import Rakka.SystemConfig
9 import Rakka.Wiki.Interpreter
12 interpreters :: [Interpreter]
13 interpreters = [ trackbackURLInterp
18 trackbackURLInterp :: Interpreter
20 = InlineCommandInterpreter {
21 iciName = "trackbackURL"
23 = \ ctx _ -> do BaseURI baseURI <- getSysConf (ctxSysConf ctx)
24 let uri = mkAuxiliaryURI baseURI ["trackback"] (ctxPageName ctx)
25 return $ ExternalLink uri (Just "Trackback URL")
29 trackbacksInterp :: Interpreter
31 = BlockCommandInterpreter {
32 bciName = "trackbacks"
34 = \ _ _ -> return $ Div [("class", "trackbacks")] []