Rakka/Wiki/Interpreter/Trackback.hs

   1 module Rakka.Wiki.Interpreter.Trackback
   2     ( interpreters
   3     )
   4     where
   5
   6 import           Rakka.Page
   7 import           Rakka.SystemConfig
   8 import           Rakka.Wiki
   9 import           Rakka.Wiki.Interpreter
  10
  11
  12 interpreters :: [Interpreter]
  13 interpreters = [ trackbackURLInterp
  14                , trackbacksInterp
  15                ]
  16
  17
  18 trackbackURLInterp :: Interpreter
  19 trackbackURLInterp
  20     = InlineCommandInterpreter {
  21         iciName = "trackbackURL"
  22       , iciInterpret
  23           = \ ctx _ -> do BaseURI baseURI <- getSysConf (ctxSysConf ctx)
  24                           let uri = mkAuxiliaryURI baseURI ["trackback"] (ctxPageName ctx)
  25                           return $ ExternalLink uri (Just "Trackback URL")
  26       }
  27
  28
  29 trackbacksInterp :: Interpreter
  30 trackbacksInterp
  31     = BlockCommandInterpreter {
  32         bciName = "trackbacks"
  33       , bciInterpret
  34           = \ _ _ -> return $ Div [("class", "trackbacks")] []
  35       }