| {:paths ["src" "resources"] | |
| :deps {org.clojure/clojure {:mvn/version "1.11.1"} | |
| metosin/reitit {:mvn/version "0.6.0"} | |
| info.sunng/ring-jetty9-adapter {:mvn/version "0.30.0"} | |
| http-kit/http-kit {:mvn/version "2.7.0"}} | |
| :aliases | |
| {:dev {:jvm-opts ["--enable-preview"]} | |
| :run {:exec-fn server/go | |
| :exec-args {}}}} |
Simple experiment to test the effects of different techniques and options on application start up time
The goal of CDS is to reduce the startup time of the JVM by loading from a pre-processed archive of Java classes and JVM metadata that is used during the initialization process. https://dev.java/learn/jvm/cds-appcds/
| (require 'lsp) | |
| (defcustom-lsp lsp-unison-lsp-port 5757 | |
| "The port of a running UCM language server. You can overwride thise by setting the UNISON_LSP_PORT environment variable when running UCM." | |
| :type 'number | |
| :group 'lsp-unison | |
| :package-version '(lsp-mode . "8.0.1") | |
| :lsp-path "unison.lspPort") | |
| (defcustom-lsp lsp-unison-trace-server "off" |
| (defn qualify-definitions | |
| [d prefix] | |
| (let [p (str prefix ".") | |
| p' (str "#/definitions/" p)] | |
| (into | |
| {} | |
| (map (fn [[k v]] | |
| [(str p k) | |
| (walk/postwalk | |
| (fn [o] |
| (ns build | |
| (:refer-clojure :exclude [test]) | |
| (:require | |
| [clojure.tools.build.api :as b] | |
| [org.corfield.build :as bb])) | |
| (def version (format "0.0.%s" (b/git-count-revs nil))) | |
| (def class-dir "target/classes") |
| (defmacro $ [& body] `(fn ~'thunk [] ~@body)) | |
| ;;; best effort to create a named function | |
| (defmacro $ | |
| [& body] | |
| (let [name (or (and (sequential? (first body)) | |
| (symbol? (ffirst body)) | |
| (-> body ffirst name (str "-thunk") symbol)) | |
| 'thunk)] | |
| `(fn ~name [] ~@body))) |
| (defprotocol IDoubleDispatch | |
| (-add [this k f]) | |
| (-remove [this k])) | |
| (defmulti ->= type) | |
| (defmethod ->= String [^String x] #(.equals x %)) | |
| (defmethod ->= clojure.lang.Keyword [^clojure.lang.Keyword x] #(.equals x %)) | |
| (defmethod ->= clojure.lang.Symbol [^clojure.lang.Symbol x] #(.equals x %)) | |
| (defmethod ->= Long [^long x] | |
| #(if (int? %) (= x (unchecked-long %)) false)) |
| (defmacro defrecord* | |
| [-name fields & opts+specs] | |
| (let [p (:proxy (meta -name)) | |
| extra (for [protocol p | |
| :let [-ns (namespace protocol) | |
| arg (first fields) | |
| p' @(requiring-resolve protocol)]] | |
| [protocol | |
| (apply | |
| concat |
| ;; http://johnj.com/from-elegance-to-speed.html | |
| (def times (iterate #(+ % (rand-int 1000)) 0)) | |
| (def times-v (into [] (take 1e6) (iterate #(+ % (rand-int 1000)) 0))) | |
| (defn smt-8 [times] | |
| (->> times | |
| (partition 8 1) | |
| (map (juxt identity |
| (defn wrap-async | |
| ([af on-success on-failure] | |
| (wrap-async af identity on-success on-failure)) | |
| ([af before on-success on-failure] | |
| (fn -wrap [-next] | |
| (fn -async [ctx respond raise] | |
| (let [ctx (before ctx)] | |
| (letfn [(-on-success [result] (-next (on-success ctx result)) respond raise) | |
| (-on-failure [?error] (raise (on-failure ctx ?error)))] | |
| (af ctx -on-success -on-failure))))))) |