about summary refs log tree commit diff
path: root/configs/shared/.emacs.d/wpc/playback.el
diff options
context:
space:
mode:
Diffstat (limited to 'configs/shared/.emacs.d/wpc/playback.el')
-rw-r--r--configs/shared/.emacs.d/wpc/playback.el25
1 files changed, 25 insertions, 0 deletions
diff --git a/configs/shared/.emacs.d/wpc/playback.el b/configs/shared/.emacs.d/wpc/playback.el
new file mode 100644
index 0000000000..9ab1e30ef0
--- /dev/null
+++ b/configs/shared/.emacs.d/wpc/playback.el
@@ -0,0 +1,25 @@
+;;; playback.el --- Control playback with Elisp -*- lexical-binding: t -*-
+;; Author: William Carroll <wpcarro@gmail.com>
+
+;;; Commentary:
+;; As you know, my whole universe is turning Elisp, so this should too!
+
+;;; Code:
+
+(defun playback/prev ()
+  "Move to the previous song."
+  (interactive)
+  (shell-command "playerctl previous"))
+
+(defun playback/next ()
+  "Move to the next song."
+  (interactive)
+  (shell-command "playerctl next"))
+
+(defun playback/play-pause ()
+  "Play or pause the current song."
+  (interactive)
+  (shell-command "playerctl play-pause"))
+
+(provide 'playback)
+;;; playback.el ends here