rename pascal case to kebab case recursively

p2k

#!/bin/sh -
find .                           \
        -type f                  \
        -name '[A-Z]*'           \
      ! -name '*[!0-9A-Za-z]*.*' \
        -exec sh -c '
for pn; do
        p=${pn%/*}/
        fn=${pn#"$p"}
        n=${fn%.*}
        e=${fn#"$n"}
        while true; do
                case $n in
                (*[!A-Z-][A-Z]*)
                        w=${n#"${n%[!A-Z-][A-Z]*}"} w=${w#?} n=${n%"$w"}-$w ;;
                (*)
                        break
                esac
        done
        n=$(printf '\''%s\n'\'' "$n" | tr A-Z a-z)
        echo mv "$pn" "$p$n$e"
done' sh {} +