7 lines
218 B
Common Lisp
7 lines
218 B
Common Lisp
|
(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*)
|