Re: Show modeline when super key is pressed

[szos]

I put together a small asdf system to implement the functionality of
running code on key press/release of a modifier key. Its attached to
this email as a tarball with a readme. Its cleaner and more extensible
than the solution I gave earlier, and allows for arbitrary actions
instead of only mode line toggling.

gmk.tar.gz
Description: tarball of grabbable modifier keys

<szos@posteo.net> writes:

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