Re: [STUMP] Echo keystrokes?

[Tassilo Horn]

cothrige <address@hidden> writes:

Hi Patrick,

> How might one get StumpWM to echo any keystrokes for a command
> sequence, i.e.  C-t ..., in the echo area?

I use this:

--8<---------------cut here---------------start------------->8---
(defun key-press-hook (key key-seq cmd)
  (declare (ignore key))
  (unless (eq *top-map* *resize-map*)
    (let ((*message-window-gravity* :bottom-right))
      (message "Key sequence: ~A~%==> ~A"
               (print-key-seq (reverse key-seq)) cmd))))

(defmacro replace-hook (hook fn)
  `(remove-hook ,hook ,fn)
  `(add-hook ,hook ,fn))

(replace-hook *key-press-hook* 'key-press-hook)
--8<---------------cut here---------------end--------------->8---

I think the code is from Male, who used this in his screencast.

Bye,
Tassilo