-- -*-haskell-*- -- Vision (for the Voice): an XMMS2 client. -- -- Author: Oleg Belozeorov -- Created: 20 Jun. 2010 -- -- Copyright (C) 2010 Oleg Belozeorov -- -- This program is free software; you can redistribute it and/or -- modify it under the terms of the GNU General Public License as -- published by the Free Software Foundation; either version 3 of -- the License, or (at your option) any later version. -- -- This program is distributed in the hope that it will be useful, -- but WITHOUT ANY WARRANTY; without even the implied warranty of -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -- General Public License for more details. -- {-# LANGUAGE TupleSections #-} module Playlist.View ( initView , playlistView , playlistSel , getSelectedTracks ) where import Control.Applicative import Data.Maybe import Graphics.UI.Gtk hiding (add) import XMMS2.Client import Context import Handler import Playback import Playlist.Model import Playlist.Index import Playlist.Format data View = View { vView :: TreeView , vSel :: TreeSelection } playlistView = vView context playlistSel = vSel context initView builder = do context <- initContext builder let ?context = context treeViewSetModel playlistView playlistStore treeViewSetRulesHint playlistView True treeViewSetReorderable playlistView True treeViewSetHeadersVisible playlistView False treeSelectionSetMode playlistSel SelectionMultiple column <- treeViewColumnNew treeViewInsertColumn playlistView column 0 cell <- cellRendererPixbufNew cell `set` [ cellWidth := 30 ] treeViewColumnPackStart column cell False cellLayoutSetAttributeFunc column cell playlistStore $ \iter -> do [n] <- treeModelGetPath playlistStore iter maybeCT <- getCurrentTrack name <- fromMaybe "" <$> getPlaylistName cell `set` [ cellPixbufStockId :=> case maybeCT of Just (cp, cname) | cp == n && cname == name -> do maybeStatus <- getPlaybackStatus case maybeStatus of Just StatusPlay -> return stockMediaPlay Just StatusPause -> return stockMediaPause Just StatusStop -> return stockMediaStop _ -> return "" _ -> return "" ] cell <- cellRendererTextNew treeViewColumnPackStart column cell True cellLayoutSetAttributeFunc column cell playlistStore $ \iter -> do info <- getInfoIfNeeded iter cell `set` trackInfoAttrs info cell <- cellRendererTextNew treeViewColumnPackStart column cell False cellLayoutSetAttributeFunc column cell playlistStore $ \iter -> do info <- getInfoIfNeeded iter cell `set` [ cellText := trackInfoDuration info ] beforeDeletingTrack . add . ever $ \t -> do cursor <- treeViewGetCursor playlistView case cursor of ([p], c) | p == t -> do s <- getPlaylistSize let p' = if p + 1 < s then p + 1 else max (p - 1) 0 c' = maybe Nothing (Just . (, False)) c treeViewSetCursor playlistView [p'] c' _ -> return () return ?context getInfoIfNeeded iter = do [n] <- treeModelGetPath playlistStore iter mid <- listStoreGetValue playlistStore n rng <- treeViewGetVisibleRange playlistView getInfo mid $ case rng of ([f], [t]) -> n >= f && t >= n _ -> False initContext builder = do view <- builderGetObject builder castToTreeView "playlist-view" sel <- treeViewGetSelection view return $ augmentContext View { vView = view , vSel = sel } getSelectedTracks = map head <$> treeSelectionGetSelectedRows playlistSel