expand a zip file's contents to a directory which has the same name to the zip file.

expand_zip_to_filename_directory.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ExtendedDefaultRules #-}
{-# OPTIONS_GHC -fno-warn-type-defaults #-}

import Control.Monad (forM_)
import qualified Data.Text.Lazy as LT (append, pack, Text)
import Filesystem.Path (append, basename, filename)
import Shelly
import System.Environment (getArgs)
default (LT.Text)

garbageFilePatterns = ["*/.DS_Store", "*/Thumbs.db", "__MACOSX/*"]

expandToDirectoryOfBasename f = do
  unless (hasExt "zip" f) $ errorExit ("not a zip file: " ++< f)
  let d = basename f
  whenM (test_e d) $ errorExit ("directory already exists: " ++< d)
  run_ "unzip" $ ["-d", toTextIgnore d, toTextIgnore f]
    ++ concatMap (¥x -> ["-x", x]) garbageFilePatterns
  return d
  where a ++< p = LT.append a $ toTextIgnore p

removeIntermediateRedundantDir d = do
  contents <- ls d
  when (length contents == 1) $ do
    let c0 = contents !! 0
    whenM (test_d c0) $ do
      cts <- ls c0
      forM_ cts $ ¥f -> do
        (mv f) . (append d) =<< (relativeTo c0 f)
      rm_rf c0

main :: IO ()
main = shelly $ silently $ do
  args <- liftIO $ map (fromText . LT.pack) <$> getArgs
  when (null args) $ errorExit "specify zip files"
  forM_ args $ ¥f -> do
    d <- expandToDirectoryOfBasename f 
    removeIntermediateRedundantDir d

Sorry, I removed this gist by accident.

Revised. I'm not satisfied this revision ( eec0a2 ), because of the ugry string file-path manipulation at line 15-20.