#lang s-exp framework/keybinding-lang

(define (insert-opening-square-bracket x y) (send x insert #\[))
(define (insert-closing-square-bracket x y) (send x insert #\]))
(keybinding "m:[" insert-opening-square-bracket)
(keybinding "m:]" insert-closing-square-bracket)