extracted spacem to file, new spacemall alias

[feisty_meow.git] / scripts / core / functions.sh

diff --git a/scripts/core/functions.sh b/scripts/core/functions.sh
index 14aa99da59b40fa1dad2387493d3eb4325b98deb..a5cd8b41f0aadc9c932abad09726faf5442be2b2 100644 (file)
--- a/scripts/core/functions.sh
+++ b/scripts/core/functions.sh
@@ -710,48 +710,48 @@ or if you're on cygwin, then try this (if apt-cyg is available):\n
     popd &>/dev/null
   }
 
-  function spacem()
-  {
-    while [ $# -gt 0 ]; do
-      arg="$1"; shift
-      if [ ! -f "$arg" -a ! -d "$arg" ]; then
-        echo "=> did not find a file or directory named '$arg'."
-        continue
-      fi
-
-      # first we will capture the output of the character replacement operation for reporting.
-      # this is done first since some filenames can't be properly renamed in perl (e.g. if they
-      # have pipe characters apparently).
-      intermediate_name="$(bash "$FEISTY_MEOW_SCRIPTS/files/replace_spaces_with_underscores.sh" "$arg")"
-      local saw_intermediate_result=0
-      if [ -z "$intermediate_name" ]; then
-        # make sure we report something, if there are no further name changes.
-        intermediate_name="'$arg'"
-      else 
-        # now zap the first part of the name off (since original name isn't needed).
-        intermediate_name="$(echo $intermediate_name | sed -e 's/.*=> //')"
-        saw_intermediate_result=1
-      fi
-
-      # first we rename the file to be lower case.
-      actual_file="$(echo $intermediate_name | sed -e "s/'\([^']*\)'/\1/")"
-      final_name="$(perl $FEISTY_MEOW_SCRIPTS/files/renlower.pl "$actual_file")"
-      local saw_final_result=0
-      if [ -z "$final_name" ]; then
-        final_name="$intermediate_name"
-      else
-        final_name="$(echo $final_name | sed -e 's/.*=> //')"
-        saw_final_result=1
-      fi
-#echo intermed=$saw_intermediate_result 
-#echo final=$saw_final_result 
-
-      if [[ $saw_intermediate_result != 0 || $saw_final_result != 0 ]]; then
-        # printout the combined operation results.
-        echo "'$arg' => $final_name"
-      fi
-    done
-  }
+#  function spacem()
+#  {
+#    while [ $# -gt 0 ]; do
+#      arg="$1"; shift
+#      if [ ! -f "$arg" -a ! -d "$arg" ]; then
+#        echo "=> did not find a file or directory named '$arg'."
+#        continue
+#      fi
+#
+#      # first we will capture the output of the character replacement operation for reporting.
+#      # this is done first since some filenames can't be properly renamed in perl (e.g. if they
+#      # have pipe characters apparently).
+#      intermediate_name="$(bash "$FEISTY_MEOW_SCRIPTS/files/replace_spaces_with_underscores.sh" "$arg")"
+#      local saw_intermediate_result=0
+#      if [ -z "$intermediate_name" ]; then
+#        # make sure we report something, if there are no further name changes.
+#        intermediate_name="'$arg'"
+#      else 
+#        # now zap the first part of the name off (since original name isn't needed).
+#        intermediate_name="$(echo $intermediate_name | sed -e 's/.*=> //')"
+#        saw_intermediate_result=1
+#      fi
+#
+#      # first we rename the file to be lower case.
+#      actual_file="$(echo $intermediate_name | sed -e "s/'\([^']*\)'/\1/")"
+#      final_name="$(perl $FEISTY_MEOW_SCRIPTS/files/renlower.pl "$actual_file")"
+#      local saw_final_result=0
+#      if [ -z "$final_name" ]; then
+#        final_name="$intermediate_name"
+#      else
+#        final_name="$(echo $final_name | sed -e 's/.*=> //')"
+#        saw_final_result=1
+#      fi
+##echo intermed=$saw_intermediate_result 
+##echo final=$saw_final_result 
+#
+#      if [[ $saw_intermediate_result != 0 || $saw_final_result != 0 ]]; then
+#        # printout the combined operation results.
+#        echo "'$arg' => $final_name"
+#      fi
+#    done
+#  }
 
   ##############