A quickscript to show the active keybindings

keybindings.rkt

#lang racket/gui

;;; License: MIT/Apache2

(require quickscript
         search-list-box)

(script-help-string "Show active keybindings")

(define-script keybindings
  #:label "keybindings"
  (λ (selection #:editor ed)
    (define kmap (send ed get-keymap))
    (define tb (sort (hash->list (send kmap get-map-function-table))
                     string<? #:key cdr))
    (define fr
      (new search-list-box-frame%
           [label "Show active keybindings"]
           [contents tb]
           [key (λ (cont) (format "~a (~a)" (cdr cont) (car cont)))]))
    #f))