☎ EEXPRESS

#!/usr/bin/perl

$wpdir="$ENV{HOME}/媒体/●壁纸/1280x800及以上/";
$wpconf="$ENV{HOME}/.desktop-pic-roll.rc";
$cur=`cat $wpconf`;chomp $cur;print "当前：$cur\n";
$num=-1;
chdir $wpdir;@jpg=glob "*.jpg";
for (0 .. $#jpg){
if($jpg[$_]=~/^$cur$/){
if($ARGV[0]){ #逆向
$num=$_-1;if($num<0){$num=$#jpg;}
}
else{
$num=$_+1;if($num>$#jpg){$num=0;}
}
last;
}
}
if($num<0){$num=0;}
print "新选：==$num==$jpg[$num]==\n";
`echo $jpg[$num]>$wpconf`;
`habak \'$wpdir$jpg[$num]\'`;

Mouse 4 R A Exec exec ~/应用/脚本/roll-wallpaper.pl
Mouse 5 R A Exec exec ~/应用/脚本/roll-wallpaper.pl 1

37k 放到论坛ftp了。


Key z A 4 All (xterm) shadex
DestroyFunc shadex
AddToFunc shadex
+ I ThisWindow PipeRead '[ $[w.y] -ge 30 ] && echo WindowShade S || echo WindowShade N'
或者
+ I ThisWindow PipeRead 'bash -c "(( $[w.y] > 30 )) &&; echo WindowShade S || echo WindowShade N"'

就是不能在Key绑定的时候，PipeRead而已。想清楚了，才觉得简单了。

☎ g “Move\ .” f.action
Key Up A 4 Move w 0
Key Down A 4 Move w -0
Key Left A 4 Move 0 w
Key Right A 4 Move -0 w
虽然xterm的启动脚本带了随机对齐4个屏幕角，但随机启动的xterm，总是有重叠的情况。干脆加4热键，什么窗口也不限制。

老忘记热键。
screen shot

Click：红笔
Shift+Click：蓝笔
Ctrl+Click：黄笔
Alt+Click：粉红笔
鼠标中键Click – 把涂上的部份转成浅绿色
鼠标右键 – 中橡皮擦
Shift+鼠标右键 – 大橡皮擦

Mouse 4 8 A Exec exec bash -c “mpc prev”
Mouse 5 8 A Exec exec bash -c “mpc next”

~/.config/rox.sourceforge.net/SendTo/.image_png ☎ cat 设置壁纸
fvwm-root -r "$*"
echo "$*">~/.fvwm/desktop-pic.rc

~/.fvwm ☎ grep desktop-pic.rc config
Exec fvwm-root -r `cat ~/.fvwm/desktop-pic.rc`

########################
# 切换卷帘
SetEnv shade True
DestroyFunc toggle-shade
AddToFunc toggle-shade
+ I Next (gnome-terminal) WindowShade $[shade]
+ I Next (gkrellm) WindowShade $[shade]
+ I Test (EnvMatch shade True)
+ I TestRc (Match) SetEnv shade False
+ I TestRc (NoMatch) SetEnv shade True