Make field readonly, not disabled

Working on Windows horriblness all day sure did nice things to my mood,
didn't it?

Assistant/WebApp/Configurators/Edit.hs

@@ -134,7 +134,8 @@ setRepoConfig uuid mremote oldc newc = do
 
 editRepositoryAForm :: Bool -> RepoConfig -> MkAForm RepoConfig
 editRepositoryAForm ishere def = RepoConfig
-	<$> areq textField "Name" (Just $ repoName def)
+	<$> areq (if ishere then readonlyTextField else textField)
+		"Name" (Just $ repoName def)
 	<*> aopt textField "Description" (Just $ repoDescription def)
 	<*> areq (selectFieldList groups `withNote` help) "Repository group" (Just $ repoGroup def)
 	<*> associateddirectory

Assistant/WebApp/Form.hs

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