define(`MENU_FONT',
-ifelse(eval(WIDTH < 1024), 1, `xft:Helvetica:size=16',
- eval(WIDTH < 1920), 1, `xft:Helvetica:size=18', `xft:Helvetica:size=22'))
+ifelse(eval(WIDTH < 1024), 1, `xft:Sans:size=16',
+ eval(WIDTH < 1920), 1, `xft:Sans:size=18', `xft:Sans:size=22'))
define(`IDENT_FONT', MENU_FONT)
define(`WIN_LIST_FONT', MENU_FONT)
define(`ICON_BOX_FONT', MENU_FONT)
define(`TERM_GEOM_BIG',
ifelse(eval(WIDTH < 1024), 1, `96x30',
- eval(WIDTH < 1920), 1, `112x32', `126x35'))
+ eval(WIDTH < 1920), 1, `112x32+2-0', `126x35'))
define(`TERM', `urxvt')
+ I TERM_KOI8 -e su -
+ I Wait TERM
+ I PaVuControl
-+ I Wait "Volume Control"
+ I Exec exec "$HOME"/current/projects/audio-cdr-video/audio/pa-mic-off
+ I FireFox
+ I GotoDeskAndPage 1 0 1
+ I GotoDeskAndPage 0 0 0
+ I TERM_KOI8
+ I Wait TERM
-+ I PaVuControl
-+ I Wait "Volume Control"
++ I None ("Volume Control") PaVuControl
+ 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 Exec exec xdpr -id $w
DestroyFunc Raise-All
-AddToFunc Raise-All I All (!"FvwmButtons|System|*clock") Raise
+AddToFunc Raise-All I All (!"FvwmButtons|System|Net|Work|*clock") Raise
##############################################################################
# User-defined functions
DestroyFunc PaVuControl
AddToFunc PaVuControl I GotoDeskAndPage 0 1 1
+ I Exec exec pavucontrol
++ I Wait "Volume Control"
changequote([,])
DestroyFunc Id3Info
AddToMenu Terminals "Terminals" Title
+ "Grey term (koi8)" TERM_KOI8
+ "Grey term (utf8)" TERM_UTF8
++ "Grey term (koi8,btlt)" TERM_KOI8_BOTLT
+ "Grey term (koi8,btrt)" TERM_KOI8_BOTRT
++ "Grey term (utf8,btlt)" TERM_UTF8_BOTLT
+ "Grey term (utf8,btrt)" TERM_UTF8_BOTRT
+ "Big grey term (koi8)" TERM_KOI8 -geometry TERM_GEOM_BIG
+ "" Nop
# This menu will fire up some often used programs
DestroyMenu Utilities
AddToMenu Utilities "Choose one:" Title
++ "qPDFview" Exec exec qpdfview
+ "FBReader" Exec exec fbreader
++ "" Nop
+ "GVim (koi8)" Exec LC_CTYPE=ru_RU.KOI8-R exec gvim
+ "GVim (utf8)" Exec LC_CTYPE=ru_RU.UTF-8 exec gvim
++ "" Nop
+ "MyRuLb (koi8)" Exec LC_CTYPE=ru_RU.KOI8-R exec "$HOME"/admin/prog/myrulib/myrulib
+ "MyRuLb (utf8)" Exec LC_CTYPE=ru_RU.UTF-8 exec "$HOME"/admin/prog/myrulib/myrulib
++ "" Nop
#+ "XFortune" Exec /usr/games/fortune | gxmessage -buttons Ok -default Ok -fn 'MESSAGE_FONT' -file -
#+ "xbuffy" Exec exec xbuffy -fn 'XBUFFY_FONT' -geometry +0+125 -boxfile mail/misc/.xbuffyrc
+ "" Nop
+ "pavucontrol" PaVuControl
+ "DeadBeef" DeadBeef
+ "Id3Info" Id3Info
++ "" Nop
+ "Gajim" Gajim
+ "Pidgin" Pidgin
+ "" Nop
+ "Refresh Screen" Refresh
+ "xrefresh" Exec exec xrefresh
+ "" Nop
-+ "xcalc" Exec exec xcalc
+#+ "xcalc" Exec exec xcalc
+ "xclipboard" Exec exec xclipboard
+ "xcutsel" Exec exec xcutsel
#+ "xman" Exec exec xman -notopbox -geometry +150+102