(define (jump event)
  (if event
      'thing-when-button-down
    'thing-when-button-up))

(bind :defer "A" (jump))
(bind-invoke :press 97) ;; there's a separate key-map structure that maps "A" to 97