Re: Show modeline when super key is pressed

[szos]

>
> Some additional code to allow holding super to display the mode line:
>
> ``` lisp
> (defun custom-press-handler (code state)
>   (declare (ignore state))
>   (let ((super-keycodes (nth-value 6 (xlib:modifier-mapping *display*))))
>     (when (member code super-keycodes :test #'=)
>       (toggle-mode-line (current-screen) (current-head))
>       t)))
>
> (define-stump-event-handler :key-release (code state)
>   (declare (ignore state))
>   (let ((super-keycodes (nth-value 6 (xlib:modifier-mapping *display*))))
>     (when (member code super-keycodes :test #'=)
>       (toggle-mode-line (current-screen) (current-head))
>       t)))
>
> (setf *custom-key-event-handler* 'custom-press-handler)
> ```

NB: the above code requires you to grab the super keycode, which for me
is 133, though you can find it by calling xlib:modifier-mapping.

You can grab it like so in your init file:

``` lisp
(xlib:ungrab-key (screen-root (current-screen)) your-super-key-code)
```