oni/home/services/stumpwm/playerctl.lisp


1
2
3
4
5
6

(defvar *playerctl-bindings*
  (let ((m (make-sparse-keymap)))
    (define-key m (kbd "SPC") (format nil "exec ~a play-pause" *playerctl-program*))
    m))

(define-key *user-bindings* (kbd "p") '*playerctl-bindings*)