From a969c1059b636a8f8807c621c35d1382259367f1 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 6 Jan 2019 00:05:47 -0500
Subject: Add controller-name procedure.

* chickadee.scm (controller-name): New procedure.
---
 chickadee.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'chickadee.scm')

diff --git a/chickadee.scm b/chickadee.scm
index e14f924..0b46237 100644
--- a/chickadee.scm
+++ b/chickadee.scm
@@ -38,9 +38,11 @@
   #:use-module (chickadee render gl)
   #:use-module (chickadee render gpu)
   #:use-module (chickadee render viewport)
+  #:use-module (chickadee utils)
   #:export (current-window
             controller-button-pressed?
             controller-axis
+            controller-name
             key-pressed?
             key-released?
             mouse-x
@@ -108,6 +110,13 @@ not being pushed at all."
   (/ (sdl2:game-controller-axis controller axis)
      32768.0))
 
+(define controller-name
+  ;; Memoize to avoid repeated allocation of strings via
+  ;; pointer->string.
+  (memoize
+   (lambda (controller)
+     (sdl2:game-controller-name controller))))
+
 (define current-window (make-parameter #f))
 
 (define* (run-game #:key
-- 
cgit v1.2.3