From 607e537eaa8614ff9338d7aece5044d98c421584 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 13 Dec 2018 21:32:32 -0500
Subject: Re-add key-pressed? and key-released? procedures.

* chickadee.scm (key-pressed?, key-released?): New procedures.
* examples/grid.scm: Remove (sdl2 input keyboard) import.
---
 chickadee.scm     | 13 ++++++++++++-
 examples/grid.scm |  3 +--
 2 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/chickadee.scm b/chickadee.scm
index 3c10880..73aeae9 100644
--- a/chickadee.scm
+++ b/chickadee.scm
@@ -25,6 +25,7 @@
   #:use-module (sdl2)
   #:use-module (sdl2 events)
   #:use-module (sdl2 input game-controller)
+  #:use-module ((sdl2 input keyboard) #:prefix sdl2:)
   #:use-module (sdl2 input joystick)
   #:use-module (sdl2 input text)
   #:use-module (sdl2 mixer)
@@ -36,10 +37,20 @@
   #:use-module (chickadee render gl)
   #:use-module (chickadee render gpu)
   #:use-module (chickadee render viewport)
-  #:export (current-window
+  #:export (key-pressed?
+            key-released?
+            current-window
             run-game)
   #:re-export (abort-game))
 
+(define (key-pressed? key)
+  "Return #t if KEY is currently being pressed."
+  (sdl2:key-pressed? key))
+
+(define (key-released? key)
+  "Return #t if KEY is not currently being pressed."
+  (sdl2:key-released? key))
+
 (define *controllers* (make-hash-table))
 
 (define (lookup-controller joystick-id)
diff --git a/examples/grid.scm b/examples/grid.scm
index 0234746..f20f64d 100644
--- a/examples/grid.scm
+++ b/examples/grid.scm
@@ -6,8 +6,7 @@
              (chickadee render color)
              (chickadee render font)
              (chickadee render shapes)
-             (chickadee render sprite)
-             (sdl2 input keyboard))
+             (chickadee render sprite))
 
 (define grid (make-grid))
 (define item-color (make-color 0.7 0.0 0.0 0.5))
-- 
cgit v1.2.3