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

diff --git a/dot/emacs b/dot/emacs
index 352eb8abe0fc2e48a3e7962f73d2fbcd688116bc..f98a566a0e6bdef5f862a05991b24756499fa30a 100644 (file)
--- 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 ?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)
   (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 efbc6ee10e1414f9aff693735e094944fdfe348b..97c20cea1304712fa261fc0d9928a2a25ba1d762 100644 (file)
--- 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))
 
 (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)))
 (defun mdw-mpc-hack-lines (arg interactivep func)
   (if (and interactivep (use-region-p))
       (let ((from (region-beginning)) (to (region-end)))