Hum.Utils

Documentation

(?) :: (a -> b) -> (b -> c) -> a -> c infixl 8

A backwards function composition operator that I love with my whole heart.

meta :: Text -> Metadata -> Song -> Text

Get comma seperated metedata from tag.

mmeta :: Metadata -> Song -> Maybe Text

Like meta, but returns a Maybe for future use.

secondsToTime :: Integer -> Text

Formats seconds to %M:%S.

deleteHighlightedfromQ :: MonadMPD m => SongList -> m ()

Deletes highlighted songs in list from queue, does not rebuild queue.

deleteBulkfromQ :: MonadMPD m => SongList -> m ()

Deletes list of songs from queue in MPD, does not rebuild queue.

pasteSongstoQ :: MonadMPD m => SongList -> SongList -> m ()

Adds songs to queue under the selected item in it in MPD, does not rebuild queue.

getHighlighted :: (Filterable t, Traversable t) => GenericList n t (e, Highlight) -> GenericList n t (e, Highlight)

Produce list of highligted elements (and selected element) in input list.

listPaste

Arguments

:: (Splittable t, Semigroup (t e))

=> GenericList n t e

List pasted into

-> GenericList n t e

Pasted list

-> GenericList n t e

Paste one list into another under the selected item.

deleteHighlighted

Arguments

:: HumState

-> Lens' HumState SongList

Lens that leads to list

-> HumState

Delete highlighted element (and selected element) from list.

yankHighlighted

Arguments

:: HumState

-> Lens' HumState SongList

Lens that leads to list

-> HumState

Copy highlighted element (and selected element) from list to Clipboard.

listToggleHighlight :: Traversable t => GenericList n t (e, Highlight) -> GenericList n t (e, Highlight)

Toggle selected items highlight status.

listHighlightSelected :: Traversable t => GenericList n t (e, Highlight) -> GenericList n t (e, Highlight)

Highlight selcted item.

listUnhighlightAll :: Traversable t => GenericList n t (e, Highlight) -> GenericList n t (e, Highlight)

Unhighlight selcted item.

saveListToPl

Arguments

:: MonadMPD m

=> SongList

-> Text

Name of playlist to save to

-> m ()

Save list of songs to a stored playlist. If exists does nothing.

overwriteListToPl :: MonadMPD m => SongList -> Text -> m ()

Overwrite stored playlist with new song list.

saveEditedPl :: Bool -> HumState -> EventM n HumState

Save edited playlist in Playlist view to disk.

deleteSelectedPl :: Bool -> HumState -> EventM n HumState

Deletes selected playlist in Playlist view from disk.

unusedPlName :: PlaylistName -> IO PlaylistName

Appends smallest number possible to playlist name for it to not be taken. Does nothing if name is untaken.

duplicatePlaylist :: PlaylistName -> HumState -> EventM n HumState

Duplicates stored playlist on disk (with nonconflicting name).

pastePlaylist :: HumState -> EventM n HumState

Pastes playlist in clipboard to disk (with nonconflicting name).

songBulkAddtoQ

Arguments

:: Bool

If true plays first song added

-> Vector Song

-> HumState

-> EventM n HumState

Adds list of songs to queue in MPD. Does not rebuild state.

songBulkAddtoPl

Arguments

:: String

Playlist Name

-> Vector Song

Songs to add

-> HumState

-> EventM n HumState

Adds list of songs to stored playlist in MPD. Does not rebuild state.