From bfe6a86bd5b1d02988dbd9a3bb5759854d76a050 Mon Sep 17 00:00:00 2001 From: Akshay Date: Mon, 24 May 2021 22:27:41 +0530 Subject: basic primitives to repeat last paint op --- src/lisp/prelude.rs | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'src/lisp/prelude.rs') diff --git a/src/lisp/prelude.rs b/src/lisp/prelude.rs index dddce5f..ce3f97b 100644 --- a/src/lisp/prelude.rs +++ b/src/lisp/prelude.rs @@ -536,6 +536,15 @@ pub fn new_env() -> Result { ])) }); + primitive!(env, Arity::Exact(0), "active-color", |_, app| { + Ok(LispExpr::BoolLit(app.active_color)) + }); + + primitive!(env, Arity::Exact(1), "set-active-color!", |args, app| { + app.active_color = args[0].cast_bool(); + Ok(LispExpr::Unit) + }); + primitive!(env, Arity::Exact(2), "range", |args, _| { if type_match!( args, -- cgit v1.2.3