.fvwmrc: Add menu to set volume and suspend/resume browser

diff --git a/.fvwm/main.m4 b/.fvwm/main.m4
index bb1c2dc1b129ada2cd41dd9ac3e4187a0f42b3f5..eee421a8fa526cbdbd09d56b1ce23f13794bea6d 100644 (file)
--- a/.fvwm/main.m4
+++ b/.fvwm/main.m4
@@ -664,6 +664,26 @@ AddToFunc KeePassXC           I Any ("*KeePassXC") Break
 +                             I Exec QT_SCALE_FACTOR=1.5 exec cgmem_nice 300 "$HOME"/tmp/KeePassXC-2.7.*-x86_64.AppImage
 +                             I Wait KeePassXC
 
+DestroyFunc SetSilentVolumeAndBrowser
+AddToFunc SetSilentVolumeAndBrowser
++                             I Exec exec "$HOME"/current/projects/audio-cdr-video/audio/pa-volume set 6554
++                             I ResumeFireFox
+
+DestroyFunc SetLowVolumeAndBrowser
+AddToFunc SetLowVolumeAndBrowser
++                             I Exec exec "$HOME"/current/projects/audio-cdr-video/audio/pa-volume set 20972
++                             I ResumeFireFox
+
+DestroyFunc SetNormalVolumeAndBrowser
+AddToFunc SetNormalVolumeAndBrowser
++                             I Exec exec "$HOME"/current/projects/audio-cdr-video/audio/pa-volume set 26214
++                             I ResumeFireFox
+
+DestroyFunc SetLoudVolumeAndBrowser
+AddToFunc SetLoudVolumeAndBrowser
++                             I Exec exec "$HOME"/current/projects/audio-cdr-video/audio/pa-volume set 52429
++                             I SuspendFireFox
+
 ##############################################################################
 # MENU Setup
 #
@@ -819,6 +839,7 @@ AddToMenu RootMenu "Root Menu"  Title
 +               ""              Nop
 +               "Browsers"      Popup Browsers
 +               "Utilities"     Popup Utilities
++               "Volume"        Popup Volume
 #+               ""              Nop
 #+               "Lock Screen"   Popup XlockMenu
 +               "XScreenSaver"  Popup XScreenSaverMenu
@@ -845,6 +866,13 @@ AddToMenu Utilities     "Choose one:" Title
 +                       "xrefresh" Exec exec xrefresh
 +                       ""       Nop
 +                       "KeePassXC" KeePassXC
+
+DestroyMenu Volume
+AddToMenu Volume        "Choose one:" Title
++                       "Silent (10%)" SetSilentVolumeAndBrowser
++                       "Low (32%)" SetLowVolumeAndBrowser
++                       "Normal (40%)" SetNormalVolumeAndBrowser
++                       "Loud (80%)" SetLoudVolumeAndBrowser
 +                       "pavucontrol" PaVuControl
 
 DestroyMenu  Browsers