Add new lispify script

lispify

@@ -1,12 +1,34 @@
-#!/usr/bin/env zsh
+#!/bin/bash
 
-# Lispify - convert file names to-lisp-case
-filename=$(basename -- "$1")
-extension="${filename##*.}"
-filename="${filename%.*}"
-new_filename=$(echo ${filename// /-} | tr '_' '-' | tr -cd '[:alnum:]._-')
-new_basename=$(echo "$new_filename.$extension")
-mv -i "$1" "$new_basename"
-if ! [ "$new_basename" = "${new_basename:l}" ]; then
-    mv -i "$new_basename" "${new_basename:l}"
+# This script was written entirely by ChatGPT 4.
+
+# Check for an argument
+if [ $# -eq 0 ]; then
+    echo "Usage: $0 filename"
+    exit 1
+fi
+
+# A function to convert a string to Lisp case
+to_lisp_case() {
+    echo "$1" | awk '{ gsub(/_/,"-"); print tolower($0) }' | sed 's/[A-Z]/-\L&/g' | sed 's/^-//'
+}
+
+# The filename is the first argument
+file="$1"
+
+# Check if the file exists
+if [ ! -f "$file" ]; then
+    echo "Error: File does not exist."
+    exit 1
+fi
+
+# Convert the filename to Lisp case
+new_name=$(to_lisp_case "$file")
+
+# Rename the file if the new name is different from the original
+if [ "$file" != "$new_name" ]; then
+    mv -- "$file" "$new_name"
+    echo "File renamed to $new_name"
+else
+    echo "File name is already in Lisp case."
 fi