hyperreal/bin
1
0
Fork 0
mirror of https://codeberg.org/hyperreal/bin synced 2024-11-25 10:23:42 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

To ChatGPT: modify this to include converting >=1 spaces to single dash

Browse Source
This commit is contained in:
Jeffrey Serio 2023-11-08 22:38:25 -06:00
parent e79bedc940
commit b0535faf49
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lispify
View File

@ -1,16 +1,14 @@
#!/bin/bash #!/bin/bash
# This script was written entirely by ChatGPT 4.
# Check for an argument # Check for an argument
if [ $# -eq 0 ]; then if [ $# -eq 0 ]; then
echo "Usage: $0 filename" echo "Usage: $0 filename"
exit 1 exit 1
fi fi
# A function to convert a string to Lisp case # A function to convert a string to Lisp case, including converting spaces to a single dash
to_lisp_case() { to_lisp_case() {
echo "$1" | awk '{ gsub(/_/,"-"); print tolower($0) }' | sed 's/[A-Z]/-\L&/g' | sed 's/^-//' echo "$1" | awk '{ gsub(/[ _]+/, "-"); print tolower($0) }' | sed 's/[A-Z]/-\L&/g' | sed 's/^-//'
} }
# The filename is the first argument # The filename is the first argument
@ -30,5 +28,5 @@ if [ "$file" != "$new_name" ]; then
mv -- "$file" "$new_name" mv -- "$file" "$new_name"
echo "File renamed to $new_name" echo "File renamed to $new_name"
else else
echo "File name is already in Lisp case." echo "File name is already in the desired format."
fi fi