[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [STUMP] Echo keystrokes?

From: Tassilo Horn
Subject: Re: [STUMP] Echo keystrokes?
Date: Sat, 01 Mar 2008 10:34:17 +0100
User-agent: Gnus/5.110007 (No Gnus v0.7) Emacs/23.0.60 (gnu/linux)

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.


reply via email to

[Prev in Thread] Current Thread [Next in Thread]