From 86cb4c2d76461e2b408455c1be657ba5ff459659 Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Sun, 26 Nov 2023 12:18:57 -0500 Subject: [PATCH] Smol change --- src/ludus/draw.cljs | 13 +++++++++++++ src/ludus/prelude.cljc | 2 +- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/src/ludus/draw.cljs b/src/ludus/draw.cljs index e2d0620..302b27b 100644 --- a/src/ludus/draw.cljs +++ b/src/ludus/draw.cljs @@ -1,2 +1,15 @@ (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 { + + }) \ No newline at end of file diff --git a/src/ludus/prelude.cljc b/src/ludus/prelude.cljc index e768485..ba3b498 100644 --- a/src/ludus/prelude.cljc +++ b/src/ludus/prelude.cljc @@ -250,7 +250,7 @@ ;(println "Fn: " called) ;(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)))))}) (def count- {:name "count"