disable text field for repository name for current repository

Assistant/WebApp/Configurators/Edit.hs

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

Assistant/WebApp/Form.hs

@@ -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. -}
 passwordField :: MkField Text
 passwordField = F.passwordField

doc/bugs/Can__39__t_rename___34__here__34___repository.mdwn

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