#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)