(module rotated-parens-keymap (lib "keybinding-lang.ss" "framework")
  ;; make-handler: string -> handler
  ;; makes a handler that inserts the string s
  (define (make-handler s)
    (lambda (editor event)
      (send editor insert (make-object string-snip% s))))

  ;; Some sample bindings:
  (keybinding "(" (make-handler "{"))
  (keybinding ")" (make-handler "}"))
  (keybinding "[" (make-handler "("))
  (keybinding "]" (make-handler ")"))
  (keybinding "{" (make-handler "["))
  (keybinding "}" (make-handler "]")))