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
   5 (define (print-mapped-keys mapped-keys)
   6   (display (car mapped-keys))
   7   (display " = ")
   8   (for-each (lambda (key)
   9               (cond ((not (null? key))
  10                      (display key)
  11                      (display " "))))
  12             (cdr mapped-keys))
  13   (newline))
  14
  15 (define (mapping-keys keymap keys)
  16   (for-each (lambda (mapped-key) ; Receives a pair
  17               (let ((action (eval (cdr mapped-key))))
  18                 (cond ((list? action)
  19                        (mapping-keys action (append keys (car mapped-key))))
  20                       (else
  21                        (print-mapped-keys (list  ; was print
  22                                            (cdr mapped-key)
  23                                            keys
  24                                            (car mapped-key)))))))
  25             keymap))
  26
  27 (mapping-keys global-keymap '())