diff --git a/bootstrap.fnl b/bootstrap.fnl index e775c02..fbd0661 100644 --- a/bootstrap.fnl +++ b/bootstrap.fnl @@ -1,5 +1,5 @@ (local m (require "main.min.fnl")) -(set _G.setup m.setup) -(set _G.draw m.draw) -(set _G.keyPressed m.key-pressed) +(set _G.setup m.s) +(set _G.draw m.d) +(set _G.keyPressed m.k) diff --git a/main.fnl b/main.fnl index 397192b..fdd353a 100644 --- a/main.fnl +++ b/main.fnl @@ -9,7 +9,7 @@ (set yellow (color 255 228 112)) (set dark (color 64 56 48))) -(local steps (* 24 60)) +(local steps (* 24 60)) (var step 0) (lambda lpad [num] (if (< num 10) (.. "0" num) num)) @@ -40,7 +40,7 @@ (when won (text "YOU WIN" 100 400))) { - :setup setup - :draw draw - :key-pressed key-pressed + :s setup + :d draw + :k key-pressed } diff --git a/minify.bb b/minify.bb index 842bff9..0091c1c 100755 --- a/minify.bb +++ b/minify.bb @@ -58,7 +58,7 @@ (def built-ins #{"fn" "local" "λ" "lambda" "require" "let" "+" "-" "/" "*" "<" ">" "<=" ">=" "not=" ".." "var" "if" "when" "and" "or" "not" "do" "set" "each" "for" "while" "true" "$1" "math.floor" "floor" "false" "nil" "size" "textSize" "background" "text" "random" "key" - ":setup" ":draw" ":key-pressed" ":L5" "map" "color" "lerpColor"}) + ":s" ":d" ":k" ":L5" "map" "color" "lerpColor"}) (defn collect-bindings [tokens] (reduce (fn [acc token]