mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

split repository comfiguration page into several widgets

Browse source
This commit is contained in:
Joey Hess 2012-11-10 17:08:43 -04:00
parent fd22734392
commit 75048b43e2
5 changed files with 96 additions and 83 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Assistant/WebApp/Configurators.hs
View file

@ -56,12 +56,22 @@ introDisplay ident = do
$(widgetFile "configurators/intro")
lift $ modifyWebAppState $ \s -> s { showIntro = False }
makeMiscRepositories :: Widget
makeMiscRepositories = $(widgetFile "configurators/repositories/misc")
makeCloudRepositories :: Widget
makeCloudRepositories = $(widgetFile "configurators/repositories/cloud")
repoTable :: Widget
repoTable = do
repolist <- lift $ repoList False True
$(widgetFile "configurators/repositories/table")
{- Lists known repositories, followed by options to add more. -}
getRepositoriesR :: Handler RepHtml
getRepositoriesR = bootstrap (Just Config) $ do
sideBarDisplay
setTitle "Repositories"
repolist <- lift $ repoList False True
$(widgetFile "configurators/repositories")
data Actions