52 lines
1.5 KiB
Haskell
52 lines
1.5 KiB
Haskell
{- git-annex assistant webapp configurators
|
|
-
|
|
- Copyright 2012 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
|
|
{-# LANGUAGE QuasiQuotes, TemplateHaskell, OverloadedStrings, CPP #-}
|
|
|
|
module Assistant.WebApp.Configurators where
|
|
|
|
import Assistant.WebApp.Common
|
|
import Assistant.WebApp.RepoList
|
|
#ifdef WITH_XMPP
|
|
import Assistant.XMPP.Client
|
|
#endif
|
|
|
|
{- The main configuration screen. -}
|
|
getConfigurationR :: Handler Html
|
|
getConfigurationR = ifM inFirstRun
|
|
( redirect FirstRepositoryR
|
|
, page "Configuration" (Just Configuration) $ do
|
|
#ifdef WITH_XMPP
|
|
xmppconfigured <- liftAnnex $ isJust <$> getXMPPCreds
|
|
#else
|
|
let xmppconfigured = False
|
|
#endif
|
|
$(widgetFile "configurators/main")
|
|
)
|
|
|
|
getAddRepositoryR :: Handler Html
|
|
getAddRepositoryR = page "Add Repository" (Just Configuration) $ do
|
|
let repolist = repoListDisplay mainRepoSelector
|
|
$(widgetFile "configurators/addrepository")
|
|
|
|
makeMiscRepositories :: Widget
|
|
makeMiscRepositories = $(widgetFile "configurators/addrepository/misc")
|
|
|
|
makeCloudRepositories :: Widget
|
|
makeCloudRepositories = $(widgetFile "configurators/addrepository/cloud")
|
|
|
|
makeXMPPConnection :: Widget
|
|
makeXMPPConnection = $(widgetFile "configurators/addrepository/xmppconnection")
|
|
|
|
makeSshRepository :: Widget
|
|
makeSshRepository = $(widgetFile "configurators/addrepository/ssh")
|
|
|
|
makeConnectionRepositories :: Widget
|
|
makeConnectionRepositories = $(widgetFile "configurators/addrepository/connection")
|
|
|
|
makeArchiveRepositories :: Widget
|
|
makeArchiveRepositories = $(widgetFile "configurators/addrepository/archive")
|