Haskell script to call ffmpeg

Transcriptor.hs

module Main where

import           Data.Time.Clock
import           Data.Time.Format
import           Data.Time.Format.ISO8601
import           System.Cmd
import           System.Directory

main :: IO ()
main = do
  now <- getCurrentTime
  let cmd = makeCommand (iso8601Show now)
  putStrLn $ "calling " <> cmd
  exitCode <- system cmd
  putStrLn $ "recording finished with exitcode " <> show exitCode

transcriptdir = "/home/shae/transcript"
-- only needs the filename
makeCommand name = "ffmpeg -video_size 3840x2160 -framerate 2 -f x11grab -i :0.0 -s 1920x1080 /home/shae/transcript/" <> name <> ".mp4"