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