gschem/scheme/list-keys.scm

   1 ;; Printing out current key bindings for gEDA (gschem)
   2 ; Stefan Petersen 1999-04-04 (spe@stacken.kth.se)
   3 ; Free for all use. Just don't blame me when your house burns up.
   4 ; Updated by Roland Lutz 2019-02-13
   5
   6 (define (print-mapped-keys binding mapped-keys)
   7   (display binding)
   8   (display " = ")
   9   (for-each (lambda (key)
  10               (display key)
  11               (display " "))
  12             mapped-keys)
  13   (newline))
  14
  15 (define (mapping-keys keymap keys)
  16   (keymap-for-each
  17    (lambda (key binding)
  18      (cond ((keymap? binding)
  19             (mapping-keys binding (append keys (list key))))
  20            (else
  21             (print-mapped-keys binding (append keys (list key))))))
  22    keymap))
  23
  24 (mapping-keys %global-keymap '())