1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
#!/bin/bash
# set ramdom wallpapers from the ones in $FVWM_USERDIR/wallpapers/*
# it follow the symlinks; but all the pictures must be in child directories
# USAGE:
# 'Exec exec random-wallpaper' will set a randdom wallpaper and exit
# 'Exec exec random-wallpaper loop <delay>' will loop and set wallpaper at <delay> in secondes interval
# PID to kill if fvwm is interrupted
TMPFILE="/tmp/crystal_wallpaper_$$"
# POSIX
let() {
IFS=, command eval test '$(($*))' -ne 0
}
cleanup() {
rm -f "${TMPFILE}"
FvwmCommand 'UnsetEnv LOOPWP'
FvwmCommand "LoadPreferences LastChoosenWallpaper"
exit 0
}
trap cleanup INT QUIT TERM
# set random wallpaper
set_uniquewp() {
WPS=""
n=0
for i in ${FVWM_USERDIR}/wallpapers/*/; do
WPS[${n}]="$i"
let n++;
done
((N_ELEMENTS=${#WPS[@]}, MAX_INDEX=N_ELEMENTS - 1))
CMD="fvwm-crystal.wallpaper "
for ((i=0; i <= MAX_INDEX; i++)); do
CMD="${CMD} \"${WPS[$i]}\""
done
echo "$CMD" > ${TMPFILE}
WPS=\'$(sh ${TMPFILE})\'
# helpful text, when no picture is found
if [ "${WPS}" = "''" ]; then
FvwmCommand 'Include components/functions/AutoWallpaper-Error'
cleanup
fi
FvwmCommand "SavePreferences LastChoosenWallpaper \"Wallpaper-Set ${WPS}\""
# echo $WPS
sleep 1
FvwmCommand 'LoadPreferences LastChoosenWallpaper'
}
# loop random wallpaper
set_loopwp() {
touch "${TMPFILE}"
while :; do
set_uniquewp
sleep $1
# fvwm is started with exec, be sure it is running
pidof fvwm 1>/dev/null || cleanup
done
}
# main program
SCRIPTID="$$"
if [ "$1" = "loop" ]; then
LOOPDELAY="$(($2 - 1))"
if [ "${LOOPWP}" = "" ]; then
FvwmCommand "SetEnv LOOPWP ${SCRIPTID}"
set_loopwp "${LOOPDELAY}"
else kill "${LOOPWP}" 2>/dev/null
sleep 1
FvwmCommand "SetEnv LOOPWP ${SCRIPTID}"
set_loopwp $2
fi
else
set_uniquewp
rm -f "${TMPFILE}"
fi
|
