fix(launcher): auto-update stale JAR when launcher version advances

jar/ensure! now compares the launcher version against version.edn
inside the installed JAR. On mismatch it stops the daemon, downloads
the matching release, and lets daemon/ensure! restart fresh.

Also bounces the daemon after `noum upgrade` so the new JAR is
actually loaded, and moves the version def to paths.clj so both
main.clj and api.clj can reference it.

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>

Author: leifericf

launcher/src/noum/api.clj

@@ -200,7 +200,7 @@
     (if-let [host (:host effective)]
       {:host host :token (:token effective) :insecure (:insecure effective)}
       (let [jre-path (jre/ensure!)
-            jar-path (jar/ensure!)]
+            jar-path (jar/ensure! paths/version)]
         (daemon/ensure! (merge {:jre-path jre-path :jar-path jar-path}
                                (select-keys effective [:db-dir :provider :model :token])))))))
 

launcher/src/noum/jar.clj

@@ -3,6 +3,7 @@
   (:require [babashka.fs :as fs]
             [babashka.http-client :as http]
             [cheshire.core :as json]
+            [clojure.edn :as edn]
             [clojure.java.io :as io]
             [noum.daemon :as daemon]
             [noum.paths :as paths]
@@ -63,15 +64,14 @@
                             {:expected expected :actual actual})))))
     (tui/eprintln "  Warning: no .sha256 sidecar in release, skipping checksum verification.")))
 
-(defn- current-version
-  "Read the installed JAR's version from the running daemon, or nil."
+(defn- jar-version
+  "Read version.edn from the installed JAR, or nil."
   []
-  (when-let [{:keys [port]} (daemon/connection)]
+  (when (installed?)
     (try
-      (let [resp (http/get (str "http://127.0.0.1:" port "/health")
-                           {:timeout 2000 :throw false})]
-        (when (= 200 (:status resp))
-          (-> (json/parse-string (:body resp) true) :data :version)))
+      (let [jar-url (java.net.URL. (str "jar:file:" paths/jar-path "!/version.edn"))]
+        (with-open [in (.openStream jar-url)]
+          (:version (edn/read-string (slurp in)))))
       (catch Exception _ nil))))
 
 (defn download!
@@ -84,7 +84,7 @@
       ((:stop s) "No JAR found in release")
       (throw (ex-info (str "No JAR asset found in release " (:tag release)) {})))
     (let [remote-ver (:tag release)
-          local-ver  (current-version)]
+          local-ver  (jar-version)]
       (if (and local-ver (= (str "v" local-ver) remote-ver))
         (do ((:stop s) (str "Already at latest version (" remote-ver ").")) nil)
         (do ((:stop s) (str "Found " remote-ver (when local-ver (str " (current: v" local-ver ")"))))
@@ -98,10 +98,24 @@
             (verify-checksum! paths/jar-path (:assets release) (:name asset))
             paths/jar-path)))))
 
+(defn- stale?
+  "True when the installed JAR version doesn't match the launcher version."
+  [launcher-version]
+  (when launcher-version
+    (let [jar-ver (jar-version)]
+      (and jar-ver (not= jar-ver launcher-version)))))
+
 (defn ensure!
-  "Ensure noumenon.jar is installed. Download if not. Returns jar path."
-  []
-  (if (installed?)
-    paths/jar-path
-    (do (tui/eprintln "First run: downloading noumenon.jar (~50MB) to ~/.noumenon/")
-        (download!))))
+  "Ensure noumenon.jar is installed and up to date. Returns jar path.
+   When launcher-version is supplied, triggers download if the running
+   JAR version differs."
+  ([] (ensure! nil))
+  ([launcher-version]
+   (if (installed?)
+     (if (stale? launcher-version)
+       (do (daemon/stop!)
+           (download!)
+           paths/jar-path)
+       paths/jar-path)
+     (do (tui/eprintln "First run: downloading noumenon.jar (~50MB) to ~/.noumenon/")
+         (download!)))))

launcher/src/noum/main.clj

@@ -4,7 +4,6 @@
             [babashka.http-client :as http]
             [babashka.process :as proc]
             [cheshire.core :as json]
-            [clojure.edn :as edn]
             [clojure.java.io :as io]
             [clojure.string :as str]
             [noum.api :as api]
@@ -23,10 +22,7 @@
             [noum.tui.spinner :as spinner]
             [noum.tui.style :as style]))
 
-(def ^:private version
-  (or (try (:version (edn/read-string (slurp (io/resource "version.edn"))))
-           (catch Exception _ nil))
-      "dev"))
+(def ^:private version paths/version)
 
 ;; --- Output ---
 
@@ -240,7 +236,8 @@
   (let [s (spinner/start "Downloading latest version...")]
     (try
       (if (jar/download!)
-        (do ((:stop s) "Noumenon updated.")
+        (do (when (daemon/running?) (daemon/stop!))
+            ((:stop s) "Noumenon updated.")
             (tui/eprintln "To update the noum launcher itself, re-run the installer.")
             0)
         (do ((:stop s) "Already at latest version.")
@@ -252,7 +249,7 @@
 
 (defn- do-serve [{:keys [flags]}]
   (let [jre-path (jre/ensure!)
-        jar-path (jar/ensure!)
+        jar-path (jar/ensure! version)
         java-bin (str (fs/path jre-path "bin" "java"))
         args     (cond-> [java-bin "-jar" jar-path "serve"]
                    (:db-dir flags)   (into ["--db-dir" (:db-dir flags)])

launcher/src/noum/paths.clj

@@ -1,6 +1,8 @@
 (ns noum.paths
   "Shared path constants for ~/.noumenon/."
   (:require [babashka.fs :as fs]
+            [clojure.edn :as edn]
+            [clojure.java.io :as io]
             [clojure.string :as str]))
 
 (defn ensure-private!
@@ -12,6 +14,11 @@
       (fs/set-posix-file-permissions path "rw-------")
       (catch UnsupportedOperationException _))))
 
+(def version
+  (or (try (:version (edn/read-string (slurp (io/resource "version.edn"))))
+           (catch Exception _ nil))
+      "dev"))
+
 (def noum-dir  (str (fs/path (fs/home) ".noumenon")))
 (def jre-dir   (str (fs/path noum-dir "jre")))
 (def lib-dir   (str (fs/path noum-dir "lib")))

resources/version.edn

@@ -1 +1 @@
-{:version "0.5.2"}
+{:version "0.5.3"}