Prepare for next release

- dogfood launchpad
- experimental LSP integration(ish)
- start watcher in background thread
- include `:deps` from `deps.local.edn` in inital boot

Author: plexus

.gitignore

@@ -12,3 +12,5 @@ resources/public/ui
 .store
 out
 .#*
+.clj-kondo
+.lsp/.cache

.lsp/config.edn

@@ -0,0 +1 @@
+{:project-specs [:classpath-cmd ["cat" ".cpcache/launchpad.edn"]]}

CHANGELOG.md

@@ -2,9 +2,17 @@
 
 ## Added
 
+- Write the current classpath to `.cpcache/launchpad.cp`, for integrating third
+  parties like clojure-lsp. (configure `cat .cpache/launchpad.cp` as your
+  `:classpath-cmd`)
+- Call `(user/go)` in a `try/catch`
+- Start the watcher on a separate thread, it can take a long time to boot, and
+  meanwhile we shouldn't block REPL startup.
+
 ## Fixed
 
-## Changed
+- Pick up any `:deps` from `deps.local.edn` at startup, not at the first
+  classpath reload
 
 # 0.11.59-alpha (2022-10-21 / 8454771)
 
@@ -90,4 +98,4 @@ Initial release
 - lambdaisland.classpath integration
 - Support for cider-nrepl, refactor-nrepl
 - Basic support for shadow-cljs cljs nREPL-base REPL
-- Auto-connect for Emacs
+- Auto-connect for Emacs

bb.edn

@@ -1,4 +1,5 @@
 {:deps
  {lambdaisland/open-source {:git/url "https://github.com/lambdaisland/open-source"
                             :sha "7f39ffb76d47e2ff83d4478957c2ca4fd180f3e5"
-                            #_#_:local/root "../open-source"}}}
+                            #_#_:local/root "../open-source"}
+  com.lambdaisland/launchpad {:local/root "."}}}

bin/launchpad

@@ -0,0 +1,5 @@
+#!/usr/bin/env bb
+(ns transit.dev-repl.main
+  (:require [lambdaisland.launchpad :as launchpad]))
+
+(launchpad/main {})

deps.edn

@@ -2,7 +2,7 @@
 
  :deps
  {org.clojure/clojure {:mvn/version "1.11.1"}
-  com.lambdaisland/dotenv {:mvn/version "0.1.1"}}
+  com.lambdaisland/dotenv {:mvn/version "0.2.5"}}
 
  :aliases
  {:clojure { :extra-deps {babashka/babashka {:mvn/version "1.0.164" :scope "provided"}
@@ -16,4 +16,4 @@
 
   :test
   {:extra-paths ["test"]
-   :extra-deps  {lambdaisland/kaocha {:mvn/version "1.70.1086"}}}}}
+   :extra-deps  {lambdaisland/kaocha {:mvn/version "1.71.1119"}}}}}

src/lambdaisland/launchpad.clj

@@ -158,6 +158,9 @@
                                          :else
                                          b))
                                      deps-edn deps-local))
+        ;; Pull these out and inject them into -Sdeps, otherwise they are only
+        ;; picked up with the next reload
+        (update :extra-deps merge (:deps deps-local))
         ;; It seems like if we set `{:aliases {}}` via `-Sdeps` it overrides
         ;; deps.edn aliases, rather than merging them, so we merge them
         ;; ourselves and pass them all to -Sdeps. Needs more testing to see if
@@ -217,7 +220,8 @@
     (-> ctx
         (update :requires conj 'lambdaisland.launchpad.watcher)
         (update :eval-forms (fnil conj [])
-                `(lambdaisland.launchpad.watcher/watch! ~watch-handlers)))))
+                `(future
+                   (lambdaisland.launchpad.watcher/watch! ~watch-handlers))))))
 
 (defn clojure-cli-args [{:keys [aliases requires nrepl-port java-args middleware extra-deps alias-defs eval-forms] :as ctx}]
   (cond-> ["clojure"]
@@ -238,7 +242,10 @@
   (cond-> ctx
     (:go options)
     (update :eval-forms (fnil conj [])
-            '(user/go))))
+            '(try
+               (user/go)
+               (catch Exception e
+                 (println "(user/go) failed" e))))))
 
 (defn run-nrepl-server [{:keys [nrepl-port middleware] :as ctx}]
   (-> ctx
@@ -258,6 +265,8 @@
   (as-> ctx <>
     (update <> :extra-deps assoc 'com.lambdaisland/classpath classpath-coords)
     (update <> :requires conj 'lambdaisland.launchpad.deps)
+    (update <> :eval-forms (fnil conj [])
+            `(lambdaisland.launchpad.deps/write-cpcache-file))
     (register-watch-handlers
      <>
      `(lambdaisland.launchpad.deps/watch-handlers

src/lambdaisland/launchpad/deps.clj

@@ -3,7 +3,9 @@
    [clojure.edn :as edn]
    [clojure.java.io :as io]
    [clojure.tools.deps.alpha :as deps]
-   [lambdaisland.classpath.watch-deps :as watch-deps]))
+   [clojure.string :as str]
+   [lambdaisland.classpath.watch-deps :as watch-deps]
+   [lambdaisland.classpath :as licp]))
 
 (defn basis [opts]
   (let [deps-local-file (io/file "deps.local.edn")
@@ -14,6 +16,22 @@
                            (update :aliases concat (:launchpad/aliases deps-local))
                            (assoc :extra extra-deps)))))
 
+(defn write-cpcache-file
+  "Write the current classpath to well-known location. Can be used to configure
+  things like LSP that try to guess the classpath without having a running
+  process.
+
+  e.g. .lsp/config.edn
+  ```
+  {:project-specs [:classpath-cmd [\"cat\" \".cpcache/launchpad.edn\"]]}
+  ```
+  "
+  []
+  (spit ".cpcache/launchpad.cp"
+        (str/join
+         ":"
+         (time (mapcat second (licp/classpath-chain))))))
+
 (defn watch-handlers [opts]
   (let [basis (basis opts)
         deps-paths (cond-> [(watch-deps/path watch-deps/process-root-path "deps.edn")
@@ -27,7 +45,9 @@
                      (conj (watch-deps/canonical-path (:extra opts)))
                      :always
                      (concat (:watch-paths opts)))
-        handler (partial #'watch-deps/on-event deps-paths opts)]
+        handler (fn [e]
+                  (#'watch-deps/on-event deps-paths opts e)
+                  (write-cpcache-file))]
     (into {}
           (map (fn [p]
                  [(str p) handler]))

src/lambdaisland/launchpad/shadow.clj

@@ -106,5 +106,4 @@
           (recur))))))
 
 #_(start-builds :main)
-
-(require 'shadow.build)
+#_(require 'shadow.build)