github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-07 20:49:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

📎 Add helpers for instrumenting vars

Browse Source
This commit is contained in:
Andrey Antukh 2023-02-02 10:58:51 +01:00
parent 32b8a2c243
commit b54bf2bba4
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
backend/src/app/srepl/main.clj
View File

@ -144,3 +144,23 @@
[system & {:as params}] [system & {:as params}]
(enable-objects-map-feature-on-file! system params) (enable-objects-map-feature-on-file! system params)
(enable-pointer-map-feature-on-file! system params)) (enable-pointer-map-feature-on-file! system params))
(defn instrument-var
[var]
(alter-var-root var (fn [f]
(let [mf (meta f)]
(if (::original mf)
f
(with-meta
(fn [& params]
(tap> params)
(let [result (apply f params)]
(tap> result)
result))
{::original f}))))))
(defn uninstrument-var
[var]
(alter-var-root var (fn [f]
(or (::original (meta f)) f))))