X-Git-Url: https://git.phdru.name/?a=blobdiff_plain;f=.fvwm%2Fphd.m4;h=02f2d7589e496c271909a7c73470e7af425f86d1;hb=3070026c574d8dd355096d978fcb84a767724833;hp=21b289a2316dd395b0445ed73ca58b7fdc17ec9b;hpb=a3670713d4c2e22f2e0e7bd319551ab454e45852;p=dotfiles.git diff --git a/.fvwm/phd.m4 b/.fvwm/phd.m4 index 21b289a..02f2d75 100644 --- a/.fvwm/phd.m4 +++ b/.fvwm/phd.m4 @@ -5,17 +5,13 @@ dnl The file is in m4 format, use FvwmM4 module to read it dnl like this: ModuleSynchronous FvwmM4 -lock .fvwm2rc - dnl This is to prevent FvwmM4 to shadow $HOME undefine(`HOME') - dnl Echo dimension -changecom(`/*', `*/') -# width = WIDTH -changecom(`#') - +`#' width = WIDTH +divert(-1) dnl koi8-r Fonts dnl define(`SMALL_FONT_KOI8', `-*-fixed-medium-r-normal-*-*-100-*-*-*-*-koi8-r') dnl define(`MEDIUM_FONT_KOI8', `-*-fixed-medium-r-normal-*-*-120-*-*-*-*-koi8-r') @@ -30,6 +26,7 @@ dnl define(`XBUFFY_FONT', `-cronyx-helvetica-bold-r-*-*-*-100-*-*-*-*-koi8-r') dnl TrueType Fonts +define(`VERY_SMALL_FONT', `xft:Sans:size=10') define(`SMALL_FONT', `xft:Sans:size=12') define(`MEDIUM_FONT', `xft:Sans:size=14') define(`BIG_FONT', `xft:Sans:size=16') @@ -37,36 +34,28 @@ define(`LARGE_FONT', `xft:Sans:size=18') define(`HUGE_FONT', `xft:Sans:size=20') dnl Bold TT fonts -define(`SMALL_BOLD_FONT', `SMALL_FONT:Bold') -define(`MEDIUM_BOLD_FONT', `MEDIUM_FONT:Bold') -define(`BIG_BOLD_FONT', `BIG_FONT:Bold') +define(`SMALL_BOLD_FONT', SMALL_FONT`:Bold') +define(`MEDIUM_BOLD_FONT', MEDIUM_FONT`:Bold') +define(`BIG_BOLD_FONT', BIG_FONT`:Bold') +define(`TITLE_FONT', MEDIUM_FONT) +define(`ICON_FONT', LARGE_FONT) dnl Font and geometry aliases that depend on whether the screen resolution is dnl 800x600, 1024x768 or 1920x1200 -define(`TITLE_FONT', `MEDIUM_FONT') - -define(`ICON_FONT', `LARGE_FONT') - - define(`PAGER_GEOM', -`ifelse(eval(WIDTH < 1024), 1, `365x100+0+0',dnl -`ifelse(eval(WIDTH < 1920), 1, `365x100+0+0', `600x160+0+0'dnl -)')'dnl -) - -define(`PAGER_FONT', -`ifelse(eval(WIDTH < 1920), 1, `SMALL_FONT', `BIG_FONT'dnl -)') +ifelse(eval(WIDTH < 1024), 1, `365x100+0+0', + eval(WIDTH < 1920), 1, `365x100+0+0', `600x160+0+0')) + +define(`SMALL_PAGER_FONT', ifelse(eval(WIDTH < 1920), 1, VERY_SMALL_FONT, SMALL_FONT)) +define(`PAGER_FONT', ifelse(eval(WIDTH < 1920), 1, SMALL_FONT, BIG_FONT)) define(`BUTTONS_FONT', PAGER_FONT) define(`MENU_FONT', -`ifelse(eval(WIDTH < 1024), 1, `xft:Helvetica:size=16',dnl -`ifelse(eval(WIDTH < 1920), 1, `xft:Helvetica:size=18', `xft:Helvetica:size=22'dnl -)')'dnl -) +ifelse(eval(WIDTH < 1024), 1, `xft:Helvetica:size=16', + eval(WIDTH < 1920), 1, `xft:Helvetica:size=18', `xft:Helvetica:size=22')) define(`IDENT_FONT', MENU_FONT) define(`WIN_LIST_FONT', MENU_FONT) define(`ICON_BOX_FONT', MENU_FONT) @@ -74,57 +63,76 @@ define(`ICON_BOX_FONT', MENU_FONT) dnl XSetBg message width and font define(`TEXT_WIDTH', -`ifelse(eval(WIDTH < 1024), 1, 70,dnl -`ifelse(eval(WIDTH < 1920), 1, 75, 80 dnl -)')'dnl -) +ifelse(eval(WIDTH < 1024), 1, 70, + eval(WIDTH < 1920), 1, 75, 80)) -define(`MESSAGE_FONT', `Nimbus Sans L 18')'dnl +define(`MESSAGE_FONT', `Nimbus Sans L 18') dnl Terminal emulator -define(`TERM', `urxvt') +define(`TERM_GEOM', +ifelse(eval(WIDTH < 1024), 1, `80x25', + eval(WIDTH < 1920), 1, `80x30', `80x32')) -define(`TERM_KOI8', `Exec LC_CTYPE=ru_RU.KOI8-R exec TERM') +define(`TERM_GEOM_BOTLT', TERM_GEOM`+0-0') +define(`TERM_GEOM_BOTRT', TERM_GEOM`-0-0') -define(`TERM_UTF8', `Exec exec "$HOME"/lib/X11/utf8rxvt') +define(`TERM_GEOM_BIG', +ifelse(eval(WIDTH < 1024), 1, `96x30', + eval(WIDTH < 1920), 1, `112x32', `126x35')) -define(`TERM_GEOM', -`ifelse(eval(WIDTH < 1024), 1, `80x25-0-0',dnl -`ifelse(eval(WIDTH < 1920), 1, `80x28-0-0', `80x30-0-0'dnl -)')'dnl -) -define(`TERM_GEOM_BIG', -`ifelse(eval(WIDTH < 1024), 1, `96x30-0-0',dnl -`ifelse(eval(WIDTH < 1920), 1, `112x32-0-0', `126x35-0-0'dnl -)')'dnl -) +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(`REMOTE_HOST_KOI8', -TERM_KOI8 -title "$2" -n "$2" -e ssh -4 "$1"dnl -) +TERM_KOI8 -title "$2" -n "$2" -e ssh -4 "$1") define(`REMOTE_HOST_KOI8_MENU', -"$2 (koi8)" REMOTE_HOST_KOI8($1, $2)dnl -) +"$2 (koi8)" REMOTE_HOST_KOI8($1, $2)) + +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") + +define(`REMOTE_HOST_KOI8_BOTLT_MENU', +"$2 (koi8,btlt)" REMOTE_HOST_KOI8_BOTLT($1, $2)) + +define(`REMOTE_HOST_KOI8_BOTRT_MENU', +"$2 (koi8,btrt)" REMOTE_HOST_KOI8_BOTRT($1, $2)) define(`REMOTE_HOST_UTF8', -TERM_UTF8 -e ssh -4 "$1"dnl -) +TERM_UTF8 -e ssh -4 "$1") define(`REMOTE_HOST_UTF8_MENU', -"$2 (utf8)" REMOTE_HOST_UTF8($1, $2)dnl -) +"$2 (utf8)" REMOTE_HOST_UTF8($1, $2)) + +define(`REMOTE_HOST_UTF8_BOTLT', +TERM_UTF8_BOTLT -e ssh -4 "$1") + +define(`REMOTE_HOST_UTF8_BOTRT', +TERM_UTF8_BOTRT -e ssh -4 "$1") + +define(`REMOTE_HOST_UTF8_BOTLT_MENU', +"$2 (utf8,btlt)" REMOTE_HOST_UTF8_BOTLT($1, $2)) + +define(`REMOTE_HOST_UTF8_BOTRT_MENU', +"$2 (utf8,btrt)" REMOTE_HOST_UTF8_BOTRT($1, $2)) define(`REMOTE_HOST_KOI8_BIG', -TERM_KOI8 -geometry TERM_GEOM_BIG -title "$2" -n "$2" -e ssh -4 "$1"dnl -) +TERM_KOI8 -geometry TERM_GEOM_BIG -title "$2" -n "$2" -e ssh -4 "$1") define(`REMOTE_HOST_KOI8_BIG_MENU', -"$2 (koi8)" REMOTE_HOST_KOI8_BIG($1, $2)dnl -) +"$2 (koi8)" REMOTE_HOST_KOI8_BIG($1, $2)) +divert ########################################################################## @@ -145,7 +153,7 @@ Style * Color Black/#60a0c0 # Set colors/font for pop-up menus # Syntax: MenuStyle forecolor backcolor shadecolor font style(fvwm/mwm) -MenuStyle * FVWM, Foreground Black, Background grey, Greyed SlateGrey, Font MENU_FONT fvwm +MenuStyle * FVWM, Foreground Black, Background grey, Greyed SlateGrey, Font MENU_FONT # Set fonts to use on title bar and icon label Style * Font TITLE_FONT @@ -187,7 +195,7 @@ Style * SloppyFocus ClickTime 250 # if the window occupies less than n% of the screen, draw it opaque -OpaqueMoveSize 5 +OpaqueMoveSize 100 # Do not flip pages on the edge of the screen, but allow to move windows EdgeScroll 0 0 @@ -458,8 +466,8 @@ AddToFunc "StartStandardSession" + I TERM_KOI8 + I Wait TERM + I GotoDeskAndPage 0 0 1 -+ I TERM_KOI8 -geometry 38x30+0-0 -+ I Wait TERM ++ I TERM_UTF8 -geometry 38x30+0-0 ++ I Wait URxvt + I GotoDeskAndPage 0 1 0 + I TERM_KOI8 -e su - + I Wait TERM @@ -467,6 +475,9 @@ AddToFunc "StartStandardSession" + I Wait "Volume Control" + I FireFox + I Wait "*Mozilla Firefox" ++ I GotoDeskAndPage 1 0 1 ++ I TERM_KOI8 ++ I Wait TERM + I GotoDeskAndPage 2 0 1 + I TERM_KOI8 -geometry TERM_GEOM_BIG + I Wait TERM @@ -477,7 +488,7 @@ AddToFunc "StartStandardSession" + I TERM_KOI8 -geometry 60x25-5-5 -iconic -name term-im-local + I Wait URxvt + I GotoDeskAndPage 1 1 0 -+ I Schedule 2000 GotoDeskAndPage 0 1 0 ++ I Schedule 1000 GotoDeskAndPage 0 1 0 ############################################################################ @@ -627,6 +638,8 @@ AddToMenu Window-Ops2 "Center" Center AddToMenu Terminals "Terminals" Title + "Grey term (koi8)" TERM_KOI8 + "Grey term (utf8)" TERM_UTF8 ++ "Grey term (koi8,btrt)" TERM_KOI8_BOTRT ++ "Grey term (utf8,btrt)" TERM_UTF8_BOTRT + "Big grey term (koi8)" TERM_KOI8 -geometry TERM_GEOM_BIG + "" Nop + "White/black term (koi8)" TERM_KOI8 -fg white -cr white -bg black @@ -793,26 +806,26 @@ AddToMenu XScreenSaverMenu "Choose mode:" Title + "Kill Screen Saver" Exec exec xscreensaver-command -exit AddToMenu XSetBgMenu "XSetBg" Title -+ "Change wallpaper" Exec exec "$HOME"/admin/prog/xsetbg/xsetbg-force -+ "Start" Exec exec "$HOME"/admin/prog/xsetbg/xsetbg-http-start -+ "Stop" Exec exec "$HOME"/admin/prog/xsetbg/xsetbg-http-stop -+ "Restart" Exec exec "$HOME"/admin/prog/xsetbg/xsetbg-http-restart ++ "Change wallpaper" Exec exec "$HOME"/current/projects/xsetbg/xsetbg-force ++ "Start" Exec exec "$HOME"/current/projects/xsetbg/xsetbg-http-start ++ "Stop" Exec exec "$HOME"/current/projects/xsetbg/xsetbg-http-stop ++ "Restart" Exec exec "$HOME"/current/projects/xsetbg/xsetbg-http-restart + "" Nop changequote([,]) -+ "Xli" Exec fn="`$HOME/lib/xsetbg/print-filename.py -e koi8-r`" && exec xli -title "`echo $fn | sed 's/ /_/g'`" "$fn" -+ "Xli (scaled)" Exec fn="`$HOME/lib/xsetbg/print-filename.py -e koi8-r`" && exec xli -title "`echo $fn | sed 's/ /_/g'`" -zoom auto "$fn" -+ "Open in browser" Exec exec webbrowserX -n "`$HOME/lib/xsetbg/print-filename.py -e koi8-r`" -+ "Filename" Exec exec "$HOME"/admin/prog/xsetbg/print-filename.py -e koi8-r -+ "XFilename" Exec "$HOME"/admin/prog/xsetbg/print-filename.py | text-wrap.py -n | gxmessage -buttons Ok -default Ok -fn 'MESSAGE_FONT' -file - -+ "XFilename (wrapped)" Exec "$HOME"/admin/prog/xsetbg/print-filename.py | text-wrap.py -w TEXT_WIDTH -s -n | gxmessage -buttons Ok -default Ok -fn 'MESSAGE_FONT' -file - ++ "Xli" Exec fn="`$HOME/current/projects/xsetbg/print-filename.py -e koi8-r`" && exec xli -title "`echo $fn | sed 's/ /_/g'`" "$fn" ++ "Xli (scaled)" Exec fn="`$HOME/current/projects/xsetbg/print-filename.py -e koi8-r`" && exec xli -title "`echo $fn | sed 's/ /_/g'`" -zoom auto "$fn" ++ "Open in browser" Exec exec webbrowserX -n "`$HOME/current/projects/xsetbg/print-filename.py -e koi8-r`" ++ "Filename" Exec exec "$HOME"/current/projects/xsetbg/print-filename.py -e koi8-r ++ "XFilename" Exec "$HOME"/current/projects/xsetbg/print-filename.py | text-wrap.py -n | gxmessage -buttons Ok -default Ok -fn 'MESSAGE_FONT' -file - ++ "XFilename (wrapped)" 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 - + "" Nop -+ "Xli (prev.)" Exec fn="`$HOME/lib/xsetbg/print-filename.py -e koi8-r -o`" && exec xli -title "`echo $fn | sed 's/ /_/g'`" "$fn" -+ "Xli (prev., scaled)" Exec fn="`$HOME/lib/xsetbg/print-filename.py -e koi8-r -o`" && exec xli -title "`echo $fn | sed 's/ /_/g'`" -zoom auto "$fn" -+ "Open in browser (prev.)" Exec exec webbrowserX -n "`$HOME/lib/xsetbg/print-filename.py -e koi8-r -o`" ++ "Xli (prev.)" Exec fn="`$HOME/current/projects/xsetbg/print-filename.py -e koi8-r -o`" && exec xli -title "`echo $fn | sed 's/ /_/g'`" "$fn" ++ "Xli (prev., scaled)" Exec fn="`$HOME/current/projects/xsetbg/print-filename.py -e koi8-r -o`" && exec xli -title "`echo $fn | sed 's/ /_/g'`" -zoom auto "$fn" ++ "Open in browser (prev.)" Exec exec webbrowserX -n "`$HOME/current/projects/xsetbg/print-filename.py -e koi8-r -o`" changequote([`], [']) -+ "Filename (prev.)" Exec exec "$HOME"/admin/prog/xsetbg/print-filename.py -e koi8-r -o -+ "XFilename (prev.)" Exec "$HOME"/admin/prog/xsetbg/print-filename.py -o | text-wrap.py -n | gxmessage -buttons Ok -default Ok -fn 'MESSAGE_FONT' -file - -+ "XFilename (prev., wrapped)" Exec "$HOME"/admin/prog/xsetbg/print-filename.py -o | text-wrap.py -w TEXT_WIDTH -s -n | gxmessage -buttons Ok -default Ok -fn 'MESSAGE_FONT' -file - ++ "Filename (prev.)" Exec exec "$HOME"/current/projects/xsetbg/print-filename.py -e koi8-r -o ++ "XFilename (prev.)" Exec "$HOME"/current/projects/xsetbg/print-filename.py -o | text-wrap.py -n | gxmessage -buttons Ok -default Ok -fn 'MESSAGE_FONT' -file - ++ "XFilename (prev., wrapped)" 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 - ############################################################################ # FvwmBacker @@ -820,7 +833,7 @@ changequote([`], [']) #*FvwmBacker: Command (Desk 0, Page * *) -solid DarkCyan #*FvwmBacker: Command (Desk 1, Page * *) -solid steelblue #*FvwmBacker: Command (Desk 2, Page * *) -solid midnightblue -*FvwmBacker: Command (Desk *, Page * *) Exec exec "$HOME"/admin/prog/xsetbg/xsetbg-http-change +*FvwmBacker: Command (Desk *, Page * *) Exec exec "$HOME"/current/projects/xsetbg/xsetbg-http-change ############################################################################ # FvwmButtons @@ -870,9 +883,9 @@ changequote([`], [']) *FvwmButtons: (Title UTF-8, Icon rterm2.xpm, Action TERM_UTF8) *FvwmButtons: (Title phdru, Icon xterm-sgi.xpm, Action Term-Phdru) -*FvwmButtons: (Title Wallpaper, Icon find1.xpm, Action Exec $HOME/lib/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/lib/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"/admin/prog/xsetbg/xsetbg-http-force) +*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 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 Id3Info, Icon bell.xpm, Action Id3Info) #*FvwmButtons: (Title Audacious, Icon bell.xpm, Action Audacious) @@ -1032,7 +1045,7 @@ changequote([`], [']) *FvwmPager: Label 0 System *FvwmPager: Label 1 Net *FvwmPager: Label 2 Work -*FvwmPager: SmallFont PAGER_FONT +*FvwmPager: SmallFont SMALL_PAGER_FONT *FvwmPager: Balloons All *FvwmPager: BalloonBack #efe3b5