X-Git-Url: https://git.phdru.name/?a=blobdiff_plain;ds=inline;f=.fvwm%2Fphd.m4;h=7db1cae3aa388d040bd058cc69c5c056f60d49e9;hb=65c0dcfaadf52243f1440d4d5ecf8f0c42b1e9a5;hp=02f2d7589e496c271909a7c73470e7af425f86d1;hpb=3070026c574d8dd355096d978fcb84a767724833;p=dotfiles.git diff --git a/.fvwm/phd.m4 b/.fvwm/phd.m4 index 02f2d75..7db1cae 100644 --- a/.fvwm/phd.m4 +++ b/.fvwm/phd.m4 @@ -134,7 +134,6 @@ define(`REMOTE_HOST_KOI8_BIG_MENU', "$2 (koi8)" REMOTE_HOST_KOI8_BIG($1, $2)) divert - ########################################################################## # PATH Setup # @@ -221,7 +220,6 @@ DesktopSize 2 2 # Style * PositionPlacement Center - ############################################################################ # STYLE Flag Setup # @@ -364,7 +362,6 @@ ButtonStyle 3 12 10x23@0 90x23@0 90x28@0 10x28@1 10x47@1 90x47@0 90x52@0 10x52@1 # the number "2" #ButtonStyle 8 12 80x80@0 22x80@0 80x40@0 70x25@0 30x25@0 20x35@0 20x30@1 30x20@1 70x20@1 80x30@1 20x75@1 80x75@1 - ############################################################################ # MOUSE Setup # @@ -448,20 +445,31 @@ Key 8 A CM GotoPage 1 1 ############################################################################# # START-UP Functions # -AddToFunc "InitFunction" +DestroyFunc InitFunction +AddToFunc InitFunction + I Module FvwmBacker + I Module FvwmButtons + I Module FvwmCommandS + I Module FvwmPager 0 2 -AddToFunc "RestartFunction" +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 -AddToFunc "StartStandardSession" +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 + I Wait TERM @@ -473,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 @@ -490,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 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 @@ -498,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 # @@ -573,9 +607,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 @@ -584,17 +624,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 # @@ -617,7 +646,7 @@ AddToMenu Window-Ops "Window Ops" Title + "Refresh Screen" Refresh # A trimmed down version of "Window Ops", good for binding to decorations -DestroyMenu "Window-Ops2" +DestroyMenu Window-Ops2 AddToMenu Window-Ops2 "Center" Center + "Move" Move-or-Raise + "Iconify" Iconify @@ -778,8 +807,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 @@ -857,7 +886,6 @@ changequote([`], [']) # Background #*FvwmButtons: Pixmap fvwm.xpm - # Define the buttons to use..... #*FvwmButtons: Move arrows2.xpm Move #*FvwmButtons: Kill skull.xpm Destroy @@ -877,7 +905,6 @@ changequote([`], [']) #*FvwmButtons: Real bell.xpm Exec cd /opt/audio && exec realplay #*FvwmButtons: Kill rbomb.xpm Destroy - # Buttons *FvwmButtons: (Title Term, Icon rterm2.xpm, Action TERM_KOI8) *FvwmButtons: (Title UTF-8, Icon rterm2.xpm, Action TERM_UTF8)