Smol change

This commit is contained in:
Scott Richmond 2023-11-26 12:18:57 -05:00
parent baaa010721
commit 86cb4c2d76
2 changed files with 14 additions and 1 deletions

View File

@ -1,2 +1,15 @@
(ns ludus.draw) (ns ludus.draw)
(defn background
([x] (js/background x))
([r g b] (js/background r g b))
([r g b a] (js/background r g b a)))
(defn rect [[x y] [w h]]
(js/rect x y w h))
(defn ellipse [[x y] [w h]])
(def draw {
})

View File

@ -250,7 +250,7 @@
;(println "Fn: " called) ;(println "Fn: " called)
;(println "Args: " (clj->js fn-args)) ;(println "Args: " (clj->js fn-args))
#?( #?(
:clj(apply called fn-args) :clj (apply called fn-args)
:cljs (.apply called js/window (clj->js fn-args)))))}) :cljs (.apply called js/window (clj->js fn-args)))))})
(def count- {:name "count" (def count- {:name "count"