From pbrochard at common-lisp.net Sat Oct 10 19:27:15 2009 From: pbrochard at common-lisp.net (Philippe Brochard) Date: Sat, 10 Oct 2009 15:27:15 -0400 Subject: [clfswm-cvs] r253 - in clfswm: . contrib Message-ID: 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 + + * contrib/mpd.lisp (start-gmpc): Add gmpc in the mpd menu. + 2009-07-29 Philippe Brochard * 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 ()