Safe Haskell	Safe-Inferred
Language	Haskell2010

MusicScroll.TrackInfo

Synopsis

data TrackInfo = TrackInfo {
- tTitle :: Text
- tArtist :: Text
- tUrl :: SongFilePath
}
data TrackByPath = TrackByPath {
- tpPath :: SongFilePath
- tpTitle :: Maybe Text
- tpArtist :: Maybe Text
}
type SongFilePath = FilePath
type TrackIdentifier = Either TrackByPath TrackInfo
newtype TrackIdentifierWithEq = TIWE TrackIdentifier
extractUrl :: TrackIdentifier -> SongFilePath
pattern OnlyMissingArtist :: TrackByPath
data DBusError
- = NoMusicClient MethodError
- | NoSong
tryGetInfo :: (MonadState ConnState m, MonadIO m) => m (Either DBusError TrackIdentifier)
obtainTrackInfo :: Map Text Variant -> Either DBusError TrackIdentifier
xesamArtistFix :: Maybe Text -> Maybe [Text] -> Maybe Text
cleanTrack :: Functor m => Pipe TrackIdentifier TrackIdentifier m a
cleanTitle :: Text -> Text
musicFormats :: [Text]
vlcFix :: SongFilePath -> SongFilePath

Documentation

data TrackInfo Source #

Constructors

TrackInfo
Fields tTitle :: Text tArtist :: Text tUrl :: SongFilePath

Instances

Instances details

Show TrackInfo Source #
Instance details Defined in MusicScroll.TrackInfo Methods showsPrec :: Int -> TrackInfo -> ShowS # show :: TrackInfo -> String # showList :: [TrackInfo] -> ShowS #

data TrackByPath Source #

Constructors

TrackByPath
Fields tpPath :: SongFilePath tpTitle :: Maybe Text tpArtist :: Maybe Text

Instances

Instances details

Show TrackByPath Source #
Instance details Defined in MusicScroll.TrackInfo Methods showsPrec :: Int -> TrackByPath -> ShowS # show :: TrackByPath -> String # showList :: [TrackByPath] -> ShowS #

type SongFilePath = FilePath Source #

type TrackIdentifier = Either TrackByPath TrackInfo Source #

newtype TrackIdentifierWithEq Source #

Constructors

TIWE TrackIdentifier

Instances

Instances details

Eq TrackIdentifierWithEq Source #
Instance details Defined in MusicScroll.TrackInfo Methods (==) :: TrackIdentifierWithEq -> TrackIdentifierWithEq -> Bool # (/=) :: TrackIdentifierWithEq -> TrackIdentifierWithEq -> Bool #

extractUrl :: TrackIdentifier -> SongFilePath Source #

pattern OnlyMissingArtist :: TrackByPath Source #

data DBusError Source #

Constructors

NoMusicClient MethodError
NoSong

tryGetInfo :: (MonadState ConnState m, MonadIO m) => m (Either DBusError TrackIdentifier) Source #

obtainTrackInfo :: Map Text Variant -> Either DBusError TrackIdentifier Source #

xesamArtistFix :: Maybe Text -> Maybe [Text] -> Maybe Text Source #

cleanTrack :: Functor m => Pipe TrackIdentifier TrackIdentifier m a Source #

cleanTitle :: Text -> Text Source #

This functions does two main things: 1. Remove format at the end, ie .mp3, .opus etc. 2. Remove the leading order separators, ie "05 - song name" -> "song name"

musicFormats :: [Text] Source #

vlcFix :: SongFilePath -> SongFilePath Source #