add importable trace macro

This commit is contained in:
Daniel Barlow 2024-09-10 17:53:15 +01:00
parent 2743c3ece0
commit 0c3091632f
3 changed files with 9 additions and 0 deletions

View File

@ -1,5 +1,6 @@
(local { : Gtk : Gdk : WebKit2 : cairo } (require :lgi))
(local { : view } (require :fennel))
(import-macros {: trace} :macros)
(fn new-buffer [name]
(var property-change-listener nil)

View File

@ -1,6 +1,7 @@
(local { : Gdk } (require :lgi))
(local { : view } (require :fennel))
(local lume (require :lume))
(import-macros {: trace} :macros)
(local modifier-keyvals
;; we need to detect and discard modifier-only key events when

7
macros.fnl Normal file
View File

@ -0,0 +1,7 @@
(fn trace [x]
`(do
(print :trace ,(view x) (view ,x))
,x))
{ : trace }