diff options
| -rw-r--r-- | 2d/input.scm | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/2d/input.scm b/2d/input.scm index f929347..b9679e3 100644 --- a/2d/input.scm +++ b/2d/input.scm @@ -22,12 +22,9 @@ ;;; Code: (define-module (2d input) - #:use-module (srfi srfi-1) #:use-module (figl runtime) ;; For the define-enumeration macro #:export (keycode - any-keycode? keymod - all-keymods? mouse-button)) ;;; @@ -269,11 +266,6 @@ (euro 321) (undo 322)) -(define (any-keycode? keycode . keycodes) - "Returns true if keycode equals any of the keycodes provided and -returns false otherwise." - (any (lambda (key) (= keycode key)) keycodes)) - ;; Modifier keys (define-enumeration keymod @@ -285,11 +277,6 @@ returns false otherwise." (num 4096 ) (caps 8192)) -(define (all-keymods? mod . expected) - "Returns true if all expected modifier bits are set and returns -false otherwise." - (not (zero? (apply logand mod expected)))) - ;;; ;;; Mouse ;;; |