From 3e90bbfaec0953f2ef74fa2827ac41678ee11dee Mon Sep 17 00:00:00 2001 From: dakkar Date: Thu, 13 Aug 2009 21:37:24 +0200 Subject: importing Crystal config into git --- components/functions/Mixer-amixer | 25 +++++++++++++++++ components/functions/Music-amarok | 49 +++++++++++++++++++++++++++++++++ components/functions/Notify | 12 +++++++++ components/functions/Numpad | 57 +++++++++++++++++++++++++++++++++++++++ components/functions/Screen-Menu | 11 ++++++++ 5 files changed, 154 insertions(+) create mode 100644 components/functions/Mixer-amixer create mode 100644 components/functions/Music-amarok create mode 100644 components/functions/Notify create mode 100644 components/functions/Numpad create mode 100644 components/functions/Screen-Menu (limited to 'components/functions') diff --git a/components/functions/Mixer-amixer b/components/functions/Mixer-amixer new file mode 100644 index 0000000..2f2d705 --- /dev/null +++ b/components/functions/Mixer-amixer @@ -0,0 +1,25 @@ +DestroyFunc Mixer-Volume +AddToFunc Mixer-Volume ++ I Exec amixer set PCM "$0"'%' > /dev/null + +DestroyFunc Mixer-Volume-Up +AddToFunc Mixer-Volume-Up ++ I Exec amixer set PCM "$0"'%+' > /dev/null + +DestroyFunc Mixer-Volume-Down +AddToFunc Mixer-Volume-Down ++ I Exec amixer set PCM "$0"'%-' > /dev/null + +DestroyFunc Mixer-GUI +AddToFunc Mixer-GUI ++ I Exec exec gamix > /dev/null + +# Mixer menu +DestroyMenu /Mixer +AddToMenu /Mixer ++ "100%%" Mixer-Volume 100 ++ "90%%" Mixer-Volume 90 ++ "80%%" Mixer-Volume 80 ++ "50%%" Mixer-Volume 50 ++ "30%%" Mixer-Volume 30 ++ "0%%" Mixer-Volume 0 diff --git a/components/functions/Music-amarok b/components/functions/Music-amarok new file mode 100644 index 0000000..8a5ab35 --- /dev/null +++ b/components/functions/Music-amarok @@ -0,0 +1,49 @@ +DestroyMenu /Music +AddToMenu /Music ++ DynamicPopupAction Function /Music-generator + +DestroyFunc /Music-generator +AddToFunc /Music-generator ++ I DestroyMenu recreate /Music ++ I AddToMenu /Music '$[gt.Toggle random]' Music-ToggleRandom ++ I AddToMenu /Music '$[gt.Toggle repeat]' Music-ToggleRepeat ++ I AddToMenu /Music "" Nop ++ I AddToMenu /Music '$[gt.Stop playback]' Music-Stop ++ I AddToMenu /Music '$[gt.Show/hide player]' Music-GUI ++ I AddToMenu /Music '$[gt.Play/Pause]' Music-PlayPause + +DestroyFunc Music-Play +AddToFunc Music-Play ++ I Exec exec dcop amarok player play 2>/dev/null + +DestroyFunc Music-Pause +AddToFunc Music-Pause ++ I Exec exec dcop amarok player pause 2>/dev/null + +DestroyFunc Music-Stop +AddToFunc Music-Stop ++ I Exec exec dcop amarok player stop 2>/dev/null + +DestroyFunc Music-PlayPause +AddToFunc Music-PlayPause ++ I Exec exec dcop amarok player playPause 2>/dev/null + +DestroyFunc Music-Next +AddToFunc Music-Next ++ I Exec exec dcop amarok player next 2>/dev/null + +DestroyFunc Music-Prev +AddToFunc Music-Prev ++ I Exec exec dcop amarok player prev 2>/dev/null + +DestroyFunc Music-ToggleRandom +AddToFunc Music-ToggleRandom ++ I Exec exec dcop amarok player enableRandomMode $( if [ $(dcop amarok player randomModeStatus) == false ]; then echo true; else echo false;fi) 2>/dev/null + +DestroyFunc Music-ToggleRepeat +AddToFunc Music-ToggleRepeat ++ I Exec exec dcop amarok player enableRepeatPlaylist $( if [ $(dcop amarok player repeatPlaylistStatus) == false ]; then echo true; else echo false;fi) 2>/dev/null + +DestroyFunc Music-GUI +AddToFunc Music-GUI ++ I Exec dcop amarok playlist togglePlaylist 2>/dev/null || amarok diff --git a/components/functions/Notify b/components/functions/Notify new file mode 100644 index 0000000..f0c2a55 --- /dev/null +++ b/components/functions/Notify @@ -0,0 +1,12 @@ +AddToFunc StartFunction ++ I ModuleSynchronous FvwmPerl NotifyPerl ++ I SendToModule NotifyPerl load FvwmNotify.pm + +DestroyFunc BubbleNotify +AddToFunc BubbleNotify ++ I SendToModule NotifyPerl eval FvwmNotify::notify(q{$0},q{$1},q{$2},q{$3},q{$4}) + +DestroyFunc UrgencyFunc +AddtoFunc UrgencyFunc ++ I BubbleNotify $[w.name] $[w.name] 'beep!' 2000 $[w.iconfile] + diff --git a/components/functions/Numpad b/components/functions/Numpad new file mode 100644 index 0000000..b694ee3 --- /dev/null +++ b/components/functions/Numpad @@ -0,0 +1,57 @@ +# Numpad + +# --------------------------------------------------------------------------- +# Focus functions +DestroyFunc Window-FocusInDirection +AddToFunc Window-FocusInDirection ++ I Direction $0 (CurrentPage, AnyScreen, AcceptsFocus, !Iconic) Focus + +DestroyFunc Window-FocusAndRaiseInDirection +AddToFunc Window-FocusAndRaiseInDirection ++ I Direction $0 (CurrentPage, AnyScreen, AcceptsFocus, !Iconic) Focus ++ I Current (Focused) Raise + +# --------------------------------------------------------------------------- +# Move functions +DestroyFunc Window-MPAnimatedMove +AddToFunc Window-MPAnimatedMove ++ I Current (HasPointer) AnimatedMove $0 $1 Warp ++ I TestRc (NoMatch) AnimatedMove $0 $1 + +DestroyFunc Window-Warp-CenterCenter +AddToFunc Window-Warp-CenterCenter ++ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] / 2 - $[w.width] / 2`p `expr $[vp.height] / 2 - $[w.height] / 2`p' + +DestroyFunc Window-Warp-LeftCenter +AddToFunc Window-Warp-LeftCenter ++ I Current Piperead 'echo Window-MPAnimatedMove $[EWMH_BS_Panel_Left]p `expr $[vp.height] / 2 - $[w.height] / 2`p' + +DestroyFunc Window-Warp-LeftTop +AddToFunc Window-Warp-LeftTop ++ I Current Window-MPAnimatedMove $[EWMH_BS_Panel_Left]p $[EWMH_BS_Panel_Top]p + +DestroyFunc Window-Warp-CenterTop +AddToFunc Window-Warp-CenterTop ++ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] / 2 - $[w.width] / 2`p $[EWMH_BS_Panel_Top]p' + +DestroyFunc Window-Warp-RightTop +AddToFunc Window-Warp-RightTop ++ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] - $[EWMH_BS_Panel_Right] - $[w.width]`p $[EWMH_BS_Panel_Top]p' + +DestroyFunc Window-Warp-RightCenter +AddToFunc Window-Warp-RightCenter ++ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] - $[EWMH_BS_Panel_Right] - $[w.width]`p `expr $[vp.height] / 2 - $[w.height] / 2`p' + +DestroyFunc Window-Warp-CenterBottom +AddToFunc Window-Warp-CenterBottom ++ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] / 2 - $[w.width] / 2`p `expr $[vp.height] - $[EWMH_BS_Panel_Bottom] - $[w.height]`p' + +DestroyFunc Window-Warp-LeftBottom +AddToFunc Window-Warp-LeftBottom ++ I Current Piperead 'echo Window-MPAnimatedMove $[EWMH_BS_Panel_Left]p `expr $[vp.height] - $[EWMH_BS_Panel_Bottom] - $[w.height]`p' + +DestroyFunc Window-Warp-RightBottom +AddToFunc Window-Warp-RightBottom ++ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] - $[EWMH_BS_Panel_Right] - $[w.width]`p `expr $[vp.height] - $[EWMH_BS_Panel_Bottom] - $[w.height]`p' + +# vim:ft=fvwm diff --git a/components/functions/Screen-Menu b/components/functions/Screen-Menu new file mode 100644 index 0000000..e32dc39 --- /dev/null +++ b/components/functions/Screen-Menu @@ -0,0 +1,11 @@ +DestroyMenu /Screens +AddToMenu /Screens ++ DynamicPopupAction Function BuildScreensMenu + +DestroyFunc BuildScreensMenu +AddToFunc BuildScreensMenu ++ I DestroyMenu recreate /Screens ++ I AddToMenu /Screens ++ I PipeRead $[FVWM_USERDIR]/scripts/fvwm-screen.pl + +Mouse 3 RI $[Mod1] Popup /Screens -- cgit v1.2.3