config.txt

;; Via
;; https://github.com/stumpwm/stumpwm/wiki/Tips-And-Tricks
(defun show-key-seq (key seq val)
  (message (print-key-seq (reverse seq))))
(add-hook *key-press-hook* 'show-key-seq)
;; Via Ticks and Tricks (above)
(stumpwm:add-hook stumpwm:*destroy-window-hook*
                  #'(lambda (win) (stumpwm:repack-window-numbers)))

(defcommand toggle-show-keys () ()
  "Toggle echoing back keys in the message area."
  (if (member 'show-key-seq *key-press-hook*)
    (progn
      (remove-hook *key-press-hook* 'show-key-seq)
      (message "Hiding keys…"))
    (progn
      (add-hook *key-press-hook* 'show-key-seq)
      (message "Showing keys…"))))