Confirm before proceeding with screencast area selection
[khome.git] / home / bin / wallpaper_review
CommitLineData
2953aaf3 1#! /bin/bash
31df3021 2
55b6848c
SK
3### XXX Chose not to 'set -e' because arithmetic evaluation can cause a non-zero exit.
4### XXX Chose not to 'set -u' because unset params ($1, $2, ...) cause failures.
5### Solutions to the above are ugly.
6
2953aaf3
SK
7declare -a paths
8declare -i n=0
31df3021 9
5b897004
SK
10declare _command
11declare -i _goto=0
12
13read_command_goto() {
14 local buf
15
16 printf ':' >&2
17 read -r buf
18 printf '\n' >&2
19 if [[ "$buf" =~ ^[0-9]+$ ]]; then
20 if [[ "$buf" -gt 0 && "$buf" -le "$n" ]]; then
21 (( buf-- ))
22 _goto="$buf"
23 _command='CMD_GOTO'
24 else
25 printf 'Error: out of range: %s\n' "$buf" >&2
26 _command='CMD_UKNOWN'
27 fi
28 else
29 printf 'Error: not an integer: %s\n' "$buf" >&2
30 _command='CMD_UKNOWN'
31 fi
32}
33
2953aaf3
SK
34read_command() {
35 local char
36
37 read -rsn 1 char
38 case "$char" in
5b897004
SK
39 q | Q) _command='CMD_QUIT';;
40 h | H) _command='CMD_MOVE_BACK';;
41 l | L) _command='CMD_MOVE_FORWARD';;
42 f | F) _command='CMD_FAVORITE_ADD';;
43 r | R) _command='CMD_FAVORITE_REMOVE';;
44 s | S) _command='CMD_SET_CURRENT';;
8c5e077f 45 z | Z) _command='CMD_FZF';;
5b897004
SK
46 :) read_command_goto;;
47 *)
48 printf 'Error: unknown command: %s\n' "$char" >&2
49 _command='CMD_UKNOWN';;
2953aaf3
SK
50 esac
51}
52
cdc33eec 53paths_set() {
2953aaf3
SK
54 local path
55
cdc33eec 56 while read -r path
2953aaf3
SK
57 do
58 if file "$path" | grep 'image data' > /dev/null
59 then
60 (( n++ ))
61 # \r jumps to the beginning of the line:
62 printf '\rFound %d images.' "$n" >&2
55b6848c 63 paths["$(( n - 1 ))"]="$path"
2953aaf3
SK
64 fi
65 done
2953aaf3
SK
66 printf '\n' >&2
67}
68
cdc33eec
SK
69paths_set_from_dir_find() {
70 paths_set < <(find "$1" -type f)
71}
72
73paths_set_from_favs() {
74 paths_set < <(sort -k 2 "$FILE_WALLPAPER_FAVS" | awk '{sub("^" $1 " +", ""); print}')
75}
76
55b6848c
SK
77set_wallpaper() {
78 local -ri i="$1"
79 local -r path="$2"
80
81 printf '%d of %d %s\n' "$(( i + 1 ))" "$n" "$path"
82 feh --bg-scale "$path"
83}
84
2953aaf3 85paths_preview() {
55b6848c
SK
86 local -i i=0
87 local path="${paths[$i]}"
2953aaf3 88
55b6848c 89 set_wallpaper "$i" "$path"
2953aaf3 90
55b6848c
SK
91 while :
92 do
93 if [[ "${paths[$i]}" != "$path" ]]
94 then
95 path="${paths[$i]}"
96 set_wallpaper "$i" "$path"
97 fi
2953aaf3 98
5b897004
SK
99 read_command
100 case "$_command" in
2953aaf3 101 CMD_QUIT)
b3a26007 102 feh --bg-scale "$(< "$FILE_WALLPAPER_CURR")"
2953aaf3 103 exit 0;;
5b897004
SK
104 CMD_GOTO)
105 i="$_goto";;
2953aaf3 106 CMD_MOVE_BACK)
55b6848c 107 (( i = i == 0 ? (n - 1) : i - 1));;
2953aaf3 108 CMD_MOVE_FORWARD)
55b6848c 109 (( i = (i + 1) % n ));;
0e76831b
SK
110 CMD_FAVORITE_ADD)
111 printf 'Adding to favorites set: "%s"\n' "$path" >&2
fdc87852 112 wallpaper_fav "$path";;
0e76831b
SK
113 CMD_FAVORITE_REMOVE)
114 printf 'Removing from favorites set: "%s"\n' "$path" >&2
115 digest=$(sha256sum "$path" | awk '{print $1}')
116 grep -v "$digest" "$FILE_WALLPAPER_FAVS" \
117 | sort -u \
118 | sponge "$FILE_WALLPAPER_FAVS"
119 ;;
ddd3f251
SK
120 CMD_SET_CURRENT)
121 printf 'Setting as current: "%s"\n' "$path" >&2
122 echo "$path" > "$FILE_WALLPAPER_CURR";;
8c5e077f
SK
123 CMD_FZF)
124 i=$(
125 for j in "${!paths[@]}"; do
126 printf '%d %s\n' "$((j + 1))" "${paths[j]}"
127 done \
128 | fzf -e \
129 | awk '{print $1 - 1}'
130 );;
2953aaf3 131 CMD_UKNOWN)
55b6848c 132 continue;;
2953aaf3
SK
133 esac
134 done
135}
136
e2dd436b
SK
137help_print() {
138 cat <<EOF >&2
139
140Navigation help:
141
142key | action
143----+----------------------------------------------
144 q | quit
145 h | move back
146 l | move forward
147 f | add to favorites
148 r | remove from favorites
149 s | set current
150 z | fuzzy search for next file path
151 :N | goto Nth image
152----+----------------------------------------------
153
154EOF
155}
156
24fe7249
SK
157usage() {
158 cat <<EOF >&2
159
160$(basename "$0") [cmd]
161
162cmd | args | meaning
163----+-------+------------------------------------------------
164 f | | favorites
165 d | <dir> | from given dir
166 a | | all from $DIR_WALLPAPERS <- DEFAULT if no cmd.
167 h | | usage help. i.e. this message.
168----+-------+------------------------------------------------
169
170EOF
171}
172
2953aaf3 173main() {
2953aaf3 174 case "$1" in
cdc33eec
SK
175 f | fav) paths_set_from_favs;;
176 d | dir) paths_set_from_dir_find "$2";;
177 a | all) paths_set_from_dir_find "$DIR_WALLPAPERS";;
24fe7249
SK
178 h | -h | help | -help | --help)
179 usage;
180 exit 1;;
cdc33eec
SK
181 '')
182 paths_set_from_dir_find "$DIR_WALLPAPERS";;
183 *)
184 printf 'Error: unknown source "%s"\n' "$1" >&2
185 exit 1;;
2953aaf3 186 esac
e2dd436b 187 help_print
2953aaf3
SK
188 paths_preview
189}
190
191main "$@"
This page took 0.077073 seconds and 4 git commands to generate.