strigoform/event.scm


1
2
3
4
5
6
7
8
9
10
11
12

(library (strigoform event)
  (export prevent-default!
          keyboard-event-code)
  (import (scheme base)
          (hoot ffi))

  (define-foreign prevent-default!
    "event" "preventDefault"
    (ref null extern) -> none)
  (define-foreign keyboard-event-code
    "event" "keyboardCode"
    (ref null extern) -> (ref string)))