(module jbc-keybindings framework/keybinding-lang
  
  (define (kb binder function)
    (keybinding
     binder
     (lambda (editor event)
       (send
        (send editor get-keymap)
        call-function
        function
        editor event #t))))
  
  (kb "~c:s:(" "insert-()-pair")
  (kb "~c:s:{" "insert-{}-pair")
  (kb "~c:s:\"" "insert-\"\"-pair"))