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

Reply via email to