new `mouse` and `center-mouse` lisp primitives

1 files changed, 17 insertions, 0 deletions

diff --git a/src/lisp/prelude.rs b/src/lisp/prelude.rs
index 9330372..dddce5f 100644
--- a/src/lisp/prelude.rs
+++ b/src/lisp/prelude.rs
@@ -524,6 +524,18 @@ pub fn new_env() -> Result<Environment, LispError> {
         }
     });
 
+    primitive!(env, Arity::Exact(0), "mouse", |_, app| {
+        let (mouse_x, mouse_y) = if let Some((x, y)) = app.idx_at_coord(app.mouse) {
+            (x + 1, y + 1)
+        } else {
+            (0, 0)
+        };
+        Ok(LispExpr::DottedList(vec![
+            (mouse_x as i64).into(),
+            (mouse_y as i64).into(),
+        ]))
+    });
+
     primitive!(env, Arity::Exact(2), "range", |args, _| {
         if type_match!(
             args,
@@ -546,5 +558,10 @@ pub fn new_env() -> Result<Environment, LispError> {
         Ok(args[0].clone())
     });
 
+    primitive!(env, Arity::Exact(0), "center-mouse", |_, app| {
+        app.center_mouse();
+        Ok(LispExpr::Unit)
+    });
+
     Ok(env)
 }