batch-rename (empty) → 0.1.0.0

raw patch · 5 files changed

+132/−0 lines, 5 filesdep +Globdep +basedep +directorysetup-changed

Dependencies added: Glob, base, directory, filepath

Files

• LICENSE +1/−0
• README.md +2/−0
• Setup.hs +2/−0
• batch-rename.cabal +81/−0
• batchRename.hs +46/−0

@@ -0,0 +1,1 @@+batch-rename is Public Domain

@@ -0,0 +1,2 @@+# batch_rename+A simple command make linux or macos do things like "rename *.mp3 *.mp4" in Windows/MSDOS

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,81 @@+-- Initial batch-rename.cabal generated by cabal init.  For further +-- documentation, see http://haskell.org/cabal/users-guide/++-- The name of the package.+name:                batch-rename++-- The package version.  See the Haskell package versioning policy (PVP) +-- for standards guiding when and how versions should be incremented.+-- http://www.haskell.org/haskellwiki/Package_versioning_policy+-- PVP summary:      +-+------- breaking API changes+--                   | | +----- non-breaking API additions+--                   | | | +--- code changes with no API change+version:             0.1.0.0++-- A short (one-line) description of the package.+synopsis:            Make linux or macos do things like "rename *.mp3 *.mp4" in Windows/MSDOS++-- A longer description of the package.+description:      Do you remember the convenient command `rn' in MSDOS ?+                  When you want to change all your .mp3 files to .mp4+                  Simply type rn *.mp3 *.mp4.+                  I really like this.+                  But in linux/Mac world, people keep asking how.(http://bit.ly/2cIskUu)+                  So maybe this little tool can help you a lot. QUOTE NEEDED.+                  Example:+                    batch_rename "*.mp3" "*.mp4"+                    batch_rename "*.mp3" "fake*.mp4"+                    batch_rename "DCIM*.jpg" "*.png"++-- URL for the project homepage or repository.+homepage:            https://github.com/uppet/batch_rename++-- The license under which the package is released.+license:             PublicDomain++-- The file containing the license text.+license-file:        LICENSE++-- The package author(s).+author:              Joyer Huang++-- An email address to which users can send suggestions, bug reports, and +-- patches.+maintainer:          collger@gmail.com++-- A copyright notice.+-- copyright:           ++category:            System++build-type:          Simple++-- Extra files to be distributed with the package, such as examples or a +-- README.+extra-source-files:  README.md++-- Constraint on the version of Cabal needed to build this package.+cabal-version:       >=1.10+++executable batch_rename+  -- .hs or .lhs file containing the Main module.+  main-is:             batchRename.hs+  +  -- Modules included in this executable, other than Main.+  -- other-modules:       +  +  -- LANGUAGE extensions used by modules in this package.+  -- other-extensions:    +  +  -- Other library packages from which modules are imported.+  build-depends:       base >=4.6 && <4.7,+                       Glob >=0.7.11,+                       filepath >=1.1,+                       directory+  -- Directories containing source files.+  -- hs-source-dirs:      +  +  -- Base language which the package is written in.+  default-language:    Haskell2010+  

@@ -0,0 +1,46 @@+import Data.List+import System.Directory+import System.Environment+import System.FilePath.Glob+import System.FilePath.Posix++usage :: IO ()+usage = do progName <- getProgName+           putStrLn ("Usage:\n\t" ++ progName ++ " \"srcPattern\" \"dstPattern\"")++hasWildcard :: [Char] -> Bool+hasWildcard name = 1 == (length $ filter (\x -> x == '*') name)++bruteIndex e l = case (elemIndex e l) of+                   Just x -> x+                   Nothing -> 0++trimHeadTail s pre pos = let+  nohead = drop (length pre) s in+    reverse (drop (length pos) (reverse nohead))+++partRename preL posL preR posR name = +  let fn = takeFileName name in+  renameFile fn (preR ++ (trimHeadTail fn preL posL) ++ posR)++batchRename :: [Char] -> [Char] -> IO ()+batchRename left right = if hasWildcard left && hasWildcard right then+                           let wildcardLeftIndex = bruteIndex '*' left+                               oldPreLeft = take wildcardLeftIndex left +                               oldPosLeft = drop (wildcardLeftIndex + 1) left+                               wildcardRightIndex = bruteIndex '*' right+                               oldPreRight = take wildcardRightIndex right+                               oldPosRight = drop (wildcardRightIndex + 1) right in+                             do files <- glob left+                                sequence_ (map (partRename oldPreLeft oldPosLeft+                                                          oldPreRight oldPosRight)+                                               files)+                         else+                           putStrLn "Oops, use simple rename please."+main :: IO ()+main = do args <- System.Environment.getArgs+          case args of+            [l,r] -> batchRename l r+            otherwise -> usage+