module Vimeta.Core.Tagger
( Tagger (..),
formatStringsForTagger,
)
where
import qualified Data.Text as Text
data Tagger = AtomicParsley
formatStringsForTagger :: Tagger -> (Text, Text)
formatStringsForTagger AtomicParsley = (apMovie, apTV)
apPrefix, apSuffix :: Text
apPrefix = "AtomicParsley"
apSuffix = "--overWrite"
apMovie :: Text
apMovie =
Text.intercalate
" "
[ apPrefix,
"%f",
"--stik value=9",
"%{--year %Y%}",
"--title %t",
"--description %d",
"%{--genre %G%}",
"--artwork REMOVE_ALL %{--artwork %a%}",
apSuffix
]
apTV :: Text
apTV =
Text.intercalate
" "
[ apPrefix,
"%f",
"--stik 'TV Show'",
"%{--year %Y%}",
"--title %t",
"--description %d",
"--TVShowName %n",
"--TVSeasonNum %s",
"--TVEpisodeNum %e",
"--tracknum %e",
"--artwork REMOVE_ALL %{--artwork %a%}",
apSuffix
]