add minimap/preview box, lisp function to toggle

1 files changed, 9 insertions, 0 deletions

diff --git a/src/lisp/prelude.rs b/src/lisp/prelude.rs
index 8088510..9330372 100644
--- a/src/lisp/prelude.rs
+++ b/src/lisp/prelude.rs
@@ -281,6 +281,15 @@ pub fn new_env() -> Result<Environment, LispError> {
         Ok(LispExpr::Unit)
     });
 
+    primitive!(env, Arity::Exact(0), "minimap-enabled?", |_, app| {
+        Ok(LispExpr::BoolLit(app.minimap))
+    });
+
+    primitive!(env, Arity::Exact(1), "set-minimap!", |args, app| {
+        app.minimap = args[0].cast_bool();
+        Ok(LispExpr::Unit)
+    });
+
     primitive!(env, Arity::Exact(0), "grid-rectangle", |_, app| {
         app.grid.kind = GridKind::Rectangle;
         Ok(LispExpr::Unit)