Menu
▾
▴
[Fvwm-crystal-commits] SF.net SVN: fvwm-crystal:[256] fvwm/components/functions
|
From: <dom...@us...> - 2013-04-18 20:30:02
|
Revision: 256
http://sourceforge.net/p/fvwm-crystal/code/256
Author: dominique_libre
Date: 2013-04-18 20:29:57 +0000 (Thu, 18 Apr 2013)
Log Message:
-----------
Moved all the shared functions from mplayer* to media; fix freeze when changing from one dvb adapter to another one; added channel netx-prev for dvb
Modified Paths:
--------------
ChangeLog
fvwm/components/functions/Media
fvwm/components/functions/Music
fvwm/components/functions/Music-mplayer
fvwm/components/functions/Music-mplayer2
Modified: ChangeLog
===================================================================
--- ChangeLog 2013-04-18 16:04:48 UTC (rev 255)
+++ ChangeLog 2013-04-18 20:29:57 UTC (rev 256)
@@ -6,7 +6,11 @@
Music-GUI now use Iconify toggle instead of Close (fix reset the volume
with the jack output)
- components/functions/xmms: removing of outdated player
-
+ functions/Music: added missing functions from mplayer control
+ functions/Media; functions/Music-mplayer; functions/Music-mplayer2: moved
+ all the shared functions and menus to Media; added channel next and
+ prev for DVB; fix freeze when changing from one DVB adapter to another one.
+
Mercredi 17 Avril Dominique Michel
scripts/FvwmMPD/*: make the windows and fonts bigger. Its better to big
than too small
Modified: fvwm/components/functions/Media
===================================================================
--- fvwm/components/functions/Media 2013-04-18 16:04:48 UTC (rev 255)
+++ fvwm/components/functions/Media 2013-04-18 20:29:57 UTC (rev 256)
@@ -64,12 +64,17 @@
InfoStoreAdd UserManagedVideoPlaylists "$[HOME]/Playlists/Video"
# speed control (alsaplayer, mplayer) {{{2
-# (TODO: 1 variable per player)
+# (TODO: 1 variable per player ?)
InfoStoreAdd speed 1
-# Decimal point in use {{{2
-PipeRead 'if [[ $[MusicPlayer] == alsaplayer ]]; then echo "InfoStoreAdd dec_point `locale decimal_point`"; fi'
+# Decimal point in use (alsaplayer) {{{2
+PipeRead 'if [[ $[MusicPlayer] == alsaplayer ]]; then echo "InfoStoreAdd dec_point `locale decimal_point`"; else echo "InfoStoreRemove dec_point"; fi'
+# We must start mplayer in slave mode and send the commands via a pipe
+# Create the pipe if it doesn't exist:
+Piperead 'echo InfoStoreAdd USERDIR `id -un`'
+Test (!F /home/$[infostore.USERDIR]/.mplayer/pipe) PipeRead 'mkfifo /home/$[infostore.USERDIR]/.mplayer/pipe'
+
# xmms2
InfoStoreRemove fvwm_audio_exec
@@ -121,18 +126,37 @@
# start the player(s) (alsaplayer, mplayer)
DestroyFunc Music-Start
+AddToFunc Music-Start
++ I Exec exec $0
+
+# in Music-mplayer*
DestroyMenu /Music/Start
# player quit (alsaplayer, mplayer)
DestroyFunc Music-Kill
+AddToFunc Music-Kill
++ I Exec exec echo "quit" > /home/$[infostore.USERDIR]/.mplayer/pipe
# show/hyde the player GUI/menu
# (alsaplayer, audacious, cdcd, cmus, mocp, mpd, mplayer, quodlibet)
DestroyFunc Music-GUI
+AddToFunc Music-GUI
++ I All (XDRadio) Iconify toggle
# Button menu
# (alsaplayer, audacious, cdcd, cmus, mocp, mpd, mplayer, quodlibet)
DestroyFunc Player-generator
+AddToFunc Player-generator
++ I DestroyMenu recreate /Player
++ I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Recreate the Playlists]' Music-RecreatePlaylist
++ I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Music player]' Popup /Preferences/MusicPlayer
++ I AddToMenu /Player "" Nop
++ I AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl
++ I AddToMenu /Player "" Nop
++ I AddToMenu /Player '$[gt.Start player]' Popup /Music/Start
++ I AddToMenu /Player '$[gt.Stop MPlayer]' Music-Kill
++ I AddToMenu /Player '$[gt.Show/Hide menu]' Music-GUI
+
# Button menu (all)
DestroyMenu /Player
AddToMenu /Player
@@ -157,7 +181,14 @@
# Play DVD (mplayer)
DestroyFunc Load-DVD
+AddToFunc Load-DVD
+#+ I Exec exec fvwm-crystal.mplayer-wrapper dvd $[infostore.USERDIR]
++ I Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvdnav://
+# Generate /Music/LoadMovie menu (mplayer)
+PipeRead '$[FVWM_SYSTEMDIR]/scripts/media_directories $[infostore.USERDIR]'
+Include tmp/MenuMovieDirectory
+
# Show current playlist (xmms2)
DestroyFunc Music-CurrentPlaylist-generator
DestroyMenu /Music/CurrentPlaylist
@@ -267,10 +298,10 @@
+ I DestroyMenu recreate /Playlist-button
+ I AddToMenu /Playlist-button '$[gt.Remove playlist]' Popup /Music/RemovePlaylist
+ I AddToMenu /Playlist-button '$[gt.Copy playlist]' Popup /Music/CopyPlaylist
-Test (F /dev/dvb/adapter0/frontend0) + I AddToMenu /Playlist-button '$[gt.Watch DVB] 1' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://1@
-Test (F /dev/dvb/adapter1/frontend0) + I AddToMenu /Playlist-button '$[gt.Watch DVB] 2' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://2@
-Test (F /dev/dvb/adapter2/frontend0) + I AddToMenu /Playlist-button '$[gt.Watch DVB] 3' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://3@
-Test (F /dev/dvb/adapter3/frontend0) + I AddToMenu /Playlist-button '$[gt.Watch DVB] 4' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://4@
+Test (F /dev/dvb/adapter0/frontend0) + I AddToMenu /Playlist-button '$[gt.Watch DVB] 1' Music-WatchDVB 1
+Test (F /dev/dvb/adapter1/frontend0) + I AddToMenu /Playlist-button '$[gt.Watch DVB] 2' Music-WatchDVB 2
+Test (F /dev/dvb/adapter2/frontend0) + I AddToMenu /Playlist-button '$[gt.Watch DVB] 3' Music-WatchDVB 3
+Test (F /dev/dvb/adapter3/frontend0) + I AddToMenu /Playlist-button '$[gt.Watch DVB] 4' Music-WatchDVB 4
+ I AddToMenu /Playlist-button '$[gt.Load media file]' Popup /Music/LoadMovie
+ I AddToMenu /Playlist-button '$[gt.Play DVD]' Load-DVD
+ I AddToMenu /Playlist-button '$[gt.Load playlist]' Popup /Music/LoadMediaPlaylist
@@ -281,16 +312,61 @@
# mplayer
DestroyMenu /Playlist
+AddToMenu /Playlist
++ DynamicPopupAction Function /Playlist-generator
+
DestroyMenu /Playlist-bot
+AddToMenu /Playlist-bot
++ DynamicPopupAction Function /Playlist-generator-bot
+
DestroyFunc /Playlist-generator
+AddToFunc /Playlist-generator
++ I DestroyMenu recreate /Playlist
+Test (F /dev/dvb/adapter0/frontend0) + I AddToMenu /Playlist '$[gt.Watch DVB] 1' Music-WatchDVB 1
+Test (F /dev/dvb/adapter1/frontend0) + I AddToMenu /Playlist '$[gt.Watch DVB] 2' Music-WatchDVB 2
+Test (F /dev/dvb/adapter2/frontend0) + I AddToMenu /Playlist '$[gt.Watch DVB] 3' Music-WatchDVB 3
+Test (F /dev/dvb/adapter3/frontend0) + I AddToMenu /Playlist '$[gt.Watch DVB] 4' Music-WatchDVB 4
++ I AddToMenu /Playlist '$[gt.Play DVD]' Load-DVD
++ I AddToMenu /Playlist '$[gt.Load media file]' Popup /Music/LoadMovie
++ I AddToMenu /Playlist '$[gt.Load playlist]' Popup /Music/LoadMediaPlaylist
+#+ I AddToMenu /Playlist '$[gt.Clear playlist]' Music-ClearPlaylist
++ I AddToMenu /Playlist '$[gt.Copy playlist]' Popup /Music/CopyPlaylist
++ I AddToMenu /Playlist '$[gt.Remove playlist]' Popup /Music/RemovePlaylist
+
DestroyFunc /Playlist-generator-bot
+AddToFunc /Playlist-generator-bot
++ I DestroyMenu recreate /Playlist-bot
++ I AddToMenu /Playlist-bot '$[gt.Load playlist]' Popup /Music/LoadMediaPlaylist
++ I AddToMenu /Playlist-bot '$[gt.Load media file]' Popup /Music/LoadMovie
++ I AddToMenu /Playlist-bot '$[gt.Play DVD]' Load-DVD
+Test (F /dev/dvb/adapter3/frontend0) + I AddToMenu /Playlist-bot '$[gt.Watch DVB] 1' Music-WatchDVB 1
+Test (F /dev/dvb/adapter2/frontend0) + I AddToMenu /Playlist-bot '$[gt.Watch DVB] 2' Music-WatchDVB 2
+Test (F /dev/dvb/adapter1/frontend0) + I AddToMenu /Playlist-bot '$[gt.Watch DVB] 3' Music-WatchDVB 3
+Test (F /dev/dvb/adapter0/frontend0) + I AddToMenu /Playlist-bot '$[gt.Watch DVB] 4' Music-WatchDVB 4
+#+ I AddToMenu /Playlist-bot '$[gt.Clear playlist]' Music-ClearPlaylist
++ I AddToMenu /Playlist-bot '$[gt.Copy playlist]' Popup /Music/CopyPlaylist
++ I AddToMenu /Playlist-bot '$[gt.Remove playlist]' Popup /Music/RemovePlaylist
+DestroyFunc Music-WatchDVB
+AddToFunc Music-WatchDVB
++ I Exec exec echo "stop" > /home/$[infostore.USERDIR]/.mplayer/pipe
++ I Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://$[0]@
++ I Exec exec echo "start" > /home/$[infostore.USERDIR]/.mplayer/pipe
+
# mouse 2 Menu /Playback {{{2
# alsaplayer, audacious, cdcd, cmus, mocp, mpd, mplayer, quodlibet, xmms2
DestroyFunc Music-Next
+AddToFunc Music-Next
++ I Exec exec echo "pt_step 1" > /home/$[infostore.USERDIR]/.mplayer/pipe
+# dvb:
++ I Exec exec echo "tv_step_channel +1" > /home/$[infostore.USERDIR]/.mplayer/pipe
# alsaplayer, audacious, cdcd, cmus, mocp, mpd, mplayer, quodlibet, xmms2
DestroyFunc Music-Prev
+AddToFunc Music-Prev
++ I Exec exec echo "pt_step -1" > /home/$[infostore.USERDIR]/.mplayer/pipe
+# dvb:
++ I Exec exec echo "tv_step_channel -1" > /home/$[infostore.USERDIR]/.mplayer/pipe
# alsaplayer
DestroyFunc Music-SongChange
@@ -301,12 +377,18 @@
# alsaplayer, audacious, cdcd, cmus, mocp, mpd, mplayer, quodlibet, xmms2
DestroyFunc Music-Play
+AddToFunc Music-Play
++ I Exec exec echo "frame_step" > /home/$[infostore.USERDIR]/.mplayer/pipe
# alsaplayer, audacious, cdcd, cmus, mocp, mpd, mplayer, quodlibet, xmms2
DestroyFunc Music-Pause
+AddToFunc Music-Pause
++ I Exec exec echo "pause" > /home/$[infostore.USERDIR]/.mplayer/pipe
# mplayer
DestroyFunc Music-FrameStep
+AddToFunc Music-FrameStep
++ I Exec exec echo "frame_step" > /home/$[infostore.USERDIR]/.mplayer/pipe
# alsaplayer, audacious, cdcd, cmus, mocp, mpd, quodlibet
DestroyFunc Music-PlayPause
@@ -322,11 +404,49 @@
# alsaplayer, mplayer
DestroyFunc Music-Jump
+AddToFunc Music-Jump
++ I Exec exec echo "seek $0 1" > /home/$[infostore.USERDIR]/.mplayer/pipe
+
DestroyMenu /Music/Jump
+AddToMenu /Music/Jump
++ " 96 %" Music-Jump '96'
++ " 80 %" Music-Jump '80'
++ " 60 %" Music-Jump '60'
++ " 40 %" Music-Jump '40'
++ " 20 %" Music-Jump '20'
++ " 10 %" Music-Jump '10'
++ " 5 %" Music-Jump '5'
++ " 2 %" Music-Jump '2'
++ " 1 %" Music-Jump '1'
++ '$[gt.Start]' Music-Jump '0'
# alsaplayer, mplayer
DestroyFunc Music-Seek
+AddToFunc Music-Seek
++ I Exec exec echo "seek $0 0" > /home/$[infostore.USERDIR]/.mplayer/pipe
+
DestroyMenu /Music/Seek
+AddToMenu /Music/Seek
++ '$[gt.+ 10 min]' Music-Seek '600'
++ '$[gt.+ 5 min]' Music-Seek '300'
++ '$[gt.+ 3 min]' Music-Seek '180'
++ '$[gt.+ 2 min]' Music-Seek '120'
++ '$[gt.+ 1 min 30]' Music-Seek '90'
++ '$[gt.+ 1 min]' Music-Seek '60'
++ '$[gt.+ 45 sec]' Music-Seek '45'
++ '$[gt.+ 30 sec]' Music-Seek '30'
++ '$[gt.+ 20 sec]' Music-Seek '20'
++ '$[gt.+ 10 sec]' Music-Seek '10'
++ '$[gt.- 10 sec]' Music-Seek '-10'
++ '$[gt.- 20 sec]' Music-Seek '-20'
++ '$[gt.- 30 sec]' Music-Seek '-30'
++ '$[gt.- 45 sec]' Music-Seek '-45'
++ '$[gt.- 1 min]' Music-Seek '-60'
++ '$[gt.- 1 min 30]' Music-Seek '-90'
++ '$[gt.- 2 min]' Music-Seek '-120'
++ '$[gt.- 3 min]' Music-Seek '-180'
++ '$[gt.- 5 min]' Music-Seek '-300'
++ '$[gt.- 10 min]' Music-Seek '-600'
# mpd
DestroyMenu /Music/Crossfade
@@ -337,6 +457,16 @@
# button menu
# (alsaplayer, audacious, cdcd, cmus, mocp, mpd, mplayer, mocp, mpd, mplayer, quodlibet, xmms2)
DestroyFunc Playback-generator
+AddToFunc Playback-generator
++ I DestroyMenu recreate /Playback
++ I AddToMenu /Playback '$[gt.Pause]' Music-Pause
++ I AddToMenu /Playback '$[gt.Frame step]' Music-FrameStep
++ I AddToMenu /Playback "" Nop
++ I AddToMenu /Playback '$[gt.Next]' Music-Next
++ I AddToMenu /Playback '$[gt.Prev]' Music-Prev
++ I AddToMenu /Playback '$[gt.Jump]' Popup /Music/Jump
++ I AddToMenu /Playback '$[gt.Seek]' Popup /Music/Seek
+
# button menu (all)
DestroyMenu /Playback
AddToMenu /Playback
@@ -356,26 +486,83 @@
DestroyFunc Music-VolumeEn
# audacious, mplayer
DestroyFunc Music-Volume
+AddToFunc Music-Volume
++ I Exec exec echo "volume $0 1" > /home/$[infostore.USERDIR]/.mplayer/pipe
+
# mplayer
DestroyFunc Music-VolumeUp
+AddToFunc Music-VolumeUp
++ I Exec exec echo "volume 10 0" > /home/$[infostore.USERDIR]/.mplayer/pipe
+
DestroyFunc Music-VolumeDown
+AddToFunc Music-VolumeDown
++ I Exec exec echo "volume -10 0" > /home/$[infostore.USERDIR]/.mplayer/pipe
# button menu (alsaplayer, audacious, mplayer)
DestroyMenu /Music/Volume
+AddToMenu /Music/Volume
++ '$[gt.MPlayer volume]' Nop
++ " 0 db" Music-Volume "100"
++ "- 3 db" Music-Volume "70.7"
++ "- 6 db" Music-Volume "50"
++ "- 12 dB" Music-Volume "25"
++ "- 18 db" Music-Volume "12.5"
++ "- 24 db" Music-Volume "6.25"
++ "- 30 db" Music-Volume "3.125"
++ "- 36 db" Music-Volume "1.5625"
++ " 0" Music-Volume "0"
# mouse 4 Music-Speed-Up {{{2
# mouse 5 Music-Speed-Down
# alsaplayer, mplayer
DestroyFunc Music-Speed-Up
+AddToFunc Music-Speed-Up
++ I PipeRead 'echo "speed_set $($[FVWM_SYSTEMDIR]/scripts/speed_value +1comma mplayer $[infostore.speed])" > /home/$[infostore.USERDIR]/.mplayer/pipe ; echo InfoStoreAdd speed $($[FVWM_SYSTEMDIR]/scripts/speed_value +1comma mplayer $[infostore.speed])'
+
DestroyFunc Music-Speed-Down
+AddToFunc Music-Speed-Down
++ I PipeRead 'echo "speed_set $($[FVWM_SYSTEMDIR]/scripts/speed_value -1comma mplayer $[infostore.speed])" > /home/$[infostore.USERDIR]/.mplayer/pipe ; echo InfoStoreAdd speed $($[FVWM_SYSTEMDIR]/scripts/speed_value -1comma mplayer $[infostore.speed])'
# Last button {{{1
# speed controls
# mouse 1 Menu /Speed {{{2
# alsaplayer, mplayer
DestroyFunc Music-Speed
+AddToFunc Music-Speed
++ I PipeRead 'echo "speed_set $($[FVWM_SYSTEMDIR]/scripts/speed_value "$0" mplayer $[infostore.speed])" > /home/$[infostore.USERDIR]/.mplayer/pipe ; echo "InfoStoreAdd speed $($[FVWM_SYSTEMDIR]/scripts/speed_value "$[0]" mplayer $[infostore.speed])"'
+
# button menu (alsaplayer, mplayer)
+# speed_set <0.01 to 100>
DestroyMenu /Speed
+AddToMenu /Speed
++ '$[gt.Speed control]' Nop
++ "" Nop
++ '$[gt.Max]' Music-Speed 'maxmplayer mplayer'
++ '$[gt.+ 2 octaves]' Music-Speed '+2octave mplayer'
++ '$[gt.+ 1 octave]' Music-Speed '+1octave mplayer'
++ '$[gt.+ 1 seventh]' Music-Speed '+1septieme mplayer'
++ '$[gt.+ 1 sixth]' Music-Speed '+1sixte mplayer'
++ '$[gt.+ 1 fifth]' Music-Speed '+1quinte mplayer'
++ '$[gt.+ 1 fourth]' Music-Speed '+1quarte mplayer'
++ '$[gt.+ 1 third]' Music-Speed '+1tierce mplayer'
++ '$[gt.+ 1 tone]' Music-Speed '+1ton mplayer'
++ '$[gt.+ 1/2 tone]' Music-Speed '+1/2ton mplayer'
++ "" Nop
++ '$[gt.- 1/2 tone]' Music-Speed '-1/2ton mplayer'
++ '$[gt.- 1 tone]' Music-Speed '-1ton mplayer'
++ '$[gt.- 1 third]' Music-Speed '-1tierce mplayer'
++ '$[gt.- 1 fourth]' Music-Speed '-1quarte mplayer'
++ '$[gt.- 1 fifth]' Music-Speed '-1quinte mplayer'
++ '$[gt.- 1 sixth]' Music-Speed '-1sixte mplayer'
++ '$[gt.- 1 seventh]' Music-Speed '-1septieme mplayer'
++ '$[gt.- 1 octave]' Music-Speed '-1octave mplayer'
++ '$[gt.- 2 octaves]' Music-Speed '-2octave mplayer'
++ '$[gt.Min]' Music-Speed 'minmplayer mplayer'
++ "" Nop
++ '$[gt.Normal]' Music-Speed 'normal mplayer'
++ '$[gt.+ 1 comma]' Music-Speed '+1comma mplayer'
++ '$[gt.Pause]' Music-Pause
++ '$[gt.- 1 comma]' Music-Speed '-1comma mplayer'
# mouse 4 Button-Seek-+ {{{2
# mouse 5 Button-Seek--
@@ -386,6 +573,15 @@
# Music menus {{{1
# main music menu (alsaplayer, audacious, mocp) {{{2
DestroyFunc Music-generator
+AddToFunc Music-generator
++ I DestroyMenu recreate /Music
++ I AddToMenu /Music '$[gt.Player]' Popup /Player
++ I AddToMenu /Music '$[gt.Show/Hide GUI]' Music-GUI
++ I AddToMenu /Music '$[gt.Playback]' Popup /Playback
++ I AddToMenu /Music '$[gt.Playlist]' Popup /Playlist
++ I AddToMenu /Music '$[gt.Mixer]' Popup /Mixer
++ I AddToMenu /Music '$[gt.Speed]' Popup /Speed
++ I AddToMenu /Music '$[gt.Show/Hide QJackCtl]' Music-QJackGUI
DestroyMenu /Music
AddToMenu /Music
Modified: fvwm/components/functions/Music
===================================================================
--- fvwm/components/functions/Music 2013-04-18 16:04:48 UTC (rev 255)
+++ fvwm/components/functions/Music 2013-04-18 20:29:57 UTC (rev 256)
@@ -295,6 +295,7 @@
DestroyMenu /Playlist-bot
DestroyFunc /Playlist-generator
DestroyFunc /Playlist-generator-bot
+DestroyFunc Music-WatchDVB
# Button 2 mouse 2 (alsaplayer, audacious, mplayer) {{{2
DestroyMenu /Music/Volume
Modified: fvwm/components/functions/Music-mplayer
===================================================================
--- fvwm/components/functions/Music-mplayer 2013-04-18 16:04:48 UTC (rev 255)
+++ fvwm/components/functions/Music-mplayer 2013-04-18 20:29:57 UTC (rev 256)
@@ -1,250 +1,12 @@
# Support for MPlayer media player into Fvwm-Crystal
# Written by: Dominique Michel <dom...@us...> 2008-2013
-# Specific variables {{{1
-# We must start mplayer in slave mode and send the commands via a pipe
-# Create the pipe if it doesn't exist:
-Piperead 'echo InfoStoreAdd USERDIR `id -un`'
-Test (!F /home/$[infostore.USERDIR]/.mplayer/pipe) PipeRead 'mkfifo /home/$[infostore.USERDIR]/.mplayer/pipe'
-
-# Load shared functions and initialisations {{{1
+# Load shared functions and initialisations
Include components/functions/Media
-# First button {{{1
-# Player controls and prefs
-# mouse 1 Menu /Player {{{2
-AddToFunc Music-Start
-+ I Exec exec $0
-
+# specific function
AddToMenu /Music/Start
+ '$[gt.Start MPlayer]' Music-Start "mplayer -ao jack, -fs -fixed-vo -slave -idle -capture -input file=/home/$[infostore.USERDIR]/.mplayer/pipe"
Test (x xdradio) + '$[gt.Start XDRadio]' Music-Start "xdradio"
-AddToFunc Music-Kill
-+ I Exec exec echo "quit" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-AddToFunc Music-GUI
-+ I All (XDRadio) Iconify toggle
-
-AddToFunc Player-generator
-+ I DestroyMenu recreate /Player
-+ I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Recreate the Playlists]' Music-RecreatePlaylist
-+ I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Music player]' Popup /Preferences/MusicPlayer
-+ I AddToMenu /Player "" Nop
-+ I AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl
-+ I AddToMenu /Player "" Nop
-+ I AddToMenu /Player '$[gt.Start player]' Popup /Music/Start
-+ I AddToMenu /Player '$[gt.Stop MPlayer]' Music-Kill
-+ I AddToMenu /Player '$[gt.Show/Hide menu]' Music-GUI
-
-# mouse 2 Music-GUI : allready here {{{2
-# mouse 3 Music-QJackGUI : in Music
-# mouse 4 Mixer-Volume-Up
-# mouse 5 Mixer-Volume-Down
-# are in components/Mixer
-
-# Second button {{{1
-# Player controls and main vol
-# mouse 1 Menu /Playlist-button {{{2
-AddToFunc Load-DVD
-#+ I Exec exec fvwm-crystal.mplayer-wrapper dvd $[infostore.USERDIR]
-+ I Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvdnav://
-
-# Generate /Music/LoadMovie menu (mplayer)
-PipeRead '$[FVWM_SYSTEMDIR]/scripts/media_directories $[infostore.USERDIR]'
-Include tmp/MenuMovieDirectory
-
-# mouse 2 Menu /Playback {{{2
-AddToFunc Music-Pause
-+ I Exec exec echo "pause" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-AddToFunc Music-FrameStep
-+ I Exec exec echo "frame_step" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-AddToFunc Music-Next
-+ I Exec exec echo "pt_step 1" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-AddToFunc Music-Prev
-+ I Exec exec echo "pt_step -1" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-AddToFunc Music-Jump
-+ I Exec exec echo "seek $0 1" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-AddToMenu /Music/Jump
-+ " 96 %" Music-Jump '96'
-+ " 80 %" Music-Jump '80'
-+ " 60 %" Music-Jump '60'
-+ " 40 %" Music-Jump '40'
-+ " 20 %" Music-Jump '20'
-+ " 10 %" Music-Jump '10'
-+ " 5 %" Music-Jump '5'
-+ " 2 %" Music-Jump '2'
-+ " 1 %" Music-Jump '1'
-+ '$[gt.Start]' Music-Jump '0'
-
-AddToFunc Music-Seek
-+ I Exec exec echo "seek $0 0" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-AddToMenu /Music/Seek
-+ '$[gt.+ 10 min]' Music-Seek '600'
-+ '$[gt.+ 5 min]' Music-Seek '300'
-+ '$[gt.+ 3 min]' Music-Seek '180'
-+ '$[gt.+ 2 min]' Music-Seek '120'
-+ '$[gt.+ 1 min 30]' Music-Seek '90'
-+ '$[gt.+ 1 min]' Music-Seek '60'
-+ '$[gt.+ 45 sec]' Music-Seek '45'
-+ '$[gt.+ 30 sec]' Music-Seek '30'
-+ '$[gt.+ 20 sec]' Music-Seek '20'
-+ '$[gt.+ 10 sec]' Music-Seek '10'
-+ '$[gt.- 10 sec]' Music-Seek '-10'
-+ '$[gt.- 20 sec]' Music-Seek '-20'
-+ '$[gt.- 30 sec]' Music-Seek '-30'
-+ '$[gt.- 45 sec]' Music-Seek '-45'
-+ '$[gt.- 1 min]' Music-Seek '-60'
-+ '$[gt.- 1 min 30]' Music-Seek '-90'
-+ '$[gt.- 2 min]' Music-Seek '-120'
-+ '$[gt.- 3 min]' Music-Seek '-180'
-+ '$[gt.- 5 min]' Music-Seek '-300'
-+ '$[gt.- 10 min]' Music-Seek '-600'
-
-AddToFunc Playback-generator
-+ I DestroyMenu recreate /Playback
-+ I AddToMenu /Playback '$[gt.Pause]' Music-Pause
-+ I AddToMenu /Playback '$[gt.Frame step]' Music-FrameStep
-+ I AddToMenu /Playback "" Nop
-+ I AddToMenu /Playback '$[gt.Next]' Music-Next
-+ I AddToMenu /Playback '$[gt.Prev]' Music-Prev
-+ I AddToMenu /Playback '$[gt.Jump]' Popup /Music/Jump
-+ I AddToMenu /Playback '$[gt.Seek]' Popup /Music/Seek
-
-# mouse 3 Menu /Mixer : in components/Mixer {{{2
-# mouse 4 Music-Next : allready here
-# mouse 4 Music-Prev : allready here
-
-# Third button {{{1
-# Player controls and vol
-# mouse 1 Music-Play {{{2
-AddToFunc Music-Play
-+ I Exec exec echo "frame_step" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-# mouse 2 Music-PlayPause : allready here {{{2
-# mouse 3 Menu /Music/Volume {{{2
-AddToFunc Music-Volume
-+ I Exec exec echo "volume $0 1" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-AddToMenu /Music/Volume
-+ '$[gt.MPlayer volume]' Nop
-+ " 0 db" Music-Volume "100"
-+ "- 3 db" Music-Volume "70.7"
-+ "- 6 db" Music-Volume "50"
-+ "- 12 dB" Music-Volume "25"
-+ "- 18 db" Music-Volume "12.5"
-+ "- 24 db" Music-Volume "6.25"
-+ "- 30 db" Music-Volume "3.125"
-+ "- 36 db" Music-Volume "1.5625"
-+ " 0" Music-Volume "0"
-
-# mouse 4 Music-Speed-Up {{{2
-AddToFunc Music-Speed-Up
-+ I PipeRead 'echo "speed_set $($[FVWM_SYSTEMDIR]/scripts/speed_value +1comma mplayer $[infostore.speed])" > /home/$[infostore.USERDIR]/.mplayer/pipe ; echo InfoStoreAdd speed $($[FVWM_SYSTEMDIR]/scripts/speed_value +1comma mplayer $[infostore.speed])'
-
-# mouse 5 Music-Speed-Down {{{2
-AddToFunc Music-Speed-Down
-+ I PipeRead 'echo "speed_set $($[FVWM_SYSTEMDIR]/scripts/speed_value -1comma mplayer $[infostore.speed])" > /home/$[infostore.USERDIR]/.mplayer/pipe ; echo InfoStoreAdd speed $($[FVWM_SYSTEMDIR]/scripts/speed_value -1comma mplayer $[infostore.speed])'
-
-# Last button {{{1
-# speed controls
-# mouse 1 Menu /Speed {{{2
-AddToFunc Music-Speed
-+ I PipeRead 'echo "speed_set $($[FVWM_SYSTEMDIR]/scripts/speed_value "$0" mplayer $[infostore.speed])" > /home/$[infostore.USERDIR]/.mplayer/pipe ; echo "InfoStoreAdd speed $($[FVWM_SYSTEMDIR]/scripts/speed_value "$[0]" mplayer $[infostore.speed])"'
-
-# speed_set <0.01 to 100>
-AddToMenu /Speed
-+ '$[gt.Speed control]' Nop
-+ "" Nop
-+ '$[gt.Max]' Music-Speed 'maxmplayer mplayer'
-+ '$[gt.+ 2 octaves]' Music-Speed '+2octave mplayer'
-+ '$[gt.+ 1 octave]' Music-Speed '+1octave mplayer'
-+ '$[gt.+ 1 seventh]' Music-Speed '+1septieme mplayer'
-+ '$[gt.+ 1 sixth]' Music-Speed '+1sixte mplayer'
-+ '$[gt.+ 1 fifth]' Music-Speed '+1quinte mplayer'
-+ '$[gt.+ 1 fourth]' Music-Speed '+1quarte mplayer'
-+ '$[gt.+ 1 third]' Music-Speed '+1tierce mplayer'
-+ '$[gt.+ 1 tone]' Music-Speed '+1ton mplayer'
-+ '$[gt.+ 1/2 tone]' Music-Speed '+1/2ton mplayer'
-+ "" Nop
-+ '$[gt.- 1/2 tone]' Music-Speed '-1/2ton mplayer'
-+ '$[gt.- 1 tone]' Music-Speed '-1ton mplayer'
-+ '$[gt.- 1 third]' Music-Speed '-1tierce mplayer'
-+ '$[gt.- 1 fourth]' Music-Speed '-1quarte mplayer'
-+ '$[gt.- 1 fifth]' Music-Speed '-1quinte mplayer'
-+ '$[gt.- 1 sixth]' Music-Speed '-1sixte mplayer'
-+ '$[gt.- 1 seventh]' Music-Speed '-1septieme mplayer'
-+ '$[gt.- 1 octave]' Music-Speed '-1octave mplayer'
-+ '$[gt.- 2 octaves]' Music-Speed '-2octave mplayer'
-+ '$[gt.Min]' Music-Speed 'minmplayer mplayer'
-+ "" Nop
-+ '$[gt.Normal]' Music-Speed 'normal mplayer'
-+ '$[gt.+ 1 comma]' Music-Speed '+1comma mplayer'
-+ '$[gt.Pause]' Music-Pause
-+ '$[gt.- 1 comma]' Music-Speed '-1comma mplayer'
-
-# mouse 4 Button-Seek-+ {{{2
-# mouse 5 Button-Seek--
-
-# Basic control functions {{{1
-
-AddToFunc Music-VolumeUp
-+ I Exec exec echo "volume 10 0" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-AddToFunc Music-VolumeDown
-+ I Exec exec echo "volume -10 0" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-# Playlist functions and menus {{{1
-
-AddToMenu /Playlist
-+ DynamicPopupAction Function /Playlist-generator
-
-AddToMenu /Playlist-bot
-+ DynamicPopupAction Function /Playlist-generator-bot
-
-# Main functions and menus {{{1
-
-AddToFunc /Playlist-generator
-+ I DestroyMenu recreate /Playlist
-Test (F /dev/dvb/adapter0/frontend0) + I AddToMenu /Playlist '$[gt.Watch DVB] 1' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://1@
-Test (F /dev/dvb/adapter1/frontend0) + I AddToMenu /Playlist '$[gt.Watch DVB] 2' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://2@
-Test (F /dev/dvb/adapter2/frontend0) + I AddToMenu /Playlist '$[gt.Watch DVB] 3' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://3@
-Test (F /dev/dvb/adapter3/frontend0) + I AddToMenu /Playlist '$[gt.Watch DVB] 4' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://4@
-+ I AddToMenu /Playlist '$[gt.Play DVD]' Load-DVD
-+ I AddToMenu /Playlist '$[gt.Load media file]' Popup /Music/LoadMovie
-+ I AddToMenu /Playlist '$[gt.Load playlist]' Popup /Music/LoadMediaPlaylist
-#+ I AddToMenu /Playlist '$[gt.Clear playlist]' Music-ClearPlaylist
-+ I AddToMenu /Playlist '$[gt.Copy playlist]' Popup /Music/CopyPlaylist
-+ I AddToMenu /Playlist '$[gt.Remove playlist]' Popup /Music/RemovePlaylist
-
-AddToFunc /Playlist-generator-bot
-+ I DestroyMenu recreate /Playlist-bot
-+ I AddToMenu /Playlist-bot '$[gt.Load playlist]' Popup /Music/LoadMediaPlaylist
-+ I AddToMenu /Playlist-bot '$[gt.Load media file]' Popup /Music/LoadMovie
-+ I AddToMenu /Playlist-bot '$[gt.Play DVD]' Load-DVD
-Test (F /dev/dvb/adapter3/frontend0) + I AddToMenu /Playlist-bot '$[gt.Watch DVB] 1' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://4@
-Test (F /dev/dvb/adapter2/frontend0) + I AddToMenu /Playlist-bot '$[gt.Watch DVB] 2' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://3@
-Test (F /dev/dvb/adapter1/frontend0) + I AddToMenu /Playlist-bot '$[gt.Watch DVB] 3' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://2@
-Test (F /dev/dvb/adapter0/frontend0) + I AddToMenu /Playlist-bot '$[gt.Watch DVB] 4' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://1@
-#+ I AddToMenu /Playlist-bot '$[gt.Clear playlist]' Music-ClearPlaylist
-+ I AddToMenu /Playlist-bot '$[gt.Copy playlist]' Popup /Music/CopyPlaylist
-+ I AddToMenu /Playlist-bot '$[gt.Remove playlist]' Popup /Music/RemovePlaylist
-
-# Recipe without audio buttons use the following:
-AddToFunc Music-generator
-+ I DestroyMenu recreate /Music
-+ I AddToMenu /Music '$[gt.Player]' Popup /Player
-+ I AddToMenu /Music '$[gt.Show/Hide GUI]' Music-GUI
-+ I AddToMenu /Music '$[gt.Playback]' Popup /Playback
-+ I AddToMenu /Music '$[gt.Playlist]' Popup /Playlist
-+ I AddToMenu /Music '$[gt.Mixer]' Popup /Mixer
-+ I AddToMenu /Music '$[gt.Speed]' Popup /Speed
-+ I AddToMenu /Music '$[gt.Show/Hide QJackCtl]' Music-QJackGUI
-
# vim:ft=fvwm
Modified: fvwm/components/functions/Music-mplayer2
===================================================================
--- fvwm/components/functions/Music-mplayer2 2013-04-18 16:04:48 UTC (rev 255)
+++ fvwm/components/functions/Music-mplayer2 2013-04-18 20:29:57 UTC (rev 256)
@@ -1,250 +1,12 @@
# Support for MPlayer2 media player into Fvwm-Crystal
# Written by: Dominique Michel <dom...@us...> 2009-2013
-# Variables {{{1
-# We must start mplayer2 in slave mode and send the commands via a pipe
-# Create the pipe if it doesn't exist:
-Piperead 'echo InfoStoreAdd USERDIR `id -un`'
-Test (!F /home/$[infostore.USERDIR]/.mplayer/pipe) PipeRead 'mkfifo /home/$[infostore.USERDIR]/.mplayer/pipe'
-
-# Initialisations, shared functions {{{1
+# Initialisations, shared functions
Include components/functions/Media
-# First button [[[1
-# Player controls and prefs
-# mouse 1 Menu /Player {{{2
-AddToFunc Music-Start
-+ I Exec exec $0
-
+# specific function
AddToMenu /Music/Start
+ '$[gt.Start MPlayer2]' Music-Start "mplayer2 -ao jack, -fs -fixed-vo -slave -idle -capture -input file=/home/$[infostore.USERDIR]/.mplayer/pipe"
Test (x xdradio) + '$[gt.Start XDRadio]' Music-Start "xdradio"
-AddToFunc Music-Kill
-+ I Exec exec echo "quit" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-AddToFunc Music-GUI
-+ I All (XDRadio) Iconify toggle
-
-AddToFunc Player-generator
-+ I DestroyMenu recreate /Player
-+ I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Recreate the Playlists]' Music-RecreatePlaylist
-+ I AddToMenu /Player '%22x22/fvwm-crystal/audio-x-generic.png%$[gt.Music player]' Popup /Preferences/MusicPlayer
-+ I AddToMenu /Player "" Nop
-+ I AddToMenu /Player '$[gt.Start QJackCtl]' Exec exec qjackctl
-+ I AddToMenu /Player "" Nop
-+ I AddToMenu /Player '$[gt.Start player]' Popup /Music/Start
-+ I AddToMenu /Player '$[gt.Stop MPlayer2]' Music-Kill
-+ I AddToMenu /Player '$[gt.Show/Hide menu]' Music-GUI
-
-# mouse 2 Music-GUI : allready here {{{2
-# mouse 3 Music-QJackGUI : in Music
-# mouse 4 Mixer-Volume-Up
-# mouse 5 Mixer-Volume-Down
-# are in components/Mixer
-
-# Second button {{{1
-# Player controls and main vol
-# mouse 1 Menu /Playlist-button {{{2
-AddToFunc Load-DVD
-#+ I Exec exec fvwm-crystal.mplayer-wrapper dvd $[infostore.USERDIR]
-+ I Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvdnav://
-
-# Generate /Music/LoadMovie menu (mplayer)
-PipeRead '$[FVWM_SYSTEMDIR]/scripts/media_directories $[infostore.USERDIR]'
-Include tmp/MenuMovieDirectory
-
-# mouse 2 Menu /Playback {{{1
-AddToFunc Music-Pause
-+ I Exec exec echo "pause" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-AddToFunc Music-FrameStep
-+ I Exec exec echo "frame_step" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-AddToFunc Music-Next
-+ I Exec exec echo "pt_step 1" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-AddToFunc Music-Prev
-+ I Exec exec echo "pt_step -1" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-AddToFunc Music-Jump
-+ I Exec exec echo "seek $0 1" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-AddToMenu /Music/Jump
-+ " 96 %" Music-Jump '96'
-+ " 80 %" Music-Jump '80'
-+ " 60 %" Music-Jump '60'
-+ " 40 %" Music-Jump '40'
-+ " 20 %" Music-Jump '20'
-+ " 10 %" Music-Jump '10'
-+ " 5 %" Music-Jump '5'
-+ " 2 %" Music-Jump '2'
-+ " 1 %" Music-Jump '1'
-+ '$[gt.Start]' Music-Jump '0'
-
-AddToFunc Music-Seek
-+ I Exec exec echo "seek $0 0" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-AddToMenu /Music/Seek
-+ '$[gt.+ 10 min]' Music-Seek '600'
-+ '$[gt.+ 5 min]' Music-Seek '300'
-+ '$[gt.+ 3 min]' Music-Seek '180'
-+ '$[gt.+ 2 min]' Music-Seek '120'
-+ '$[gt.+ 1 min 30]' Music-Seek '90'
-+ '$[gt.+ 1 min]' Music-Seek '60'
-+ '$[gt.+ 45 sec]' Music-Seek '45'
-+ '$[gt.+ 30 sec]' Music-Seek '30'
-+ '$[gt.+ 20 sec]' Music-Seek '20'
-+ '$[gt.+ 10 sec]' Music-Seek '10'
-+ '$[gt.- 10 sec]' Music-Seek '-10'
-+ '$[gt.- 20 sec]' Music-Seek '-20'
-+ '$[gt.- 30 sec]' Music-Seek '-30'
-+ '$[gt.- 45 sec]' Music-Seek '-45'
-+ '$[gt.- 1 min]' Music-Seek '-60'
-+ '$[gt.- 1 min 30]' Music-Seek '-90'
-+ '$[gt.- 2 min]' Music-Seek '-120'
-+ '$[gt.- 3 min]' Music-Seek '-180'
-+ '$[gt.- 5 min]' Music-Seek '-300'
-+ '$[gt.- 10 min]' Music-Seek '-600'
-
-AddToFunc Playback-generator
-+ I DestroyMenu recreate /Playback
-+ I AddToMenu /Playback '$[gt.Pause]' Music-Pause
-+ I AddToMenu /Playback '$[gt.Frame step]' Music-FrameStep
-+ I AddToMenu /Playback "" Nop
-+ I AddToMenu /Playback '$[gt.Next]' Music-Next
-+ I AddToMenu /Playback '$[gt.Prev]' Music-Prev
-+ I AddToMenu /Playback '$[gt.Jump]' Popup /Music/Jump
-+ I AddToMenu /Playback '$[gt.Seek]' Popup /Music/Seek
-
-# mouse 3 Menu /Mixer : in components/Mixer {{{2
-# mouse 4 Music-Next : allready here
-# mouse 4 Music-Prev : allready here
-
-# Third button {{{1
-# Player controls and vol
-# mouse 1 Music-Play {{{2
-AddToFunc Music-Play
-+ I Exec exec echo "frame_step" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-# mouse 2 Music-PlayPause : allready here {{{2
-# mouse 3 Menu /Music/Volume {{{2
-AddToFunc Music-Volume
-+ I Exec exec echo "volume $0 1" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-AddToMenu /Music/Volume
-+ '$[gt.MPlayer volume]' Nop
-+ " 0 db" Music-Volume "100"
-+ "- 3 db" Music-Volume "70.7"
-+ "- 6 db" Music-Volume "50"
-+ "- 12 dB" Music-Volume "25"
-+ "- 18 db" Music-Volume "12.5"
-+ "- 24 db" Music-Volume "6.25"
-+ "- 30 db" Music-Volume "3.125"
-+ "- 36 db" Music-Volume "1.5625"
-+ " 0" Music-Volume "0"
-
-# mouse 4 Music-Speed-Up {{{2
-AddToFunc Music-Speed-Up
-+ I PipeRead 'echo "speed_set $($[FVWM_SYSTEMDIR]/scripts/speed_value +1comma mplayer $[infostore.speed])" > /home/$[infostore.USERDIR]/.mplayer/pipe ; echo InfoStoreAdd speed $($[FVWM_SYSTEMDIR]/scripts/speed_value +1comma mplayer $[infostore.speed])'
-
-# mouse 5 Music-Speed-Down {{{2
-AddToFunc Music-Speed-Down
-+ I PipeRead 'echo "speed_set $($[FVWM_SYSTEMDIR]/scripts/speed_value -1comma mplayer $[infostore.speed])" > /home/$[infostore.USERDIR]/.mplayer/pipe ; echo InfoStoreAdd speed $($[FVWM_SYSTEMDIR]/scripts/speed_value -1comma mplayer $[infostore.speed])'
-
-# Last button {{{1
-# speed controls
-# mouse 1 Menu /Speed {{{2
-AddToFunc Music-Speed
-+ I PipeRead 'echo "speed_set $($[FVWM_SYSTEMDIR]/scripts/speed_value "$0" mplayer $[infostore.speed])" > /home/$[infostore.USERDIR]/.mplayer/pipe ; echo InfoStoreAdd "speed $($[FVWM_SYSTEMDIR]/scripts/speed_value "$[0]" mplayer $[infostore.speed])"'
-
-# speed_set <0.01 to 100>
-AddToMenu /Speed
-+ '$[gt.Speed control]' Nop
-+ "" Nop
-+ '$[gt.Max]' Music-Speed 'maxmplayer mplayer'
-+ '$[gt.+ 2 octaves]' Music-Speed '+2octave mplayer'
-+ '$[gt.+ 1 octave]' Music-Speed '+1octave mplayer'
-+ '$[gt.+ 1 seventh]' Music-Speed '+1septieme mplayer'
-+ '$[gt.+ 1 sixth]' Music-Speed '+1sixte mplayer'
-+ '$[gt.+ 1 fifth]' Music-Speed '+1quinte mplayer'
-+ '$[gt.+ 1 fourth]' Music-Speed '+1quarte mplayer'
-+ '$[gt.+ 1 third]' Music-Speed '+1tierce mplayer'
-+ '$[gt.+ 1 tone]' Music-Speed '+1ton mplayer'
-+ '$[gt.+ 1/2 tone]' Music-Speed '+1/2ton mplayer'
-+ "" Nop
-+ '$[gt.- 1/2 tone]' Music-Speed '-1/2ton mplayer'
-+ '$[gt.- 1 tone]' Music-Speed '-1ton mplayer'
-+ '$[gt.- 1 third]' Music-Speed '-1tierce mplayer'
-+ '$[gt.- 1 fourth]' Music-Speed '-1quarte mplayer'
-+ '$[gt.- 1 fifth]' Music-Speed '-1quinte mplayer'
-+ '$[gt.- 1 sixth]' Music-Speed '-1sixte mplayer'
-+ '$[gt.- 1 seventh]' Music-Speed '-1septieme mplayer'
-+ '$[gt.- 1 octave]' Music-Speed '-1octave mplayer'
-+ '$[gt.- 2 octaves]' Music-Speed '-2octave mplayer'
-+ '$[gt.Min]' Music-Speed 'minmplayer mplayer'
-+ "" Nop
-+ '$[gt.Normal]' Music-Speed 'normal mplayer'
-+ '$[gt.+ 1 comma]' Music-Speed '+1comma mplayer'
-+ '$[gt.Pause]' Music-Pause
-+ '$[gt.- 1 comma]' Music-Speed '-1comma mplayer'
-
-# mouse 4 Button-Seek-+ {{{2
-# mouse 5 Button-Seek--
-
-# Basic control functions {{{1
-
-AddToFunc Music-VolumeUp
-+ I Exec exec echo "volume 10 0" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-AddToFunc Music-VolumeDown
-+ I Exec exec echo "volume -10 0" > /home/$[infostore.USERDIR]/.mplayer/pipe
-
-# Playlist functions and menus {{{1
-
-AddToMenu /Playlist
-+ DynamicPopupAction Function /Playlist-generator
-
-AddToMenu /Playlist-bot
-+ DynamicPopupAction Function /Playlist-generator-bot
-
-# Main functions and menus {{{1
-
-AddToFunc /Playlist-generator
-+ I DestroyMenu recreate /Playlist
-Test (F /dev/dvb/adapter0/frontend0) + I AddToMenu /Playlist '$[gt.Watch DVB] 1' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://1@
-Test (F /dev/dvb/adapter1/frontend0) + I AddToMenu /Playlist '$[gt.Watch DVB] 2' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://2@
-Test (F /dev/dvb/adapter2/frontend0) + I AddToMenu /Playlist '$[gt.Watch DVB] 3' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://3@
-Test (F /dev/dvb/adapter3/frontend0) + I AddToMenu /Playlist '$[gt.Watch DVB] 4' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://4@
-+ I AddToMenu /Playlist '$[gt.Play DVD]' Load-DVD
-+ I AddToMenu /Playlist '$[gt.Load media file]' Popup /Music/LoadMovie
-+ I AddToMenu /Playlist '$[gt.Load playlist]' Popup /Music/LoadPlaylist
-#+ I AddToMenu /Playlist '$[gt.Clear playlist]' Music-ClearPlaylist
-+ I AddToMenu /Playlist '$[gt.Copy playlist]' Popup /Music/CopyPlaylist
-+ I AddToMenu /Playlist '$[gt.Remove playlist]' Popup /Music/RemovePlaylist
-
-AddToFunc /Playlist-generator-bot
-+ I DestroyMenu recreate /Playlist-bot
-+ I AddToMenu /Playlist-bot '$[gt.Load playlist]' Popup /Music/LoadPlaylist
-+ I AddToMenu /Playlist-bot '$[gt.Load media file]' Popup /Music/LoadMovie
-+ I AddToMenu /Playlist-bot '$[gt.Play DVD]' Load-DVD
-Test (F /dev/dvb/adapter3/frontend0) + I AddToMenu /Playlist-bot '$[gt.Watch DVB] 1' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://4@
-Test (F /dev/dvb/adapter2/frontend0) + I AddToMenu /Playlist-bot '$[gt.Watch DVB] 2' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://3@
-Test (F /dev/dvb/adapter1/frontend0) + I AddToMenu /Playlist-bot '$[gt.Watch DVB] 3' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://2@
-Test (F /dev/dvb/adapter0/frontend0) + I AddToMenu /Playlist-bot '$[gt.Watch DVB] 4' Exec exec fvwm-crystal.mplayer-wrapper file $[infostore.USERDIR] dvb://1@
-#+ I AddToMenu /Playlist-bot '$[gt.Clear playlist]' Music-ClearPlaylist
-+ I AddToMenu /Playlist-bot '$[gt.Copy playlist]' Popup /Music/CopyPlaylist
-+ I AddToMenu /Playlist-bot '$[gt.Remove playlist]' Popup /Music/RemovePlaylist
-
-# Recipe without audio buttons use the following:
-AddToFunc Music-generator
-+ I DestroyMenu recreate /Music
-+ I AddToMenu /Music '$[gt.Player]' Popup /Player
-+ I AddToMenu /Music '$[gt.Show/Hide GUI]' Music-GUI
-+ I AddToMenu /Music '$[gt.Playback]' Popup /Playback
-+ I AddToMenu /Music '$[gt.Playlist]' Popup /Playlist
-+ I AddToMenu /Music '$[gt.Mixer]' Popup /Mixer
-+ I AddToMenu /Music '$[gt.Speed]' Popup /Speed
-+ I AddToMenu /Music '$[gt.Show/Hide QJackCtl]' Music-QJackGUI
-
# vim:ft=fvwm
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
