snaus/exe/Main.hs

module Main where

import System.Posix.Directory ( getWorkingDirectory )
import System.Directory.Extra ( listContents )
import Control.Monad          ( (<=<), filterM )
import System.Process         ( ProcessHandle, spawnCommand )

fetchLocalAudio :: FilePath -> IO [FilePath]
fetchLocalAudio = filterM isAudioVideo <=< listContents

isAudioVideo :: FilePath -> IO Bool
isAudioVideo = undefined

-- Paths need to be escaped if containing certain characters
playHeadless :: FilePath -> IO ProcessHandle
playHeadless = spawnCommand . (++) "mpv --vid=no "

main :: IO ()
main =
  getWorkingDirectory >>= \a ->
  pure ()