mirror of
https://github.com/penpot/penpot.git
synced 2025-01-08 07:50:43 -05:00
147 lines
3.7 KiB
Clojure
147 lines
3.7 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS INC
|
|
|
|
(ns user
|
|
(:require
|
|
[app.common.data :as d]
|
|
[app.common.debug :as debug]
|
|
[app.common.exceptions :as ex]
|
|
[app.common.files.helpers :as cfh]
|
|
[app.common.fressian :as fres]
|
|
[app.common.geom.matrix :as gmt]
|
|
[app.common.logging :as l]
|
|
[app.common.perf :as perf]
|
|
[app.common.pprint :as pp]
|
|
[app.common.schema :as sm]
|
|
[app.common.schema.desc-js-like :as smdj]
|
|
[app.common.schema.desc-native :as smdn]
|
|
[app.common.schema.generators :as sg]
|
|
[app.common.spec :as us]
|
|
[app.common.json :as json]
|
|
[app.common.transit :as t]
|
|
[app.common.types.file :as ctf]
|
|
[app.common.uuid :as uuid]
|
|
[app.config :as cf]
|
|
[app.db :as db]
|
|
[app.main :as main]
|
|
[app.srepl.helpers :as srepl.helpers]
|
|
[app.srepl.main :as srepl]
|
|
[app.util.blob :as blob]
|
|
[app.util.time :as dt]
|
|
[clj-async-profiler.core :as prof]
|
|
[clojure.contrib.humanize :as hum]
|
|
[clojure.java.io :as io]
|
|
[clojure.pprint :refer [pprint print-table]]
|
|
[clojure.repl :refer :all]
|
|
[clojure.spec.alpha :as s]
|
|
[clojure.stacktrace :as trace]
|
|
[clojure.test :as test]
|
|
[clojure.test.check.generators :as tgen]
|
|
[clojure.tools.namespace.repl :as repl]
|
|
[clojure.walk :refer [macroexpand-all]]
|
|
[criterium.core :as crit]
|
|
[cuerdas.core :as str]
|
|
[datoteka.fs :as fs]
|
|
[integrant.core :as ig]
|
|
[malli.core :as m]
|
|
[malli.dev.pretty :as mdp]
|
|
[malli.error :as me]
|
|
[malli.generator :as mg]
|
|
[malli.registry :as mr]
|
|
[malli.transform :as mt]
|
|
[malli.util :as mu]
|
|
[promesa.exec :as px]))
|
|
|
|
(repl/disable-reload! (find-ns 'integrant.core))
|
|
(repl/disable-reload! (find-ns 'app.common.debug))
|
|
|
|
(set! *warn-on-reflection* true)
|
|
|
|
(add-tap #'debug/tap-handler)
|
|
|
|
;; --- Benchmarking Tools
|
|
|
|
(defmacro run-quick-bench
|
|
[& exprs]
|
|
`(crit/with-progress-reporting (crit/quick-bench (do ~@exprs) :verbose)))
|
|
|
|
(defmacro run-quick-bench'
|
|
[& exprs]
|
|
`(crit/quick-bench (do ~@exprs)))
|
|
|
|
(defmacro run-bench
|
|
[& exprs]
|
|
`(crit/with-progress-reporting (crit/bench (do ~@exprs) :verbose)))
|
|
|
|
(defmacro run-bench'
|
|
[& exprs]
|
|
`(crit/bench (do ~@exprs)))
|
|
|
|
;; --- Development Stuff
|
|
|
|
(defn- run-tests
|
|
([] (run-tests #"^backend-tests.*-test$"))
|
|
([o]
|
|
(repl/refresh)
|
|
(cond
|
|
(instance? java.util.regex.Pattern o)
|
|
(test/run-all-tests o)
|
|
|
|
(symbol? o)
|
|
(if-let [sns (namespace o)]
|
|
(do (require (symbol sns))
|
|
(test/test-vars [(resolve o)]))
|
|
(test/test-ns o)))))
|
|
|
|
(defn- start
|
|
[]
|
|
(try
|
|
(main/start)
|
|
:started
|
|
(catch Throwable cause
|
|
(ex/print-throwable cause))))
|
|
|
|
(defn- stop
|
|
[]
|
|
(main/stop)
|
|
:stopped)
|
|
|
|
(defn restart
|
|
[]
|
|
(stop)
|
|
(repl/refresh :after 'user/start))
|
|
|
|
(defn restart-all
|
|
[]
|
|
(stop)
|
|
(repl/refresh-all :after 'user/start))
|
|
|
|
;; (defn compression-bench
|
|
;; [data]
|
|
;; (let [humanize (fn [v] (hum/filesize v :binary true :format " %.4f "))
|
|
;; v1 (time (humanize (alength (blob/encode data {:version 1}))))
|
|
;; v3 (time (humanize (alength (blob/encode data {:version 3}))))
|
|
;; v4 (time (humanize (alength (blob/encode data {:version 4}))))
|
|
;; v5 (time (humanize (alength (blob/encode data {:version 5}))))
|
|
;; v6 (time (humanize (alength (blob/encode data {:version 6}))))
|
|
;; ]
|
|
;; (print-table
|
|
;; [{
|
|
;; :v1 v1
|
|
;; :v3 v3
|
|
;; :v4 v4
|
|
;; :v5 v5
|
|
;; :v6 v6
|
|
;; }])))
|
|
|
|
|
|
(defn calculate-frames
|
|
[{:keys [data]}]
|
|
(->> (vals (:pages-index data))
|
|
(mapcat (comp vals :objects))
|
|
(filter cfh/is-direct-child-of-root?)
|
|
(filter cfh/frame-shape?)
|
|
(count)))
|