[STUMP] Show "Current frame indicator" when switching screens

[Niklas Johansson]

Hey,

First I just want to thank for making stumpwm - it is awesome!

Second, I have feature request. I am often a bit confused in which
screen I am working in (I am having two screens). I therefore made
this change to, to mimic the behavior when switching frames, when
switching the screens.

--- a/screen.lisp
+++ b/screen.lisp
@@ -480,12 +480,14 @@ FOCUS-WINDOW is an extra window used for
_NET_SUPPORTING_WM_CHECK."
 (defcommand snext () ()
 "Go to the next screen."
   (switch-to-screen (next-screen))
-  (group-wake-up (current-group)))
+  (group-wake-up (current-group))
+  (show-frame-indicator (current-group) t))

 (defcommand sprev () ()
 "Go to the previous screen."
   (switch-to-screen (next-screen (reverse (sort-screens))))
-  (group-wake-up (current-group)))
+  (group-wake-up (current-group))
+  (show-frame-indicator (current-group) t))

 (defcommand sother () ()
 "Go to the last screen."


I do not know if it is something that people want and/or if it is
correctly implemented.

Cheers,
Nik