# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1482189577 18000
# Node ID d1a00aa22e790f662dff6a742d43f2ffc8e7af20
# Parent  e4dbbebd67fa61a23a87b25e1907b1ebdb464df0
Cleanup with qtenumcase

diff -r e4dbbebd67fa -r d1a00aa22e79 src/gui/screen.lisp
--- a/src/gui/screen.lisp	Mon Dec 19 13:05:04 2016 -0500
+++ b/src/gui/screen.lisp	Mon Dec 19 18:19:37 2016 -0500
@@ -143,26 +143,26 @@
   ;; └─┴─┴─┴─┘             ├─┴─┼─┤ │
   ;;                       │0  │.│ │
   ;;                       └───┴─┴─┘
-  (cond
-    ((= code (q+:qt.key_clear)) #x1)
-    ((= code (q+:qt.key_slash)) #x2)
-    ((= code (q+:qt.key_asterisk)) #x3)
-    ((= code (q+:qt.key_minus)) #xC)
+  (qtenumcase code
+    ((q+:qt.key_clear) #x1)
+    ((q+:qt.key_slash) #x2)
+    ((q+:qt.key_asterisk) #x3)
+    ((q+:qt.key_minus) #xC)
 
-    ((= code (q+:qt.key_7)) #x4)
-    ((= code (q+:qt.key_8)) #x5)
-    ((= code (q+:qt.key_9)) #x6)
-    ((= code (q+:qt.key_plus)) #xD)
+    ((q+:qt.key_7) #x4)
+    ((q+:qt.key_8) #x5)
+    ((q+:qt.key_9) #x6)
+    ((q+:qt.key_plus) #xD)
 
-    ((= code (q+:qt.key_4)) #x7)
-    ((= code (q+:qt.key_5)) #x8)
-    ((= code (q+:qt.key_6)) #x9)
-    ((= code (q+:qt.key_enter)) #xE)
+    ((q+:qt.key_4) #x7)
+    ((q+:qt.key_5) #x8)
+    ((q+:qt.key_6) #x9)
+    ((q+:qt.key_enter) #xE)
 
-    ((= code (q+:qt.key_1)) #xA)
-    ((= code (q+:qt.key_2)) #x0)
-    ((= code (q+:qt.key_3)) #xB)
-    ((= code (q+:qt.key_0)) #xF)))
+    ((q+:qt.key_1) #xA)
+    ((q+:qt.key_2) #x0)
+    ((q+:qt.key_3) #xB)
+    ((q+:qt.key_0) #xF)))
 
 (defun pad-key-for (code)
   ;; Original Chip-8 Pad → Laptop
@@ -176,26 +176,26 @@
   ;; │A│0│B│F│             │Z│X│C│V│
   ;; └─┴─┴─┴─┘             └─┴─┴─┴─┘
   ;;
-  (cond
-    ((= code (q+:qt.key_1)) #x1)
-    ((= code (q+:qt.key_2)) #x2)
-    ((= code (q+:qt.key_3)) #x3)
-    ((= code (q+:qt.key_4)) #xC)
+  (qtenumcase code
+    ((q+:qt.key_1) #x1)
+    ((q+:qt.key_2) #x2)
+    ((q+:qt.key_3) #x3)
+    ((q+:qt.key_4) #xC)
 
-    ((= code (q+:qt.key_q)) #x4)
-    ((= code (q+:qt.key_w)) #x5)
-    ((= code (q+:qt.key_e)) #x6)
-    ((= code (q+:qt.key_r)) #xD)
+    ((q+:qt.key_q) #x4)
+    ((q+:qt.key_w) #x5)
+    ((q+:qt.key_e) #x6)
+    ((q+:qt.key_r) #xD)
 
-    ((= code (q+:qt.key_a)) #x7)
-    ((= code (q+:qt.key_s)) #x8)
-    ((= code (q+:qt.key_d)) #x9)
-    ((= code (q+:qt.key_f)) #xE)
+    ((q+:qt.key_a) #x7)
+    ((q+:qt.key_s) #x8)
+    ((q+:qt.key_d) #x9)
+    ((q+:qt.key_f) #xE)
 
-    ((= code (q+:qt.key_z)) #xA)
-    ((= code (q+:qt.key_x)) #x0)
-    ((= code (q+:qt.key_c)) #xB)
-    ((= code (q+:qt.key_v)) #xF)))
+    ((q+:qt.key_z) #xA)
+    ((q+:qt.key_x) #x0)
+    ((q+:qt.key_c) #xB)
+    ((q+:qt.key_v) #xF)))
 
 
 (define-override (screen key-press-event) (ev)