Hello,
I have this code:
(in-package :stumpwm)
(add-hook *focus-group-hook* 'show-group-name)
(defun show-group-name (current-group last-group)
(let ((*message-window-gravity* :center)
(*timeout-wait* 2))
(message (group-name current-group))))
Which runs fine, except that the message stays on the display only
when I switch to an empty group. When the group I switch to contains
windows the message just flashes, i.e. it disappears almost
immediately. Maybe the window mapping stuff overwrites it(?)
Do you have any idea what's wrong?
Thanks in advance.
--
'(Yours parenthetically
"peter barabas")
_______________________________________________
Stumpwm-devel mailing list
Stumpwm-devel@nongnu.org
http://lists.nongnu.org/mailman/listinfo/stumpwm-devel
