From 1d6f9672f6efbb4f63b9e55381256a9f085668f6 Mon Sep 17 00:00:00 2001
From: Michele Guerini Rocco <rnhmjoj@users.noreply.github.com>
Date: Sun, 5 Apr 2015 21:54:46 +0200
Subject: [PATCH]

---
 hashrename.hs | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 hashrename.hs

diff --git a/hashrename.hs b/hashrename.hs
new file mode 100644
index 0000000..65e8da5
--- /dev/null
+++ b/hashrename.hs
@@ -0,0 +1,44 @@
+import Control.Applicative
+import Control.Monad
+import Text.Printf          (printf)
+import Crypto.Hash.SHA1     (hash)
+import System.Environment   (getArgs)
+import System.Directory
+import System.FilePath.Posix
+import qualified Data.ByteString as B
+
+getDirectoryFiles :: FilePath -> IO [FilePath]
+getDirectoryFiles path =
+  map (path </>) <$> getDirectoryContents path >>= filterM doesFileExist
+
+fileHash :: FilePath -> IO String
+fileHash = fmap (hex . hash) . B.readFile
+
+hex :: B.ByteString -> String
+hex bytes = B.unpack bytes >>= printf "%02X"
+
+
+newName :: FilePath -> IO FilePath
+newName path = do
+  hash <- take 10 <$> fileHash path
+  let (file, ext)  = splitExtension path
+      (dir, base)  = splitFileName  file
+      new = dir </> hash <.> ext
+  if null base
+    then return path
+    else return new
+
+main = do
+  args <- getArgs
+  path <- case args of
+    []  -> getCurrentDirectory
+    x:_ -> return x
+  putStrLn ("Renaming files in " ++ path)
+  files <- getDirectoryFiles path
+  names <- mapM newName files
+  forM (zip files names) $ \(x, y) -> do
+    let x' = takeFileName x
+        y' = takeFileName y
+    putStrLn (printf "%s -> %s" x' y')
+    renameFile x y
+  putStrLn "Files renamed successfully"
\ No newline at end of file