[clfswm-cvs] r253 - in clfswm: . contrib

[Philippe Brochard]

Author: pbrochard
Date: Sat Oct 10 15:27:15 2009
New Revision: 253

Log:
contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.

Modified:
   clfswm/ChangeLog
   clfswm/contrib/mpd.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Sat Oct 10 15:27:15 2009
@@ -1,3 +1,7 @@
+2009-10-10  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu.
+
 2009-07-29  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/clfswm-layout.lisp (tile-layout, tile-horizontal-layout):

Modified: clfswm/contrib/mpd.lisp
==============================================================================
--- clfswm/contrib/mpd.lisp	(original)
+++ clfswm/contrib/mpd.lisp	Sat Oct 10 15:27:15 2009
@@ -42,6 +42,10 @@
   "Start sonata"
   (do-shell "exec sonata"))
 
+(defun start-gmpc ()
+  "Start gmpc"
+  (do-shell "exec gmpc"))
+
 
 (defun show-mpd-info ()
   "Show MPD informations"
@@ -98,7 +102,8 @@
   (add-menu-key 'mpd-menu "x" 'mpd-seek-+5%)
   (add-menu-key 'mpd-menu "w" 'mpd-seek--5%)
   (add-menu-key 'mpd-menu "l" 'show-mpd-playlist)
-  (add-menu-key 'mpd-menu "s" 'start-sonata))
+  (add-menu-key 'mpd-menu "s" 'start-sonata)
+  (add-menu-key 'mpd-menu "g" 'start-gmpc))
 
 
 (defun mpd-binding ()