[STUMP] Displaying the group name when switching groups

[Peter BARABAS]

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")