From 7c311d2449cc81a20a9a3f5e26b71f36be263a0d Mon Sep 17 00:00:00 2001 From: Akshay Date: Sat, 1 May 2021 13:28:42 +0530 Subject: add minimap/preview box, lisp function to toggle --- src/lisp/prelude.rs | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'src/lisp') 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 { 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) -- cgit v1.2.3