578ed1ba98
Moving all of my Emacs-related files into their own directory at the root of this repository.
41 lines
1.1 KiB
EmacsLisp
41 lines
1.1 KiB
EmacsLisp
;;; 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:
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Dependencies
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(require 'prelude)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Library
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defun playback/prev ()
|
|
"Move to the previous song."
|
|
(interactive)
|
|
(prelude/start-process
|
|
:name "playback/prev"
|
|
:command "playerctl previous"))
|
|
|
|
(defun playback/next ()
|
|
"Move to the next song."
|
|
(interactive)
|
|
(prelude/start-process
|
|
:name "playback/next"
|
|
:command "playerctl next"))
|
|
|
|
(defun playback/play-pause ()
|
|
"Play or pause the current song."
|
|
(interactive)
|
|
(prelude/start-process
|
|
:name "playback/play-pause"
|
|
:command "playerctl play-pause"))
|
|
|
|
(provide 'playback)
|
|
;;; playback.el ends here
|