{-# LANGUAGE OverloadedStrings , RecordWildCards , UnicodeSyntax #-} module Rakka.Wiki.Interpreter.PageList ( interpreters ) where import Control.Applicative import Control.Monad import qualified Data.ByteString.Char8 as C8 import Data.Maybe import Data.Monoid.Unicode import qualified Data.Text as T import Data.Time import qualified Data.Time.RFC1123 as RFC1123 import Network.URI import Prelude.Unicode import Rakka.Storage import Rakka.SystemConfig import Rakka.Utils import Rakka.Wiki import Rakka.Wiki.Interpreter import System.FilePath import Text.HyperEstraier interpreters :: [Interpreter] interpreters = [ recentUpdatesURLInterp , recentUpdatesInterp ] recentUpdatesURLInterp :: Interpreter recentUpdatesURLInterp = InlineCommandInterpreter { iciName = "recentUpdatesURL" , iciInterpret = \ ctx _ -> do BaseURI baseURI <- getSysConf (ctxSysConf ctx) let uri = baseURI { uriPath = uriPath baseURI > "search.html" , uriQuery = '?' : C8.unpack (mkQueryString [ ("q" , "[UVSET]") , ("order", "@mdate NUMD") ]) } return $ ExternalLink uri (Just "List all pages") } --
-- blah blah... --
--