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

disable text field for repository name for current repository

Browse source
This commit is contained in:
Joey Hess 2013-06-13 13:38:46 -04:00
parent 5ded547527
commit c9f3082b99
3 changed files with 15 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
Assistant/WebApp/Configurators/Edit.hs
View file

@ -132,9 +132,10 @@ setRepoConfig uuid mremote oldc newc = do
legalName = makeLegalName . T.unpack . repoName legalName = makeLegalName . T.unpack . repoName
editRepositoryAForm :: RepoConfig -> MkAForm RepoConfig editRepositoryAForm :: Bool -> RepoConfig -> MkAForm RepoConfig
editRepositoryAForm def = RepoConfig editRepositoryAForm ishere def = RepoConfig
<$> areq textField "Name" (Just $ repoName def) <$> areq (if ishere then disabledTextField else textField)
"Name" (Just $ repoName def)
<*> aopt textField "Description" (Just $ repoDescription def) <*> aopt textField "Description" (Just $ repoDescription def)
<*> areq (selectFieldList groups `withNote` help) "Repository group" (Just $ repoGroup def) <*> areq (selectFieldList groups `withNote` help) "Repository group" (Just $ repoGroup def)
<*> associateddirectory <*> associateddirectory
@ -173,12 +174,12 @@ postEditNewCloudRepositoryR :: UUID -> Handler RepHtml
postEditNewCloudRepositoryR uuid = xmppNeeded >> editForm True uuid postEditNewCloudRepositoryR uuid = xmppNeeded >> editForm True uuid
editForm :: Bool -> UUID -> Handler RepHtml editForm :: Bool -> UUID -> Handler RepHtml
editForm new uuid = page "Configure repository" (Just Configuration) $ do editForm new uuid = page "Edit repository" (Just Configuration) $ do
mremote <- liftAnnex $ Remote.remoteFromUUID uuid mremote <- liftAnnex $ Remote.remoteFromUUID uuid
curr <- liftAnnex $ getRepoConfig uuid mremote curr <- liftAnnex $ getRepoConfig uuid mremote
liftAnnex $ checkAssociatedDirectory curr mremote liftAnnex $ checkAssociatedDirectory curr mremote
((result, form), enctype) <- liftH $ ((result, form), enctype) <- liftH $
runFormPost $ renderBootstrap $ editRepositoryAForm curr runFormPost $ renderBootstrap $ editRepositoryAForm (isNothing mremote) curr
case result of case result of
FormSuccess input -> liftH $ do FormSuccess input -> liftH $ do
setRepoConfig uuid mremote curr input setRepoConfig uuid mremote curr input

7
Assistant/WebApp/Form.hs
View file

@ -33,6 +33,13 @@ textField = F.textField
|] |]
} }
disabledTextField :: MkField Text
disabledTextField = F.textField
{ fieldView = \theId name attrs val _isReq -> [whamlet|
<input id="#{theId}" name="#{name}" *{attrs} type="text" value="#{either id id val}" disabled="true">
|]
}
{- Also without required attribute. -} {- Also without required attribute. -}
passwordField :: MkField Text passwordField :: MkField Text
passwordField = F.passwordField passwordField = F.passwordField

2
doc/bugs/Can__39__t_rename___34__here__34___repository.mdwn
View file

@ -28,3 +28,5 @@ Trying to rename the "here" repository fails
# End of transcript or log. # End of transcript or log.
"""]] """]]
> Made text field for this repository disabled. The current repository has no remote name to edit. [[done]] --[[Joey]]