cut-the-crap-1.2.0: src/Cut/Ffmpeg.hs

module Cut.Ffmpeg
  ( ffmpeg
  , floatToText
  )
where

import           Data.Text                      ( Text )
import qualified Data.Text                     as Text
import           Numeric
import           Shelly

-- | Wrap ffmpeg for convenience and logging
ffmpeg :: [Text] -> Sh [Text]
ffmpeg args = do
  liftIO $ putStr "Running: "
  liftIO $ print $ "ffmpeg " <> Text.unwords args
  run_ "ffmpeg" args
  Text.lines <$> lastStderr

-- | Format floats for cli
floatToText :: Double -> Text
floatToText = Text.pack . flip (showFFloat (Just 10)) ""