From a5eff7a9ccf2e4c8c2ee3effa9e419953ca56292 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Thu, 6 Feb 2025 14:40:17 -0800
Subject: pop-os: Add service for playerctl bindings in stumpwm

---
 oni/home/services/stumpwm/playerctl.lisp | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 oni/home/services/stumpwm/playerctl.lisp

(limited to 'oni/home/services/stumpwm')

diff --git a/oni/home/services/stumpwm/playerctl.lisp b/oni/home/services/stumpwm/playerctl.lisp
new file mode 100644
index 0000000..0e56454
--- /dev/null
+++ b/oni/home/services/stumpwm/playerctl.lisp
@@ -0,0 +1,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*)
-- 
cgit v1.3-2-g0d8e