A screen for the machines, and failures a phone can act on

The other half of making setups editable: add, rename, rediscover and
remove, with a Test that tries a machine before anything is saved.

The screen cannot name a program, which is the point rather than an
omission -- providers are what the server found when it asked, so this app
has no way to introduce something to run. The dialog says so, because
"what it can run is discovered, not typed" is the answer to the question a
person will otherwise ask when they look for a command field.

Two things running it changed. The card showed "this machine / this
machine", because the seeded setup is *called* that and my fallback line
for a local setup said the same -- the line now says something the name
cannot also be. And the header row absorbed a fifth action without
complaint, which is the earlier title-and-actions split paying off exactly
as its comment predicted.

**Host key verification is the failure that would have made this look
broken.** Every machine fails it the first time, because its key is not in
known_hosts yet, and ssh's own words -- "Host key verification failed." --
are written for somebody at a terminal on the backend, which is exactly who
is not reading a phone. It now says what to do: ssh to it once from the
backend and try again. Permission denied gets the same treatment.

Deliberately *not* fixed by relaxing StrictHostKeyChecking. Accepting a new
key is a decision somebody should make with the key in front of them, not
something this app does quietly on their behalf while adding a machine.

Verified on the emulator against a running server: the seeded setup renders
with what was discovered on it, the add dialog explains itself, and Test
against an untrusted machine produces the full explanation rather than
ssh's four words.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_017xn8nHw1tw1R6PtiY1eEtw

app/androidApp/src/main/kotlin/com/example/aiapp/Api.kt

@@ -140,28 +140,110 @@ fun fetchSessions(settings: ServerSettings): List<SessionSummary> =
 // would offer pairs that cannot work.
 data class Provider(val name: String, val kind: String, val models: List<String>)
 
-/** A machine, and what it can run. [address] is absent for the backend itself. */
-data class Setup(val name: String, val address: String?, val providers: List<Provider>)
+/**
+ * A machine, and what it can run. [address] is absent for the backend itself.
+ *
+ * [id] is stable and [name] is not: renaming a machine keeps its sessions, so everything that
+ * refers to a setup uses the id and everything a person reads uses the name.
+ */
+data class Setup(
+    val id: String,
+    val name: String,
+    val address: String?,
+    val providers: List<Provider>,
+)
+
+private fun parseProvider(provider: JSONObject) =
+    Provider(
+        name = provider.getString("name"),
+        kind = provider.getString("kind"),
+        // Omitted entirely when the provider offers none.
+        models = provider.optJSONArray("models")?.strings().orEmpty(),
+    )
+
+private fun parseSetup(setup: JSONObject) =
+    Setup(
+        id = setup.getString("id"),
+        name = setup.getString("name"),
+        address = setup.optString("address").ifEmpty { null },
+        providers = setup.getJSONArray("providers").mapObjects(::parseProvider),
+    )
 
 fun fetchSetups(settings: ServerSettings): List<Setup> =
-    requestFromServer(settings, "/setups") { connection ->
-        connection.jsonObjects { setup ->
-            Setup(
-                name = setup.getString("name"),
-                address = setup.optString("address").ifEmpty { null },
-                providers =
-                    setup.getJSONArray("providers").mapObjects { provider ->
-                        Provider(
-                            name = provider.getString("name"),
-                            kind = provider.getString("kind"),
-                            // Omitted entirely when the provider offers none.
-                            models = provider.optJSONArray("models")?.strings().orEmpty(),
-                        )
-                    },
-            )
-        }
+    requestFromServer(settings, "/setups") { it.jsonObjects(::parseSetup) }
+
+/**
+ * How to reach a machine. Deliberately carries no command: the server discovers what a machine can
+ * run by asking it, so this app has no way to introduce something to run.
+ *
+ * [identityFile] is a path on the *backend*, not a key -- private keys do not travel.
+ */
+data class SshDetails(
+    val address: String,
+    val port: Int? = null,
+    val identityFile: String? = null,
+)
+
+private fun SshDetails.toJson() =
+    JSONObject().put("address", address).apply {
+        if (port != null) put("port", port)
+        if (!identityFile.isNullOrBlank()) put("identityFile", identityFile)
     }
 
+/** What a machine turns out to have, without saving anything. */
+fun probeSetup(settings: ServerSettings, ssh: SshDetails?): List<Provider> =
+    requestFromServer(
+        settings,
+        "/setups/probe",
+        method = "POST",
+        jsonBody = JSONObject().apply { if (ssh != null) put("ssh", ssh.toJson()) }.toString(),
+        readTimeoutMs = 40000,
+    ) {
+        it.jsonObjects(::parseProvider)
+    }
+
+fun addSetup(settings: ServerSettings, name: String, ssh: SshDetails?): Setup =
+    requestFromServer(
+        settings,
+        "/setups",
+        method = "POST",
+        jsonBody =
+            JSONObject()
+                .put("name", name)
+                .apply { if (ssh != null) put("ssh", ssh.toJson()) }
+                .toString(),
+        readTimeoutMs = 40000,
+    ) {
+        parseSetup(it.jsonObject())
+    }
+
+/** Renames a machine, and optionally asks it again what it has. */
+fun updateSetup(
+    settings: ServerSettings,
+    id: String,
+    name: String? = null,
+    rediscover: Boolean = false,
+): Setup =
+    requestFromServer(
+        settings,
+        "/setups/${id.urlEncoded()}",
+        method = "PUT",
+        jsonBody =
+            JSONObject()
+                .apply {
+                    if (name != null) put("name", name)
+                    if (rediscover) put("rediscover", true)
+                }
+                .toString(),
+        readTimeoutMs = 40000,
+    ) {
+        parseSetup(it.jsonObject())
+    }
+
+fun deleteSetup(settings: ServerSettings, id: String) {
+    requestFromServer(settings, "/setups/${id.urlEncoded()}", method = "DELETE") {}
+}
+
 /**
  * Spawns a session and returns it as the list would show it. [setup] names the machine and
  * [provider] one of the things that machine offers.