(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)
(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)))