X-Git-Url: https://git.phdru.name/?a=blobdiff_plain;f=.fvwm%2Fphd.m4;h=e65ec35e1350d856ce8c2c41ad9bc9f2154ed724;hb=e7a01d353ac575fbedb6bb99f7fac5037cf0232f;hp=cd997b1c9e00d205114aaac67a371096422e495c;hpb=d2565935503351d88fc187e09eddb7bf1b07e88d;p=dotfiles.git diff --git a/.fvwm/phd.m4 b/.fvwm/phd.m4 index cd997b1..e65ec35 100644 --- a/.fvwm/phd.m4 +++ b/.fvwm/phd.m4 @@ -85,14 +85,14 @@ ifelse(eval(WIDTH < 1024), 1, `96x30', define(`TERM', `urxvt') define(`TERM_KOI8', `Exec LC_CTYPE=ru_RU.KOI8-R exec TERM') define(`TERM_UTF8', `Exec exec "$HOME"/lib/X11/utf8rxvt') -define(`TERM_KOI8_BOTLT', `Exec LC_CTYPE=ru_RU.KOI8-R exec TERM -geometry TERM_GEOM_BOTLT') -define(`TERM_UTF8_BOTLT', `Exec exec "$HOME"/lib/X11/utf8rxvt -geometry TERM_GEOM_BOTLT') -define(`TERM_KOI8_BOTRT', `Exec LC_CTYPE=ru_RU.KOI8-R exec TERM -geometry TERM_GEOM_BOTRT') -define(`TERM_UTF8_BOTRT', `Exec exec "$HOME"/lib/X11/utf8rxvt -geometry TERM_GEOM_BOTRT') +define(`TERM_KOI8_BOTLT', `TERM_KOI8 -geometry TERM_GEOM_BOTLT') +define(`TERM_UTF8_BOTLT', `TERM_UTF8 -geometry TERM_GEOM_BOTLT') +define(`TERM_KOI8_BOTRT', `TERM_KOI8 -geometry TERM_GEOM_BOTRT') +define(`TERM_UTF8_BOTRT', `TERM_UTF8 -geometry TERM_GEOM_BOTRT') define(`REMOTE_HOST_KOI8', -TERM_KOI8 -title "$2" -n "$2" -e ssh -4 "$1") +`TERM_KOI8 -title "$2" -n "$2" -e ssh -4 "$1"') define(`REMOTE_HOST_KOI8_MENU', "$2 (koi8)" REMOTE_HOST_KOI8($1, $2)) @@ -101,7 +101,7 @@ define(`REMOTE_HOST_KOI8_BOTLT', TERM_KOI8_BOTLT -title "$2" -n "$2" -e ssh -4 "$1") define(`REMOTE_HOST_KOI8_BOTRT', -TERM_KOI8_BOTRT -title "$2" -n "$2" -e ssh -4 "$1") +`TERM_KOI8_BOTRT -title "$2" -n "$2" -e ssh -4 "$1"') define(`REMOTE_HOST_KOI8_BOTLT_MENU', "$2 (koi8,btlt)" REMOTE_HOST_KOI8_BOTLT($1, $2)) @@ -445,19 +445,30 @@ Key 8 A CM GotoPage 1 1 ############################################################################# # START-UP Functions # +DestroyFunc InitFunction AddToFunc InitFunction + I Module FvwmBacker + I Module FvwmButtons + I Module FvwmCommandS + I Module FvwmPager 0 2 +DestroyFunc RestartFunction AddToFunc RestartFunction + I Module FvwmBacker + I Module FvwmButtons + I Module FvwmCommandS + I Module FvwmPager 0 2 -+ I Next [!iconic CurrentScreen xterm] Focus ++ I Schedule 1000 Raise-All +DestroyFunc UrgencyFunc +AddToFunc UrgencyFunc ++ I Iconify off ++ I ThisWindow ("*Downloads") Break ++ I FlipFocus ++ I Raise ++ I WarpToWindow 5p 5p + +DestroyFunc StartStandardSession AddToFunc StartStandardSession + I GotoDeskAndPage 0 0 0 + I TERM_KOI8 @@ -470,8 +481,8 @@ AddToFunc StartStandardSession + I Wait TERM + I PaVuControl + I Wait "Volume Control" -+ I FireFox -+ I Wait "*Mozilla Firefox" ++ I Exec exec "$HOME"/current/projects/audio-cdr-video/audio/pa-mic-off ++ I FireFox-Wait + I GotoDeskAndPage 1 0 1 + I TERM_KOI8 + I Wait TERM @@ -487,6 +498,18 @@ AddToFunc StartStandardSession + I GotoDeskAndPage 1 1 0 + I Schedule 1000 GotoDeskAndPage 0 1 0 +DestroyFunc ResumeFunction +AddToFunc ResumeFunction ++ I GotoDeskAndPage 0 0 0 ++ I TERM_KOI8 ++ I Wait TERM ++ I PaVuControl ++ I Wait "Volume Control" ++ I Exec sleep 10; exec "$HOME"/current/projects/audio-cdr-video/audio/pa-mic-off ++ I Exec "$HOME"/current/projects/xsetbg/print-filename.py | text-wrap.py -w TEXT_WIDTH -s -n | gxmessage -buttons Ok -default Ok -fn 'MESSAGE_FONT' -file - ++ I Wait gxmessage ++ I None ("*Mozilla Firefox") FireFox-Wait ++ I GotoDeskAndPage 0 1 0 ############################################################################ # COMPLEX FUNCTIONS @@ -495,47 +518,61 @@ DestroyFunc Center AddToFunc Center I Move 50-50w 50-50w + I WarpToWindow 74p 18p +DestroyFunc Iconify-and-Raise AddToFunc Iconify-and-Raise I Iconify + I Raise +DestroyFunc Maximize-Func AddToFunc Maximize-Func C Maximize toggle + D Maximize 100 100 +DestroyFunc Move-or-Iconify AddToFunc Move-or-Iconify I Raise + M Move + D Iconify +DestroyFunc Move-or-Raise AddToFunc Move-or-Raise I Raise + M Move + D Lower +DestroyFunc Move-or-Raise2 AddToFunc Move-or-Raise2 M Raise + M Move + D Lower +DestroyFunc Resize-or-Raise AddToFunc Resize-or-Raise I Raise + M Resize + D Lower +DestroyFunc Resize-or-Raise2 AddToFunc Resize-or-Raise2 M Raise + M Resize + D Lower +DestroyFunc Shadify AddToFunc Shadify D WindowShade + M Move + C RaiseLower +DestroyFunc warp-or-run AddToFunc warp-or-run I Next [$0 CirculateHit] Iconify -1 + I Next [$0 CirculateHit] Focus + I None [$0] $1 +DestroyFunc MailFunction AddToFunc MailFunction I Next [$0] Iconify -1 + I Next [$0] focus + I None [$0] Exec exec $0 $1 +DestroyFunc PrintFunction AddToFunc PrintFunction I Raise + I Exec exec xdpr -id $w +DestroyFunc Raise-All +AddToFunc Raise-All I All (!"FvwmButtons|System|*clock") Raise + ############################################################################## # User-defined functions # @@ -549,18 +586,10 @@ DestroyFunc Id3Info AddToFunc Id3Info I Exec "$HOME"/lib/audio/mp3/id3info.py "`deadbeef --nowplaying '%F'`" | text-wrap.py -n | gxmessage -buttons Ok -default Ok -fn 'MESSAGE_FONT' -file - changequote([`], [']) -#DestroyFunc Audacious -#AddToFunc Audacious I GotoDeskAndPage 0 1 1 -#+ I Exec LC_CTYPE=ru_RU.UTF-8 exec audacious - DestroyFunc DeadBeef AddToFunc DeadBeef I GotoDeskAndPage 0 1 1 + I Exec exec deadbeef -DestroyFunc SMPlayer -AddToFunc SMPlayer I GotoDeskAndPage 0 1 1 -+ I Exec exec smplay -no-close-at-end - DestroyFunc Term-Phdru AddToFunc Term-Phdru I GotoDeskAndPage 1 0 1 + I REMOTE_HOST_KOI8(phdru.name, phdru.name) @@ -570,9 +599,15 @@ AddToFunc Term-Phdru-Big I GotoDeskAndPage 1 0 1 + I REMOTE_HOST_KOI8_BIG(phdru.name, phdru.name) DestroyFunc FireFox -AddToFunc FireFox I GotoDeskAndPage 1 0 0 +AddToFunc FireFox I Any ("*Mozilla Firefox") Break ++ I GotoDeskAndPage 1 0 0 + I Exec LC_CTYPE=ru_RU.KOI8-R exec start-browser firefox +DestroyFunc FireFox-Wait +AddToFunc FireFox-Wait I Any ("*Mozilla Firefox") Break ++ I FireFox ++ I Wait "*Mozilla Firefox" + DestroyFunc Gajim AddToFunc Gajim I GotoDeskAndPage 1 1 0 + I Exec exec gajim @@ -581,17 +616,6 @@ DestroyFunc Pidgin AddToFunc Pidgin I GotoDeskAndPage 1 1 0 + I Exec exec pidgin -DestroyFunc Raise-All -AddToFunc Raise-All I All (!"FvwmButtons|System|*clock") Raise - -DestroyFunc UrgencyFunc -AddToFunc UrgencyFunc -+ I Iconify off -+ I ThisWindow ("*Downloads") Break -+ I FlipFocus -+ I Raise -+ I WarpToWindow 5p 5p - ############################################################################## # MENU Setup # @@ -753,7 +777,6 @@ AddToMenu Utilities "Choose one:" Title #+ "xbuffy" Exec exec xbuffy -fn 'XBUFFY_FONT' -geometry +0+125 -boxfile mail/misc/.xbuffyrc + "" Nop + "pavucontrol" PaVuControl -#+ "audacious" Audacious + "DeadBeef" DeadBeef + "Id3Info" Id3Info + "Gajim" Gajim @@ -775,8 +798,8 @@ AddToMenu Utilities "Choose one:" Title DestroyMenu Browsers AddToMenu Browsers "Choose one:" Title + "FireFox" FireFox -+ "Chromium" Exec LC_CTYPE=ru_RU.KOI8-R exec start-browser chromium -+ "Opera" Exec LC_CTYPE=ru_RU.KOI8-R exec start-browser opera ++ "Chromium" None ("*Chromium") Exec LC_CTYPE=ru_RU.KOI8-R exec start-browser chromium ++ "Opera" None ("*Opera") Exec LC_CTYPE=ru_RU.KOI8-R exec start-browser opera # A wide variety of screenlocking options... #AddToMenu XlockMenu "Choose one:" Title @@ -840,8 +863,7 @@ changequote([`], [']) *FvwmButtons: Back rgb:90/80/90 # Font -*FvwmButtonsFont BUTTONS_FONT -*FvwmButtons: Font BUTTONS_FONT +*FvwmButtons: Font BUTTONS_FONT # Geometry-- really likes to pick its own size, but giving a position is OK *FvwmButtons: Geometry -1+1 @@ -859,33 +881,22 @@ changequote([`], [']) #*FvwmButtons: Kill skull.xpm Destroy #*FvwmButtons: Quit nuke.xpm Popup "Quit-Verify" -#*FvwmButtons: (de)Iconify eyenew.xpm Iconify -#*FvwmButtons: Restart eye2.xpm Restart -#*FvwmButtons: Xcalc rcalc.xpm Exec "Calculator" exec xcalc -#*FvwmButtons: junk 3dx.xpm Swallow "xload" xload -bg \#908090 -#*FvwmButtons: xmter x.xpm Swallow "xmter" xmter -#*FvwmButtons: "" clock.xpm Swallow "xclock" xclock -bg \#908090 -padding 0 -#*FvwmButtons: "" 3dx.xpm Swallow "Time 3D" t3d -fg \#908090 -mag .3 -wobber 0 - #*FvwmButtons: (Swallow XClock 'Exec exec xclock -update 1 -geometry -3000-3000') -#*FvwmButtons: news page.xpm TERM_KOI8 -title "Tin" -fn 10x20 -fg white -cr white -bg black -e tin -#*FvwmButtons: Minicom mini-connect.xpm TERM_KOI8 -title "Minicom" -fg white -cr white -bg black -e minicom -#*FvwmButtons: Real bell.xpm Exec cd /opt/audio && exec realplay -#*FvwmButtons: Kill rbomb.xpm Destroy # Buttons +pushdef(`TERM_KOI8', `Exec "TERM" LC_CTYPE=ru_RU.KOI8-R exec TERM') +pushdef(`TERM_UTF8', `Exec "URxvt" exec "$HOME"/lib/X11/utf8rxvt') *FvwmButtons: (Title Term, Icon rterm2.xpm, Action TERM_KOI8) *FvwmButtons: (Title UTF-8, Icon rterm2.xpm, Action TERM_UTF8) -*FvwmButtons: (Title phdru, Icon xterm-sgi.xpm, Action Term-Phdru) +*FvwmButtons: (Title phdru, Icon xterm-sgi.xpm, Action REMOTE_HOST_KOI8(phdru.name, phdru.name)) +popdef(`TERM_KOI8', `TERM_UTF8') -*FvwmButtons: (Title Wallpaper, Icon find1.xpm, Action Exec $HOME/current/projects/xsetbg/print-filename.py | text-wrap.py -w TEXT_WIDTH -s -n | gxmessage -buttons Ok -default Ok -fn 'MESSAGE_FONT' -file -) -*FvwmButtons: (Title "-1", Icon find1.xpm, Action Exec $HOME/current/projects/xsetbg/print-filename.py -o | text-wrap.py -w TEXT_WIDTH -s -n | gxmessage -buttons Ok -default Ok -fn 'MESSAGE_FONT' -file -) +*FvwmButtons: (Title Wallpaper, Icon find1.xpm, Action Exec "gxmessage" "$HOME"/current/projects/xsetbg/print-filename.py | text-wrap.py -w TEXT_WIDTH -s -n | 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 -o | text-wrap.py -w TEXT_WIDTH -s -n | 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 PaVuControl) +*FvwmButtons: (Title pavucontrol, Icon mini.sound.xpm, Action Exec "Volume Control" exec pavucontrol) #*FvwmButtons: (Title Id3Info, Icon bell.xpm, Action Id3Info) -#*FvwmButtons: (Title Audacious, Icon bell.xpm, Action Audacious) -*FvwmButtons: (Title DeadBeef, Icon bell.xpm, Action DeadBeef) -#*FvwmButtons: (Title SMPlayer, Icon bell.xpm, Action SMPlayer) +*FvwmButtons: (Title DeadBeef, Icon bell.xpm, Action Exec "DeaDBeeF-*" exec deadbeef) #*FvwmButtons: (Title XLock, Icon Jxlock.xpm, Action Exec exec xscreensaver-command -lock) ############################################################################