Should make reloading AND aot work again

src/clj/user.clj

@@ -1,36 +1,30 @@
   (ns user
-  (:require
-   [amazonica.aws.s3 :as s3]
-   [clojure.tools.namespace.repl :refer [set-refresh-dirs refresh]]
-   [auto-ap.datomic :refer [conn pull-attr random-tempid]]
-   [auto-ap.ledger :as l]
-   [clj-http.core :as http]
-   [clj-http.client :as client]
-   [figwheel.main.api]
-   [hawk.core]
-   [auto-ap.server]
-   [auto-ap.time :as atime]
-   [auto-ap.utils :refer [by]]
-   [clj-time.coerce :as c]
-   [clj-time.core :as t]
-   [clj-time.periodic :as per]
-   [clojure.core.async :as async]
-   [clojure.data.csv :as csv]
-   [clojure.java.io :as io]
-   [clojure.pprint]
-   [clojure.string :as str]
-   [config.core :refer [env]]
-   [datomic.api :as dc]
-   [mount.core :as mount]
-   [nrepl.middleware.print]
-   [com.brunobonacci.mulog :as mu]
-   [com.brunobonacci.mulog.buffer :as rb]
-   [datomic.api :as d]
-   [puget.printer :as puget]
-   [clojure.data.json :as json]
-   [auto-ap.solr :as solr])
-  (:import
-   (org.apache.commons.io.input BOMInputStream)))
+  (:require [amazonica.aws.s3 :as s3]
+            [auto-ap.datomic :refer [conn pull-attr random-tempid]]
+            [auto-ap.solr :as solr]
+            [auto-ap.time :as atime]
+            [auto-ap.utils :refer [by]]
+            [clj-time.coerce :as c]
+            [clj-time.core :as t]
+            [clojure.core.async :as async]
+            [auto-ap.handler :refer [app]]
+            [ring.adapter.jetty :refer [run-jetty]]
+            [clojure.data.csv :as csv]
+            [clojure.java.io :as io]
+            [clojure.pprint]
+            [clojure.string :as str]
+            [clojure.tools.namespace.repl :refer [refresh set-refresh-dirs]]
+            [com.brunobonacci.mulog :as mu]
+            [com.brunobonacci.mulog.buffer :as rb]
+            [config.core :refer [env]]
+            [datomic.api :as dc]
+            [datomic.api :as d]
+            [figwheel.main.api]
+            [hawk.core]
+            [mount.core :as mount]
+            [nrepl.middleware.print])
+  (:import (org.apache.commons.io.input BOMInputStream)
+           [org.eclipse.jetty.server.handler.gzip GzipHandler]))
 
 
 (defn println-event [item]
@@ -307,11 +301,6 @@
        accounts)))
    vec))
 
-#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
-(defn go []
-  (require '[mount.core :as mount])
-  (require '[auto-ap.server])
-  (mount/start-without #'auto-ap.server/jetty))
 
 #_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (defn entity-history [i]
@@ -367,12 +356,48 @@
   (hawk.core/watch! [{:paths ["src/"]
                       :handler auto-reset-handler}]))
 
+
+
+(defn gzip-handler []
+  (doto (GzipHandler.)
+    (.setIncludedMimeTypes (into-array ["text/css"
+                                        "text/plain"
+                                        "text/javascript"
+                                        "text/csv"
+                                        "text/html"
+                                        "text/html;charset=utf-8"
+                                        "application/javascript"
+                                        "application/csv"
+                                        "application/edn"
+                                        "application/json"
+                                        "image/svg+xml"]))
+    (.setMinGzipSize 1024)))
+
+(defn configure-jetty [server]
+  (let [ gzip-handler (gzip-handler)
+        default-handler (.getHandler server)]
+
+    (.setHandler gzip-handler default-handler)
+    (.setHandler server gzip-handler))
+  (.setStopAtShutdown server true))
+
+(mount/defstate port :start (Integer/parseInt (or (env :port) "3000")))
+
+(mount/defstate jetty
+  :start (run-jetty app {:port port
+                         :join? false
+                         :configurator configure-jetty
+                         :response-header-size 16384
+                         :request-header-size 16384})
+  :stop (.stop jetty))
 (defn start-http  []
-  (mount.core/start (mount.core/only #{#'auto-ap.server/port #'auto-ap.server/jetty})))
+  (mount.core/start (mount.core/only #{#'user/port #'user/jetty})))
 
 
 (defn start-dev []
   (set-refresh-dirs "src")
+  #_(clojure.tools.namespace.repl/disable-reload!  (find-ns  'auto-ap.server))
+  (clojure.tools.namespace.repl/disable-reload!  (find-ns  'auto-ap.time))
   (start-db)
   (start-http)
   (auto-reset))
@@ -386,8 +411,6 @@
   (mount.core/stop (mount.core/only #{#'auto-ap.datomic/conn}))
   (start-db))
 
-
-
 #_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (defn spit-csv [columns data]
   (csv/write-csv *out*