dot-linker-0.1.0.0: app/Main.hs

{-# LANGUAGE OverloadedStrings #-}
module Main(main) where

import Data.Attoparsec.ByteString (parseOnly)
import Data.Text.Encoding (encodeUtf8)
import Data.Text (pack)
import qualified Data.HashMap.Strict as M
import DotLinker
import Turtle
import Prelude hiding (FilePath)

main :: IO ()
main = sh $ do
    (dots, mapFileLoc, dryRun, verbose) <- options "dot-linker" parseOpts
    mapFile <- liftIO $ encodeUtf8 <$> readTextFile mapFileLoc
    let entriesE = toHashMap <$> parseOnly fileMapParser mapFile
    parsedMap <- either (die . pack) return entriesE
    expandedMap <- traverse (sequenceA . map expandPath) parsedMap
    cd dots
    file <- filename <$> ls "./"
    matchAndLink (verbose, dryRun) expandedMap file
  where
    parseOpts = (,,,) <$> parseDotsPath <*> parseMapPath <*> parseDry <*> parserVersbosity
    parseDotsPath = argPath "dots_dir" "Directory where the dot files are located"
    parseMapPath = argPath "mappings_file" "Path to the mappings file"
    parseDry = switch "dry-run" 'd' "Do not link anything, simply show what would happen"
    parserVersbosity = switch "verbose" 'v' "Increase verbosity"

    toHashMap = M.fromList