(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*)