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

drag and drop repo list (doesn't yet actually change cost settings)

Browse source
This commit is contained in:
Joey Hess 2013-03-13 22:47:16 -04:00
parent 581fe0644f
commit b9b5c3991c
8 changed files with 2297 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Assistant/WebApp/RepoList.hs
View file

@ -112,6 +112,10 @@ getRepoListR (RepoListNotificationId nid reposelector) = do
repoListDisplay :: RepoSelector -> Widget
repoListDisplay reposelector = do
autoUpdate ident (NotifierRepoListR reposelector) (10 :: Int) (10 :: Int)
addScript $ StaticR jquery_ui_core_js
addScript $ StaticR jquery_ui_widget_js
addScript $ StaticR jquery_ui_mouse_js
addScript $ StaticR jquery_ui_sortable_js
repolist <- lift $ repoList reposelector
@ -209,7 +213,7 @@ getMoveRepositoryDown u = do
reorderRepository :: UUID -> Handler ()
reorderRepository uuid = do
liftAnnex $ do
void $ liftAnnex $ do
remote <- fromMaybe (error "Unknown UUID") <$>
Remote.remoteFromUUID uuid
rs <- Remote.enabledRemoteList