mirror of
https://github.com/penpot/penpot.git
synced 2025-02-14 19:19:09 -05:00
17 lines
529 B
Clojure
17 lines
529 B
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 app.util.perf
|
|
"Performance profiling for react components.")
|
|
|
|
(defmacro with-measure
|
|
[name & body]
|
|
`(let [start# (app.util.perf/timestamp)
|
|
res# (do ~@body)
|
|
end# (app.util.perf/timestamp)]
|
|
(app.util.perf/register-measure ~name (- end# start#))
|
|
res#))
|
|
|