From 68d65098a614b740aec4b3bc4c1e863e8064709c Mon Sep 17 00:00:00 2001
From: eluum <bhrumbaugh@yahoo.com>
Date: Sat, 16 Jul 2022 21:30:11 -0700
Subject: [PATCH 1/2] added functions hide-cursor show-cursor and
 disable-cursor for chaning the cursor input mode.

---
 input.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/input.scm b/input.scm
index 6f27d1d..c39036b 100644
--- a/input.scm
+++ b/input.scm
@@ -197,3 +197,12 @@
       (m*vector! ivp near)
       (m*vector! ivp far)
       (values near far))))
+
+(define (hide-cursor)
+  (%set-input-mode (%window) %+cursor+ %+cursor-hidden+))
+
+(define (show-cursor)
+  (%set-input-mode (%window) %+cursor+ %+cursor-normal+))
+
+(define (disable-cursor)
+  (%set-input-mode (%window) %+cursor+ %+cursor-disabled+))

From 3cdea11dab2125f4ba3eb4168dc3bcd2fecffda2 Mon Sep 17 00:00:00 2001
From: eluum <bhrumbaugh@yahoo.com>
Date: Sun, 17 Jul 2022 11:33:17 -0700
Subject: [PATCH 2/2] Added new functions to exports

---
 input.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/input.scm b/input.scm
index c39036b..8a488e6 100644
--- a/input.scm
+++ b/input.scm
@@ -21,7 +21,10 @@
         scroll-callback
         get-cursor-position
         set-cursor-position
-        get-cursor-world-position)
+        get-cursor-world-position
+        hide-cursor
+        show-cursor
+        disable-cursor)
 
 (define-record-type binding
   %make-binding