| Paste number 59519: | display group name on group change |
| Pasted by: | z0d |
| When: | 1 year, 2 months ago |
| Share: | Tweet this! | http://paste.lisp.org/+19XB |
| Channel: | #stumpwm |
| Paste contents: |
(defun echo-group-name (current last)
(declare (ignore last))
(let ((*timeout-wait* 1))
(echo (group-name current))))
(add-hook *focus-group-hook* 'echo-group-name)
This paste has no annotations.