From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 21 Jul 2017 14:18:44 +0000 (+0100)
Subject: dot/emacs, el/dot-emacs.el: Key bindings for MPC volume twiddling.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/5147578f0296360f237bd78adbb856f287037123?ds=inline

dot/emacs, el/dot-emacs.el: Key bindings for MPC volume twiddling.
---

diff --git a/dot/emacs b/dot/emacs
index 352eb8a..f98a566 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -619,6 +619,8 @@
   (global-set-key [?\C-c ?p ?s] 'mdw-mpc-stop)
   (global-set-key [?\C-c ?p ?<] 'mdw-mpc-prev)
   (global-set-key [?\C-c ?p ?>] 'mdw-mpc-next)
+  (global-set-key [?\C-c ?p ?+] 'mdw-mpc-louder)
+  (global-set-key [?\C-c ?p ?-] 'mdw-mpc-quieter)
   (global-set-key [?\C-c ?p ??] 'mdw-mpc-now-playing)
   (global-set-key [?\C-c ?k] 'mdw-compile)
   (global-set-key [?\C-x ?3] 'mdw-split-window-horizontally)
diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index efbc6ee..97c20ce 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -3879,6 +3879,18 @@ (mdw-define-mpc-wrapper mdw-mpc-next () nil (mpc-next))
 (mdw-define-mpc-wrapper mdw-mpc-prev () nil (mpc-prev))
 (mdw-define-mpc-wrapper mdw-mpc-stop () nil (mpc-stop))
 
+(defun mdw-mpc-louder (step)
+  (interactive (list (if current-prefix-arg
+			 (prefix-numeric-value current-prefix-arg)
+		       +10)))
+  (mpc-proc-cmd (format "volume %+d" step)))
+
+(defun mdw-mpc-quieter (step)
+  (interactive (list (if current-prefix-arg
+			 (prefix-numeric-value current-prefix-arg)
+		       +10)))
+  (mpc-proc-cmd (format "volume %+d" (- step))))
+
 (defun mdw-mpc-hack-lines (arg interactivep func)
   (if (and interactivep (use-region-p))
       (let ((from (region-beginning)) (to (region-end)))