Re: Show modeline when super key is pressed

Lillia <[email protected]> Tue, 31 Dec 2024 19:17:33 +0000
Newsgroups gmane.comp.window-managers.stumpwm.devel
Message-ID <[email protected]>
> Interesting, I'll mess with it ASAP. Thanks!

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