Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

99 lines (90 sloc) 3.768 kB
{-
Copyright (C) 2009 John MacFarlane <jgm@berkeley.edu>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-}
{- | Functions for embedding a gitit wiki into a Happstack application.
-}
module Network.Gitit ( initializeGititState
, getDefaultConfig
, Config(..)
, User(..)
, Cache(..)
, emptyCache
, loadPlugin
, wikiHandler
, readMimeTypesFile
)
where
import Network.Gitit.Types
import Network.Gitit.Framework
import Network.Gitit.State
import Network.Gitit.Server
import Network.Gitit.Plugins (loadPlugin)
import Network.Gitit.Handlers
import Network.Gitit.Config (readMimeTypesFile, getDefaultConfig)
import Control.Monad.Reader
wikiHandler :: Config -> ServerPart Response
wikiHandler conf = do
let staticHandler = dir "_static" $
withExpiresHeaders $ fileServe [] $ staticDir conf
let handlers = [ debugHandler | debugMode conf] ++
case authenticationMethod conf of
FormAuth -> authHandler : wikiHandlers
_ -> wikiHandlers
-- TODO - rearrange so handleAny doesn't get compressed
staticHandler `mplus` (mapServerPartT (unpackReaderT conf) $
if compressResponses conf
then compressedResponseFilter >> msum handlers
else msum handlers)
wikiHandlers :: [Handler]
wikiHandlers =
[ dir "_activity" showActivity
, dir "_go" goToPage
, dir "_search" searchResults
, dir "_upload" $ methodOnly GET >> ifLoggedIn uploadForm loginUserForm
, dir "_upload" $ methodOnly POST >> ifLoggedIn uploadFile loginUserForm
, dir "_random" $ methodOnly GET >> randomPage
, dir "_index" indexPage
, guardCommand "showraw" >> msum
[ showRawPage
, guardPath isSourceCode >> showFileAsText ]
, guardCommand "history" >> msum
[ showPageHistory
, guardPath isSourceCode >> showFileHistory ]
, guardCommand "edit" >>
(unlessNoEdit (ifLoggedIn editPage loginUserForm) showPage)
, guardCommand "diff" >> msum
[ showPageDiff
, guardPath isSourceCode >> showFileDiff ]
, guardCommand "export" >> exportPage
, guardCommand "cancel" >> showPage
, guardCommand "discuss" >> discussPage
, guardCommand "update" >> methodOnly POST >>
unlessNoEdit (ifLoggedIn updatePage loginUserForm) showPage
, guardCommand "delete" >> msum
[ methodOnly GET >>
unlessNoDelete (ifLoggedIn confirmDelete loginUserForm) showPage
, methodOnly POST >>
unlessNoDelete (ifLoggedIn deletePage loginUserForm) showPage ]
, guardIndex >> indexPage
, guardPath isPreview >> preview
, showPage
, guardPath isSourceCode >> showHighlightedSource
, handleAny
, createPage
]
unpackReaderT:: (Monad m)
=> c
-> (ReaderT c m) (Maybe ((Either Response a), FilterFun Response))
-> m (Maybe ((Either Response a), FilterFun Response))
unpackReaderT st handler = runReaderT handler st
Jump to Line
Something went wrong with that request. Please try again.