X-Git-Url: https://git.phdru.name/?a=blobdiff_plain;f=.fvwm%2Fmain.m4;h=a74c7e3094df7e4fd6ddc3e3304a6ebade662b18;hb=977c52660aad856c3d4d98642f9ef6e384fbdf0b;hp=2f960c5dabe5b216f262892f65d7a43f17480fc3;hpb=ce44717e3b83365260b978e78a67132178f343ac;p=dotfiles.git diff --git a/.fvwm/main.m4 b/.fvwm/main.m4 index 2f960c5..a74c7e3 100644 --- a/.fvwm/main.m4 +++ b/.fvwm/main.m4 @@ -9,7 +9,7 @@ dnl This is to prevent FvwmM4 to shadow $HOME undefine(`HOME')dnl dnl dnl Echo dimension -`#' width = WIDTH +`#' width = WIDTH()dnl divert(-1) dnl TrueType Fonts @@ -67,7 +67,7 @@ define(`TERM_GEOM_BOTRT', TERM_GEOM`-0-0') define(`TERM_GEOM_BIG', ifelse(eval(WIDTH < 1024), 1, `96x30', - eval(WIDTH < 1920), 1, `112x32+2-0', `119x32+1-0')) + eval(WIDTH < 1920), 1, `112x32+2-0', `127x32+1-0')) define(`TERM', `urxvt') @@ -79,8 +79,8 @@ define(`TERM_KOI8_BOTLT', `TERM_KOI8 -geometry TERM_GEOM_BOTLT') 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(`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') @@ -90,7 +90,7 @@ define(`TERM_SSH', `$1 -e SSH $2') define(`TERM_TITLE_SSH', `$1 -title "$3" -n "$3" -e SSH $2') define(`TERM_KOI8_SSH', -TERM_TITLE_SSH(TERM_KOI8, $1, $2)) +`TERM_TITLE_SSH(`TERM_KOI8', $1, $2)') define(`SSH_SCREEN_KOI8', `SSH -t $1 TZ="$(cat /etc/timezone)" exec /usr/bin/screen -xRR -S default-koi8') @@ -104,85 +104,85 @@ 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)) +`"$2 (koi8)" TERM_KOI8_SSH($1, $2)') define(`TERM_KOI8_BOTLT_SSH', -TERM_TITLE_SSH(TERM_KOI8_BOTLT, $1, $2)) +`TERM_TITLE_SSH(`TERM_KOI8_BOTLT', $1, $2)') define(`TERM_KOI8_BOTRT_SSH', -TERM_TITLE_SSH(TERM_KOI8_BOTRT, $1, $2)) +`TERM_TITLE_SSH(`TERM_KOI8_BOTRT', $1, $2)') define(`MENU_TERM_KOI8_BOTLT_SSH', -"$2 (btlt,koi8)" TERM_KOI8_BOTLT_SSH($1, $2)) +`"$2 (btlt,koi8)" TERM_KOI8_BOTLT_SSH($1, $2)') define(`MENU_TERM_KOI8_BOTRT_SSH', -"$2 (btrt,koi8)" 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)) +`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)) +`"$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)) +`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)) +`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)) +`"$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)) +`"$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', $1, $2)') define(`MENU_TERM_UTF8_SSH', -"$2 (utf8)" TERM_UTF8_SSH($1, $2)) +`"$2 (utf8)" TERM_UTF8_SSH($1, $2)') define(`TERM_UTF8_BOTLT_SSH', -TERM_TITLE_SSH(TERM_RU_UTF8_BOTLT, $1, $2)) +`TERM_TITLE_SSH(`TERM_RU_UTF8_BOTLT', $1, $2)') define(`TERM_UTF8_BOTRT_SSH', -TERM_TITLE_SSH(TERM_RU_UTF8_BOTRT, $1, $2)) +`TERM_TITLE_SSH(`TERM_RU_UTF8_BOTRT', $1, $2)') define(`MENU_TERM_UTF8_BOTLT_SSH', -"$2 (btlt,utf8)" TERM_UTF8_BOTLT_SSH($1, $2)) +`"$2 (btlt,utf8)" TERM_UTF8_BOTLT_SSH($1, $2)') define(`MENU_TERM_UTF8_BOTRT_SSH', -"$2 (btrt,utf8)" 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)) +`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)) +`"$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)) +`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)) +`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)) +`"$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)) +`"$2 (btrt,utf8,scr)" TERM_UTF8_BOTRT_SSH_SCREEN($1, $2)') define(`TERM_KOI8_BIG_SSH', -TERM_KOI8_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)) +`"$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") +`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)) +`"$2 (koi8,scr)" TERM_KOI8_BIG_SSH_SCREEN($1, $2)') divert @@ -625,17 +625,15 @@ AddToFunc PaVuControl I GotoDeskAndPage 0 1 1 + I Exec exec cgmem_nice 200 pavucontrol + I Wait "Volume Control" -changequote([,]) +changequote([,])dnl DestroyFunc Id3Info 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([`], [']) +changequote([`], ['])dnl -DestroyFunc Term3Hosts -AddToFunc Term3Hosts I GotoDeskAndPage 1 1 2 +DestroyFunc Term2HostsHome +AddToFunc Term2HostsHome I GotoDeskAndPage 1 1 2 + I TERM_KOI8_SSH_SCREEN(iskra-aviel.phdru.name, iskra) + I Wait TERM -+ I TERM_KOI8_BOTRT_SSH_SCREEN(oper.med.ru, oper) -+ I Wait TERM + I GotoDeskAndPage 1 0 1 + I TERM_KOI8_SSH_SCREEN(-D 1080 phdru.name, phdru.name) + I Wait TERM @@ -650,6 +648,12 @@ AddToFunc FireFox I Any ("*Mozilla Firefox") Break + I Wait "*Mozilla Firefox" + I Next ("*Mozilla Firefox") Iconify true +DestroyFunc Chromium +AddToFunc Chromium I Any ("*Chromium") Break ++ I GotoDeskAndPage 1 1 0 ++ I Exec LC_CTYPE=ru_RU.KOI8-R exec cgmem_nice 2000 start-browser chromium ++ I Wait "*Chromium" + DestroyFunc Gajim AddToFunc Gajim I GotoDeskAndPage 1 1 0 + I Exec exec cgmem_nice 300 gajim @@ -660,7 +664,7 @@ AddToFunc Pidgin I GotoDeskAndPage 1 1 0 DestroyFunc Skype AddToFunc Skype I GotoDeskAndPage 0 0 1 -+ I Exec BROWSER=firefox exec cgmem_nice 1000 skypeforlinux ++ I Exec BROWSER=firefox exec cgmem_nice 2000 skypeforlinux DestroyFunc XFilename AddToFunc XSetbgFilename I Exec "$HOME"/current/projects/xsetbg/print-filename.py | text-wrap.py -w TEXT_WIDTH -s | gxmessage -buttons Ok -default Ok -fn 'MESSAGE_FONT' -file - @@ -745,20 +749,21 @@ AddToMenu TermColors "Term Colors" Title + "Term: white/black" TERM_KOI8 -fg white -cr white -bg black AddToMenu Systems "Systems" Title -+ "Iskra+Oper+Phdru" Term3Hosts ++ "Iskra+Phdru" Term2HostsHome + "" Nop +pushdef(`TERM_KOI8', `Exec LC_CTYPE=ru_RU.KOI8-R exec TERM -xrm "*Page: 1 1 1"')dnl +pushdef(`TERM_RU_UTF8', `Exec LC_CTYPE=ru_RU.UTF-8 exec TERM -name URxvt -xrm "*Page: 1 1 1"')dnl + 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_SCREEN(oper.med.ru, oper) -+ MENU_TERM_UTF8_BOTRT_SSH(oper.med.ru, oper) -+ MENU_TERM_KOI8_BIG_SSH(oper.med.ru, OPER) -+ "" Nop +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 1080 phdru.name, phdru SOCKS5) + MENU_TERM_UTF8_BOTLT_SSH(phdru.name, phdru) + MENU_TERM_KOI8_BIG_SSH(phdru.name, PHDRU) +popdef(`TERM_KOI8', `TERM_RU_UTF8')dnl AddToMenu FvwmCommands "Fvwm Commands" Title + "Restart" Restart @@ -852,8 +857,7 @@ AddToMenu Utilities "Choose one:" Title DestroyMenu Browsers AddToMenu Browsers "Choose one:" Title + "FireFox" FireFox -+ "Chromium" None ("*Chromium") Exec LC_CTYPE=ru_RU.KOI8-R exec cgmem_nice 2000 start-browser chromium -+ "Opera" None ("*Opera") Exec LC_CTYPE=ru_RU.KOI8-R exec cgmem_nice 2000 start-browser opera ++ "Chromium" Chromium # A wide variety of screenlocking options... #AddToMenu XlockMenu "Choose one:" Title @@ -870,6 +874,7 @@ AddToMenu Browsers "Choose one:" Title #+ "Blank" Exec exec xlock -mode blank AddToMenu XScreenSaverMenu "Choose mode:" Title ++ "Suspend Screen Now" Exec exec xscreensaver-command -suspend + "Blank Screen Now" Exec exec xscreensaver-command -activate + "Lock Screen Now" Exec exec xscreensaver-command -lock + "Screen Saver Demo" Exec exec xscreensaver-command -demo @@ -938,23 +943,26 @@ changequote([`], [']) #*FvwmButtons: (Swallow XClock 'Exec exec xclock -update 1 -geometry -3000-3000') # Buttons -pushdef(`TERM_KOI8', `Exec "TERM" LC_CTYPE=ru_RU.KOI8-R exec TERM') -pushdef(`TERM_RU_UTF8', `Exec "URxvt" LC_CTYPE=ru_RU.UTF-8 exec TERM -name URxvt') +pushdef(`TERM_KOI8', `Exec "TERM" LC_CTYPE=ru_RU.KOI8-R exec TERM')dnl +pushdef(`TERM_RU_UTF8', `Exec "URxvt" LC_CTYPE=ru_RU.UTF-8 exec TERM -name URxvt')dnl *FvwmButtons: (Title Term, Icon rterm2.xpm, Action TERM_KOI8) *FvwmButtons: (Title UTF-8, Icon rterm2.xpm, Action TERM_RU_UTF8) +popdef(`TERM_KOI8', `TERM_RU_UTF8')dnl +pushdef(`TERM_KOI8', `Exec "TERM" LC_CTYPE=ru_RU.KOI8-R exec TERM -xrm "*Page: 1 0 1"')dnl *FvwmButtons: (Title "phdru (k8,s)", Icon xterm-sgi.xpm, Action TERM_KOI8_SSH_SCREEN(phdru.name, phdru.name)) +popdef(`TERM_KOI8')dnl +pushdef(`TERM_KOI8', `Exec "TERM" LC_CTYPE=ru_RU.KOI8-R exec TERM -xrm "*Page: 1 1 1"')dnl *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') +popdef(`TERM_KOI8')dnl *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 -) *FvwmButtons: (Title "-1", Icon find1.xpm, Action Exec "gxmessage" "$HOME"/current/projects/xsetbg/print-filename.py 1 | text-wrap.py -w TEXT_WIDTH -s | gxmessage -buttons Ok -default Ok -fn 'MESSAGE_FONT' -file -) *FvwmButtons: (Title Next, Icon Jrecycle.xpm, Action Exec exec "$HOME"/current/projects/xsetbg/xsetbg-http-force) #*FvwmButtons: (Title pavucontrol, Icon mini.sound.xpm, Action Exec "Volume Control" exec cgmem_nice 200 pavucontrol) #*FvwmButtons: (Title Id3Info, Icon bell.xpm, Action Id3Info) -*FvwmButtons: (Title AudioPlayer, Icon bell.xpm, Action Exec "deadbeef" LC_CTYPE=ru_RU.KOI8-R exec cgmem_nice 400 deadbeef) +#*FvwmButtons: (Title Skype, Icon skypeforlinux.png, Action Exec "Skype" FvwmCommand "GotoDeskAndPage 0 0 1" && BROWSER=firefox exec cgmem_nice 2000 skypeforlinux) +*FvwmButtons: (Title AudioPlayer, Icon bell.xpm, Action Exec "deadbeef" LC_CTYPE=ru_RU.KOI8-R FvwmCommand "GotoDeskAndPage 0 1 1" && exec cgmem_nice 400 deadbeef) #*FvwmButtons: (Title XLock, Icon Jxlock.xpm, Action Exec exec xscreensaver-command -lock) -*FvwmButtons: (Title Skype, Icon skypeforlinux.png, Action Skype) ############################################################################ # FvwmForm