From b1843e3b6ac636634bf636225fd6fbf557cce86f Mon Sep 17 00:00:00 2001
From: Oleg Broytman <phd@phdru.name>
Date: Mon, 31 Mar 2025 01:50:58 +0300
Subject: [PATCH] .fvwmrc: Add menu to set volume and suspend/resume browser

---
 .fvwm/main.m4 | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/.fvwm/main.m4 b/.fvwm/main.m4
index bb1c2dc..eee421a 100644
--- 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
-- 
2.39.5