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