3 files changed, 28 insertions, 0 deletions

diff --git a/Makefile b/Makefile
index 19780cc..b20a5b6 100644
--- a/Makefile
+++ b/Makefile
@@ -34,6 +34,7 @@ SCRIPTS =       addressgrep \
                 translate \
                 trash \
                 urlgrep \
+                virename \
                 volume \
                 websearch \
                 xedit \
diff --git a/sel b/sel
index 8d8b549..f5fa058 100755
--- a/sel
+++ b/sel
@@ -17,6 +17,8 @@
 # TODO: add possibility of specifying file.
 # TODO 2: The usage of paste(1) is a bit of a hack, and for example it does
 # not work if filenames contain tab characters. Fix this.
+# Bug (probably not fixing this, use virename): moving moving a file to
+# itself gives an error and rm is not run.
 
 file="$XDG_DATA_HOME/selectedfiles"
 menu=${MENU:-dmenu}
diff --git a/virename b/virename
new file mode 100755
index 0000000..e0d23bd
--- /dev/null
+++ b/virename
@@ -0,0 +1,25 @@
+#!/bin/sh
+
+# Rename all files in the current directory with a visual editor.
+# Similar to sel add all && sel mv, but it actually works.
+
+file=$(mktemp)
+file2=$(mktemp)
+editor=${EDITOR:-vi}
+
+ls | tee "$file" > "$file2"
+$editor "$file2"
+
+if [ "$(wc -l $file  | awk '{print $1}')" != \
+     "$(wc -l $file2 | awk '{print $1}')" ]; then
+        echo "Error reading new file names"
+else
+        paste "$file" "$file2" | while read f; do
+                fold=$(echo "$f" | sed 's/\t.*//')
+                fnew=$(echo "$f" | sed 's/.*\t//')
+                if [ "$fold" != "$fnew" ]; then
+                        mv "$fold" "$fnew" \
+                        || echo "Error renaming $fold to $fnew"
+                fi
+        done
+fi