73 lines
2.0 KiB
Clojure
73 lines
2.0 KiB
Clojure
(ns user
|
|
(:require
|
|
[clojure.core.server :as server]
|
|
[clojure.java.io :as io]
|
|
[clojure.tools.namespace.repl :as ns]
|
|
[clojure.tools.namespace.track :as track]))
|
|
|
|
(ns/disable-reload!)
|
|
|
|
(ns/set-refresh-dirs "clojure")
|
|
|
|
(def *reloaded
|
|
(atom nil))
|
|
|
|
(add-watch #'ns/refresh-tracker ::watch
|
|
(fn [_ _ old new]
|
|
(when (empty? (::track/load new))
|
|
(reset! *reloaded (::track/load old)))))
|
|
|
|
(defn after-reload []
|
|
(let [cnt (count @*reloaded)]
|
|
(str "Reloaded " cnt " namespace" (when (> cnt 1) "s"))))
|
|
|
|
(defn reload []
|
|
(set! *warn-on-reflection* true)
|
|
; (set! *unchecked-math* :warn-on-boxed)
|
|
(let [res (ns/refresh :after 'user/after-reload)]
|
|
(if (instance? Throwable res)
|
|
(throw res)
|
|
res)))
|
|
|
|
(def p-lock
|
|
(Object.))
|
|
|
|
(defn p-pos []
|
|
(let [trace (->> (Thread/currentThread)
|
|
(.getStackTrace)
|
|
(seq))
|
|
el ^StackTraceElement (nth trace 4)]
|
|
(str "[" (clojure.lang.Compiler/demunge (.getClassName el)) " " (.getFileName el) ":" (.getLineNumber el) "]")))
|
|
|
|
(defn p-impl [position form res]
|
|
(let [form (clojure.walk/postwalk
|
|
(fn [form]
|
|
(if (and
|
|
(list? form)
|
|
(= 'user/p-impl (first form)))
|
|
(clojure.lang.TaggedLiteral/create 'p (nth form 3))
|
|
form))
|
|
form)]
|
|
(locking p-lock
|
|
(println (str position " #p " form " => " (pr-str res))))
|
|
res))
|
|
|
|
(defn p [form]
|
|
`(p-impl (p-pos) '~form ~form))
|
|
|
|
(defn -main [& args]
|
|
;; setup repl
|
|
(let [args (apply array-map args)
|
|
port (or
|
|
(some-> (get args "--port") parse-long)
|
|
(+ 1024 (rand-int 64512)))
|
|
file (io/file ".repl-port")]
|
|
(println "Started Server Socket REPL on port" port)
|
|
(spit file port)
|
|
(.deleteOnExit file)
|
|
(server/start-server
|
|
{:name "repl"
|
|
:port port
|
|
:accept 'clojure.core.server/repl
|
|
:server-daemon false})))
|