basic primitives to repeat last paint oprepeat

1 files changed, 9 insertions, 0 deletions

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<Environment, LispError> {
         ]))
     });
 
+    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,