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 _ -> case ctxPageName ctx of
25 -> return (Text "No trackbacks for this page.")
27 -> do BaseURI baseURI <- getSysConf (ctxSysConf ctx)
28 let uri = mkAuxiliaryURI baseURI ["trackback"] name
29 return $ ExternalLink uri (Just "Trackback URL")
33 trackbacksInterp :: Interpreter
35 = BlockCommandInterpreter {
36 bciName = "trackbacks"
38 = \ _ _ -> return $ Div [("class", "trackbacks")] []