blob: 59971a0b744e7a7e24dfb0babecf3e6196854826 (
plain) (
blame)
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
|
#! /usr/bin/env dash
# shellcheck source=/dev/null
SHELL_LIBRARY_VERSION="1.1.3" . %SHELL_LIBRARY_PATH
files=$(mktmp);
echo "$fx" > $files;
awk_source=$(mktmp);
cat << OFT > $awk_source
BEGIN {FS=" "}
{for (i=1; i != NF + 1; i++)
if (i == NF) {
parts[i]=tolower(\$i);
} else {
parts[i]=tolower(\$i"_");
}
}
END {for (i in parts) printf parts[i]}
OFT
while read -r file; do
dirty_name=$(mktmp)
basename "$file" > $dirty_name;
clean_name=$(awk -f "$awk_source" "$dirty_name");
[ -e "$clean_name" ] && die "file \"$clean_name\" already exists!";
mv "$(cat $dirty_name)" "$clean_name" || die "Move failed";
lf -remote 'send reload'
done < "$files";
# vim: ft=sh
|
