rename_zoom.hs

{-# LANGUAGE OverloadedStrings #-}

import Turtle hiding (x, options)
import qualified Data.Text as T
import System.Environment (getArgs)
import Data.Time.Format
import Data.WAVE

main :: IO ()
main = do
  args <- getArgs
  let dir = case args of
        a:_ -> a
        [] -> "."
  sh $ do
      path <- ls $ fromText $ T.pack dir
      t <- liftIO $ datefile path
      echo $ format ("Reading "%fp) path
      wve <- liftIO $ getWAVEFile $ T.unpack $ format fp path
      let
        WAVEHeader chs hz bits _ = waveHeader wve
        waveString = format (" "%d%"chs "%d%"bits "%d%"Hz.WAV") chs bits hz
        newFileName = T.pack (formatTime defaultTimeLocale "%F %R" t) <> waveString
        newPath = directory path </> fromText newFileName
      echo $ format ("Renaming "%fp%" to "%fp) path newPath
      liftIO $ mv path newPath

Convert filenames generated by ZOOM sound recorders to sensible ones like 2016-07-19 22:02 2chs 24bits 44100Hz.WAV