dnl The file is in m4 format, use FvwmM4 module to read it
dnl like this: ModuleSynchronous FvwmM4 -lock main.m4
-
+dnl
dnl This is to prevent FvwmM4 to shadow $HOME
-undefine(`HOME')
-
+undefine(`HOME')dnl
+dnl
dnl Echo dimension
`#' width = WIDTH
-
divert(-1)
dnl TrueType Fonts
define(`TERM_RU_UTF8_BOTLT', `TERM_RU_UTF8 -geometry TERM_GEOM_BOTLT')
define(`TERM_KOI8_BOTRT', `TERM_KOI8 -geometry TERM_GEOM_BOTRT')
define(`TERM_RU_UTF8_BOTRT', `TERM_RU_UTF8 -geometry TERM_GEOM_BOTRT')
+define(`TERM_KOI8_BIG', TERM_KOI8 -geometry TERM_GEOM_BIG)
+define(`TERM_UTF8_BIG', TERM_RU_UTF8 -geometry TERM_GEOM_BIG)
define(`SSH', `cgmem_nice 300 ssh')
define(`TERM_KOI8_SSH',
TERM_TITLE_SSH(TERM_KOI8, $1, $2))
-define(`SSH_SCREEN_KOI8', `-t $1 exec /usr/bin/screen -xRR -S default-koi8')
-define(`SSH_SCREEN_UTF8', `-t $1 exec /usr/bin/screen -xRR -S default-utf8')
+define(`SSH_SCREEN_KOI8',
+`SSH -t $1 TZ="$(cat /etc/timezone)" exec /usr/bin/screen -xRR -S default-koi8')
+define(`SSH_SCREEN_UTF8',
+`SSH -t $1 TZ="$(cat /etc/timezone)" exec /usr/bin/screen -xRR -S default-utf8')
+
+define(`TERM_TITLE_SSH_SCREEN_KOI8',
+`$1 -title "$3 scr" -n "$3 scr" -e SSH_SCREEN_KOI8($2)')
+
+define(`TERM_TITLE_SSH_SCREEN_UTF8',
+`$1 -title "$3 scr" -n "$3 scr" -e SSH_SCREEN_UTF8($2)')
define(`MENU_TERM_KOI8_SSH',
"$2 (koi8)" TERM_KOI8_SSH($1, $2))
TERM_TITLE_SSH(TERM_KOI8_BOTRT, $1, $2))
define(`MENU_TERM_KOI8_BOTLT_SSH',
-"$2 (koi8,btlt)" TERM_KOI8_BOTLT_SSH($1, $2))
+"$2 (btlt,koi8)" TERM_KOI8_BOTLT_SSH($1, $2))
define(`MENU_TERM_KOI8_BOTRT_SSH',
-"$2 (koi8,btrt)" TERM_KOI8_BOTRT_SSH($1, $2))
+"$2 (btrt,koi8)" TERM_KOI8_BOTRT_SSH($1, $2))
+
+define(`TERM_KOI8_SSH_SCREEN',
+TERM_TITLE_SSH_SCREEN_KOI8(TERM_KOI8, $1, $2))
+
+define(`MENU_TERM_KOI8_SSH_SCREEN',
+"$2 (koi8,scr)" TERM_TITLE_SSH_SCREEN_KOI8(TERM_KOI8, $1, $2))
+
+define(`TERM_KOI8_BOTLT_SSH_SCREEN',
+TERM_TITLE_SSH_SCREEN_KOI8(TERM_KOI8_BOTLT, $1, $2))
+
+define(`TERM_KOI8_BOTRT_SSH_SCREEN',
+TERM_TITLE_SSH_SCREEN_KOI8(TERM_KOI8_BOTRT, $1, $2))
+
+define(`MENU_TERM_KOI8_BOTLT_SSH_SCREEN',
+"$2 (btlt,koi8,scr)" TERM_KOI8_BOTLT_SSH_SCREEN($1, $2))
+
+define(`MENU_TERM_KOI8_BOTRT_SSH_SCREEN',
+"$2 (btrt,koi8,scr)" TERM_KOI8_BOTRT_SSH_SCREEN($1, $2))
define(`TERM_UTF8_SSH',
TERM_TITLE_SSH(TERM_RU_UTF8, $1, $2))
TERM_TITLE_SSH(TERM_RU_UTF8_BOTRT, $1, $2))
define(`MENU_TERM_UTF8_BOTLT_SSH',
-"$2 (utf8,btlt)" TERM_UTF8_BOTLT_SSH($1, $2))
+"$2 (btlt,utf8)" TERM_UTF8_BOTLT_SSH($1, $2))
define(`MENU_TERM_UTF8_BOTRT_SSH',
-"$2 (utf8,btrt)" TERM_UTF8_BOTRT_SSH($1, $2))
+"$2 (btrt,utf8)" TERM_UTF8_BOTRT_SSH($1, $2))
+
+define(`TERM_UTF8_SSH_SCREEN',
+TERM_TITLE_SSH_SCREEN_UTF8(TERM_RU_UTF8, $1, $2))
+
+define(`MENU_TERM_UTF8_SSH_SCREEN',
+"$2 (utf8,scr)" TERM_UTF8_SSH_SCREEN($1, $2))
+
+define(`TERM_UTF8_BOTLT_SSH_SCREEN',
+TERM_TITLE_SSH_SCREEN_UTF8(TERM_RU_UTF8_BOTLT, $1, $2))
+
+define(`TERM_UTF8_BOTRT_SSH_SCREEN',
+TERM_TITLE_SSH_SCREEN_UTF8(TERM_RU_UTF8_BOTRT, $1, $2))
+
+define(`MENU_TERM_UTF8_BOTLT_SSH_SCREEN',
+"$2 (btlt,utf8,scr)" TERM_UTF8_BOTLT_SSH_SCREEN($1, $2))
+
+define(`MENU_TERM_UTF8_BOTRT_SSH_SCREEN',
+"$2 (btrt,utf8,scr)" TERM_UTF8_BOTRT_SSH_SCREEN($1, $2))
define(`TERM_KOI8_BIG_SSH',
-TERM_KOI8 -geometry TERM_GEOM_BIG -title "$2" -n "$2" -e SSH "$1")
+TERM_KOI8_BIG -title "$2" -n "$2" -e SSH "$1")
define(`MENU_TERM_KOI8_BIG_SSH',
"$2 (koi8)" TERM_KOI8_BIG_SSH($1, $2))
+define(`TERM_KOI8_BIG_SSH_SCREEN',
+TERM_KOI8_BIG -title "$2" -n "$2" -e SSH_SCREEN_KOI8 "$1")
+
+define(`MENU_TERM_KOI8_BIG_SSH_SCREEN',
+"$2 (koi8,scr)" TERM_KOI8_BIG_SSH_SCREEN($1, $2))
+
divert
##########################################################################
+ I XsetbgFilename
+ I Wait gxmessage
+ I GotoDeskAndPage 2 0 1
-+ I TERM_KOI8 -geometry TERM_GEOM_BIG
++ I TERM_KOI8_BIG
+ I Wait TERM
+ I FireFox
+ I GotoDeskAndPage 0 1 1
AddToFunc Id3Info I Exec "$HOME"/lib/audio/mp3/id3info.py "`audtool --current-song-filename`" | text-wrap.py | gxmessage -buttons Ok -default Ok -fn 'MESSAGE_FONT' -file -
changequote([`], ['])
-DestroyFunc AudioPlayer
-AddToFunc AudioPlayer I GotoDeskAndPage 0 1 1
-+ I Exec LC_CTYPE=ru_RU.KOI8-R exec cgmem_nice 400 deadbeef
-
-DestroyFunc Term-Iskra
-AddToFunc Term-Iskra I GotoDeskAndPage 1 1 2
-+ I TERM_KOI8_SSH(SSH_SCREEN_KOI8(iskra-aviel.phdru.name), iskra scr)
-
-DestroyFunc Term-Iskra-Big
-AddToFunc Term-Iskra-Big I GotoDeskAndPage 1 1 2
-+ I TERM_KOI8_BIG_SSH(iskra-aviel.phdru.name, ISKRA)
-
-DestroyFunc Term-Oper
-AddToFunc Term-Oper I GotoDeskAndPage 1 1 2
-+ I TERM_KOI8_BOTRT_SSH(SSH_SCREEN_KOI8(oper.med.ru), oper scr)
-
-DestroyFunc Term-Oper-Big
-AddToFunc Term-Oper-Big I GotoDeskAndPage 1 1 2
-+ I TERM_KOI8_BIG_SSH(oper.med.ru, OPER)
-
-DestroyFunc Term-Phdru
-AddToFunc Term-Phdru I GotoDeskAndPage 1 0 1
-+ I TERM_KOI8_SSH(SSH_SCREEN_KOI8(phdru.name), phdru.name scr)
-
-DestroyFunc Term-Phdru-Big
-AddToFunc Term-Phdru-Big I GotoDeskAndPage 1 0 1
-+ I TERM_KOI8_BIG_SSH(phdru.name, phdru.name)
-
DestroyFunc Term3Hosts
-AddToFunc Term3Hosts I Term-Iskra
+AddToFunc Term3Hosts I GotoDeskAndPage 1 1 2
++ I TERM_KOI8_SSH_SCREEN(iskra-aviel.phdru.name, iskra)
+ I Wait TERM
-+ I Term-Oper
++ I TERM_KOI8_BOTRT_SSH_SCREEN(oper.med.ru, oper)
+ I Wait TERM
+ I GotoDeskAndPage 1 0 1
-+ I TERM_KOI8_SSH(SSH_SCREEN_KOI8(-D 1080 phdru.name), phdru.name scr)
++ I TERM_KOI8_SSH_SCREEN(-D 1080 phdru.name, phdru.name)
+ I Wait TERM
+ I GotoDeskAndPage 1 1 2
+ "Grey term (koi8)" TERM_KOI8
+ "Grey term (utf8)" TERM_RU_UTF8
+ "Grey term (heb-utf8)" TERM_HEB_UTF8
-+ "Grey term (koi8,btlt)" TERM_KOI8_BOTLT
-+ "Grey term (koi8,btrt)" TERM_KOI8_BOTRT
-+ "Grey term (utf8,btlt)" TERM_RU_UTF8_BOTLT
-+ "Grey term (utf8,btrt)" TERM_RU_UTF8_BOTRT
-+ "Big grey term (koi8)" TERM_KOI8 -geometry TERM_GEOM_BIG
-+ "Big grey term (utf8)" TERM_RU_UTF8 -geometry TERM_GEOM_BIG
++ "Grey term (btlt,koi8)" TERM_KOI8_BOTLT
++ "Grey term (btrt,koi8)" TERM_KOI8_BOTRT
++ "Grey term (btlt,utf8)" TERM_RU_UTF8_BOTLT
++ "Grey term (btrt,utf8)" TERM_RU_UTF8_BOTRT
++ "Big grey term (koi8)" TERM_KOI8_BIG
++ "Big grey term (utf8)" TERM_UTF8_BIG
+ "" Nop
+ "White/black term (koi8)" TERM_KOI8 -fg white -cr white -bg black
+ "White/black term (utf8)" TERM_RU_UTF8 -fg white -bg black
AddToMenu Systems "Systems" Title
+ "Iskra+Oper+Phdru" Term3Hosts
+ "" Nop
-+ MENU_TERM_KOI8_SSH(SSH_SCREEN_KOI8(iskra-aviel.phdru.name), iskra scr)
++ MENU_TERM_KOI8_SSH_SCREEN(iskra-aviel.phdru.name, iskra)
+ MENU_TERM_UTF8_BOTLT_SSH(iskra-aviel.phdru.name, iskra)
+ MENU_TERM_KOI8_BIG_SSH(iskra-aviel.phdru.name, ISKRA)
+ "" Nop
-+ MENU_TERM_KOI8_BOTRT_SSH(SSH_SCREEN_KOI8(oper.med.ru), oper scr)
++ MENU_TERM_KOI8_BOTRT_SSH_SCREEN(oper.med.ru, oper)
+ MENU_TERM_UTF8_BOTRT_SSH(oper.med.ru, oper)
+ MENU_TERM_KOI8_BIG_SSH(oper.med.ru, OPER)
+ "" Nop
-+ MENU_TERM_KOI8_SSH(SSH_SCREEN_KOI8(phdru.name), phdru scr)
-+ MENU_TERM_KOI8_SSH(SSH_SCREEN_KOI8(-D 1080 phdru.name), phdru scr SOCKS5)
++ MENU_TERM_KOI8_SSH_SCREEN(phdru.name, phdru)
++ MENU_TERM_KOI8_SSH_SCREEN(-D 1080 phdru.name, phdru SOCKS5)
+ MENU_TERM_UTF8_BOTLT_SSH(phdru.name, phdru)
+ MENU_TERM_KOI8_BIG_SSH(phdru.name, PHDRU)
pushdef(`TERM_RU_UTF8', `Exec "URxvt" LC_CTYPE=ru_RU.UTF-8 exec TERM -name URxvt')
*FvwmButtons: (Title Term, Icon rterm2.xpm, Action TERM_KOI8)
*FvwmButtons: (Title UTF-8, Icon rterm2.xpm, Action TERM_RU_UTF8)
-*FvwmButtons: (Title "phdru scr", Icon xterm-sgi.xpm, Action TERM_KOI8_SSH(SSH_SCREEN_KOI8(phdru.name), phdru.name scr))
-*FvwmButtons: (Title "iskra scr", Icon xterm-sgi.xpm, Action TERM_KOI8_SSH(SSH_SCREEN_KOI8(iskra-aviel.phdru.name), iskra scr))
-*FvwmButtons: (Title "oper scr", Icon xterm-linux.xpm, Action TERM_KOI8_BOTRT_SSH(SSH_SCREEN_KOI8(oper.med.ru), oper scr))
+*FvwmButtons: (Title "phdru (k8,s)", Icon xterm-sgi.xpm, Action TERM_KOI8_SSH_SCREEN(phdru.name, phdru.name))
+*FvwmButtons: (Title "iskra (k8,s)", Icon xterm-sgi.xpm, Action TERM_KOI8_SSH_SCREEN(iskra-aviel.phdru.name, iskra))
+*FvwmButtons: (Title "oper (k8,s)", Icon xterm-linux.xpm, Action TERM_KOI8_BOTRT_SSH_SCREEN(oper.med.ru, oper))
popdef(`TERM_KOI8', `TERM_RU_UTF8')
*FvwmButtons: (Title Wallpaper, Icon find1.xpm, Action Exec "gxmessage" "$HOME"/current/projects/xsetbg/print-filename.py | text-wrap.py -w TEXT_WIDTH -s | gxmessage -buttons Ok -default Ok -fn 'MESSAGE_FONT' -file -)
#*Rlogin: Input UserName 10 ""
#*Rlogin: Line expand
#*Rlogin: Button quit "Login" ^M
-#*Rlogin: Command TERM_KOI8 -T term@$(HostName) -e rlogin $(HostName) $(Custom?-l $(UserName))
+`#'*Rlogin: Command TERM_KOI8 -T term@$(HostName) -e rlogin $(HostName) $(Custom?-l $(UserName))
#*Rlogin: Button restart "Clear"
#*Rlogin: Command Beep
#*Rlogin: Button quit "Cancel"