[Fvwm-crystal-commits] SF.net SVN: fvwm-crystal:[592] fvwm/components/functions

[<dom...@us...>]

Revision: 592
          http://sourceforge.net/p/fvwm-crystal/code/592
Author:   dominique_libre
Date:     2014-02-04 12:40:21 +0000 (Tue, 04 Feb 2014)
Log Message:
-----------
functions/Music-mod: fix quoting and special characters in played file menu;
add seek relative by 7%. Thanks to lost+found for pointing that out.

Modified Paths:
--------------
    ChangeLog
    fvwm/components/functions/Music-mpd

Modified: ChangeLog
===================================================================
--- ChangeLog	2014-02-02 00:21:47 UTC (rev 591)
+++ ChangeLog	2014-02-04 12:40:21 UTC (rev 592)
@@ -1,5 +1,9 @@
 ChangeLog for FVWM-Crystal
 
+Mardi 4 Janvier 2014 Dominique Michel
+  functions/Music-mod: fix quoting and special characters in played file menu;
+  add seek relative by 5 and 10%. Thanks to lost+found for pointing that out.
+
 Dimanche 2 févier 2014 Dominique Michel
 + locale/nl*: New Dutch locale files from lost+found
 

Modified: fvwm/components/functions/Music-mpd
===================================================================
--- fvwm/components/functions/Music-mpd	2014-02-02 00:21:47 UTC (rev 591)
+++ fvwm/components/functions/Music-mpd	2014-02-04 12:40:21 UTC (rev 592)
@@ -85,6 +85,7 @@
 
 AddToFunc Playlist-generator-button
 + I DestroyMenu recreate /Playlist-button
++ I PipeRead 'mpc | head -n 1 | sed -e "s;volume:\d*.*;$[gt.Player is stopped];" -e "s:[&&*%@^]:&&:g" -e "s:\':\\\\\\\':g" -e "s:^.*$:AddToMenu /Playlist-button \'&\' :"'
 + I AddToMenu /Playlist-button '$[gt.Load playlist]' Popup /Music/LoadPlaylist
 + I AddToMenu /Playlist-button '$[gt.Save playlist]' Music-SavePlaylist
 + I AddToMenu /Playlist-button '$[gt.Load all]' Music-LoadAll
@@ -148,9 +149,9 @@
 + I AddToMenu /Playback '$[gt.Pause]' Music-Pause
 + I AddToMenu /Playback '$[gt.Play/Pause]' Music-PlayPause
 + I AddToMenu /Playback "" Nop
-+ I AddToMenu /Playback  $[gt.Forward]' Music-Forward
-+ I AddToMenu /Playback  $[gt.Backward]' Music-Backward
-+ I AddToMenu /Playback  $[gt.Toggle random]' Music-ToggleRandom
++ I AddToMenu /Playback '$[gt.Forward]' Music-Forward
++ I AddToMenu /Playback '$[gt.Backward]' Music-Backward
++ I AddToMenu /Playback '$[gt.Toggle random]' Music-ToggleRandom
 + I AddToMenu /Playback '$[gt.Shuffle playlist]' Music-Shuffle
 + I AddToMenu /Playback "" Nop
 + I PipeRead 'mpc crossfade | sed -e "s/crossfade:\ //" | sed -e "s:^.\\+$:AddToMenu\ /Playback \'$[gt.Crossfade] \(&\)\' Popup /Music/Crossfade:"'
@@ -158,7 +159,7 @@
 # Main menu {{{1
 AddToFunc Music-generator
 + I DestroyMenu recreate /Music
-+ I PipeRead 'mpc | head -n 1 | sed -e "s;volume:\d*.*;$[gt.Player is stopped];" | sed -e "s:^.*$:AddToMenu /Music \'&\' :"'
++ I PipeRead 'mpc | head -n 1 | sed -e "s;volume:\d*.*;$[gt.Player is stopped];" -e "s:[&&*%@^]:&&:g" -e "s:\':\\\\\\\':g" -e "s:^.*$:AddToMenu /Music \'&\' :"'
 + I AddToMenu /Music "" Nop
 + I AddToMenu /Music '$[gt.Load playlist]'		Popup /Music/LoadPlaylist
 + I AddToMenu /Music '$[gt.Save playlist...]'		Music-SavePlaylist
@@ -199,10 +200,12 @@
 + I Nop
 # Menu /Speed
 AddToMenu /Speed
-+ "" Nop
++ '$[gt.Seek forward]' Exec mpc seek +10% > /dev/null
++ '$[gt.Seek backward]' Exec mpc seek -10% > /dev/null
+
 # Music-Seek-+
 # Music-Seek--
 AddToFunc Music-Seek
-+ I Nop
++ I Exec mpc seek $[0]5% > /dev/null
 
 # vim:ft=fvwm

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.