Bumped duti, simplified user.clj

Author: tonsky

deps.edn

@@ -26,8 +26,7 @@
     :dev {
       :extra-paths ["dev"]
       :extra-deps {
-        io.github.tonsky/clj-reload {:mvn/version "0.4.3"}
-        io.github.tonsky/duti       {:git/sha "78bbf61953b9a685d02ff8cc63d04e4e8da81eb9"}
+        io.github.tonsky/duti {:git/sha "0e934d934b0b5d1ab1a608f26b68f5467934b028"}
       }
     }
 

dev/user.clj

@@ -1,26 +1,16 @@
 (ns user
   (:require
-    [clj-reload.core :as reload]
     [duti.core :as duti]))
 
-(reload/init
-  {:dirs ["src" "bench" "test" #_"bench_datomic" #_"test_datomic"]
-   :no-reload '#{user}})
+(duti/set-dirs "src" "bench" "test" #_"bench_datomic" #_"test_datomic")
 
-(defn reload [& [opts]]
-  (set! *warn-on-reflection* true)
-  (let [res (reload/reload opts)
-        cnt (count (:loaded res))]
-    (str "Reloaded " cnt " namespace" (when (not= 1 cnt) "s"))))
+(def reload
+  duti/reload)
 
-(defn -main [& args]
-  (let [args (apply array-map args)
-        ;; starting app
-        _    (set! *warn-on-reflection* true)
-        _    (require 'datascript.test)
-        ;; starting socket repl
-        port (some-> (get args "--port") parse-long)
-        _    (duti/start-socket-repl {:port port})]))
+(defn -main [& {:as args}]
+  (set! *warn-on-reflection* true)
+  (require 'datascript.test)
+  (duti/start-socket-repl))
 
 (defn test-all []
   (reload)