bongo-patches
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[bongo-patches] Add `S-<up>' and `S-<down>' bindings for changing the vo


From: Daniel Brockman
Subject: [bongo-patches] Add `S-<up>' and `S-<down>' bindings for changing the volume
Date: Thu, 24 May 2007 13:26:44 +0200
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.92 (gnu/linux)

Add `S-<up>' and `S-<down>' bindings for changing the volume.

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2007-05-24 13:26:25.000000000 +0200
+++ new-bongo/bongo.el  2007-05-24 13:26:25.000000000 +0200
@@ -9859,10 +9859,17 @@
     (define-key map "%T" 'bongo-unmark-by-track-title-regexp)
     (define-key map "r" 'bongo-rename-line)
     (define-key map "d" 'bongo-dired-line)
-    (when (require 'volume nil t)
-      (if bongo-xmms-refugee-mode
-          (define-key map "V" 'volume)
-        (define-key map "v" 'volume)))
+    (if bongo-xmms-refugee-mode
+        (define-key map "V" 'volume)
+      (define-key map "v" 'volume))
+    (define-key map [(shift up)] 'volume-raise)
+    (define-key map [(control shift up)] 'volume-raise-10)
+    (define-key map [(meta shift up)] 'volume-raise-10)
+    (define-key map [(control meta shift up)] 'volume-raise-50)
+    (define-key map [(shift down)] 'volume-lower)
+    (define-key map [(control shift down)] 'volume-lower-10)
+    (define-key map [(meta shift down)] 'volume-lower-10)
+    (define-key map [(control meta shift down)] 'volume-lower-50)
     (when bongo-xmms-refugee-mode
       (define-key map "z" 'bongo-previous)
       (define-key map "x" 'bongo-start)
-- 
Daniel Brockman <address@hidden>

reply via email to

[Prev in Thread] Current Thread [Next in Thread]