Feat(.fvwmrc): Suspend/resume FireFox before/after starting SOCKS proxy

diff --git a/.fvwm/main.m4 b/.fvwm/main.m4
index 45ff42a13e9dff0f1c8f24970a51d6cc40ae7dff..512207f3a6d2fe956e1cd07c5cac9e8052538a8c 100644 (file)
--- a/.fvwm/main.m4
+++ b/.fvwm/main.m4
@@ -184,6 +184,9 @@ define(`TERM_KOI8_BIG_SSH_SCREEN',
 define(`MENU_TERM_KOI8_BIG_SSH_SCREEN',
 `"$2 (koi8,scr)" TERM_KOI8_BIG_SSH_SCREEN($1, $2)')
 
+define(`TERM_SSH_SOCKS_SCREEN_KOI8',
+`TERM_KOI8 -title "$1 socks,scr" -n "$1 socks,scr" -e /bin/sh -c ''FvwmCommand ResumeFirefox; SSH_SCREEN_KOI8(-D 127.0.0.1:1080 $1); exec FvwmCommand SuspendFirefox')
+
 divert
 
 ##########################################################################
@@ -630,7 +633,7 @@ AddToFunc Term2HostsHome      I GotoDeskAndPage 1 1 2
 +                             I TERM_KOI8_SSH_SCREEN(iskra-aviel.phdru.name, iskra)
 +                             I Wait TERM
 +                             I GotoDeskAndPage 1 0 1
-+                             I TERM_KOI8_SSH_SCREEN(-D 127.0.0.1:1080 phdru.name, phdru.name)
++                             I TERM_SSH_SOCKS_SCREEN_KOI8(phdru.name)
 +                             I Wait TERM
 +                             I GotoDeskAndPage 1 1 2
 
@@ -793,7 +796,7 @@ pushdef(`TERM_RU_UTF8', `Exec LC_CTYPE=ru_RU.UTF-8 exec TERM -name URxvt -xrm "*
 pushdef(`TERM_KOI8', `Exec LC_CTYPE=ru_RU.KOI8-R exec TERM -xrm "*Page: 1 0 1"')dnl
 pushdef(`TERM_RU_UTF8', `Exec LC_CTYPE=ru_RU.UTF-8 exec TERM -name URxvt -xrm "*Page: 1 0 1"')dnl
 +                       MENU_TERM_KOI8_SSH_SCREEN(phdru.name, phdru)
-+                       MENU_TERM_KOI8_SSH_SCREEN(-D 127.0.0.1:1080 phdru.name, phdru SOCKS5)
++                       "phdru SOCKS5 (koi8,scr)" TERM_SSH_SOCKS_SCREEN_KOI8(phdru.name)
 +                       MENU_TERM_UTF8_BOTLT_SSH(phdru.name, phdru)
 +                       MENU_TERM_KOI8_BIG_SSH(phdru.name, PHDRU)
 popdef(`TERM_KOI8', `TERM_RU_UTF8')dnl