manatee-mplayer 0.0.6 → 0.0.7
raw patch · 4 files changed
+14/−7 lines, 4 filesdep ~manatee-core
Dependency ranges changed: manatee-core
Files
- Main.hs +5/−2
- Manatee/Extension/Mplayer/PlaylistBuffer.hs +2/−2
- Manatee/Extension/Mplayer/PlaylistView.hs +3/−0
- manatee-mplayer.cabal +4/−3
Main.hs view
@@ -21,6 +21,7 @@ module Main where import Control.Applicative hiding (empty)+import Manatee.Core.Dynload import Manatee.Core.Render import Manatee.Core.Types import Manatee.Extension.Mplayer@@ -28,5 +29,7 @@ -- | Irc client render process. main :: IO () main = - startupRender (\ pagePath options client pageId -> - PageBufferWrap <$> playlistBufferNew pagePath options client pageId)+ startupRender + (\ pagePath options client pageId customize -> + PageBufferWrap <$> playlistBufferNew pagePath options client pageId customize)+ emptyCustomizeNew
Manatee/Extension/Mplayer/PlaylistBuffer.hs view
@@ -160,8 +160,8 @@ -- | New playlist buffer. -- If path is directory, will search multimedia files with given directory. -- If path is multimedia file, then add to play list.-playlistBufferNew :: FilePath -> [String] -> Client -> PageId -> IO PlaylistBuffer-playlistBufferNew path _ client pageId = do+playlistBufferNew :: FilePath -> [String] -> Client -> PageId -> CustomizeWrap -> IO PlaylistBuffer+playlistBufferNew path _ client pageId _ = do -- Get multimedia info list. infos <- playlistBufferGenerateInfos path
Manatee/Extension/Mplayer/PlaylistView.hs view
@@ -41,9 +41,11 @@ import Manatee.Toolkit.Gtk.Gtk import Manatee.Toolkit.Gtk.ModelView import Manatee.Toolkit.Gtk.ScrolledWindow+import Paths_manatee_mplayer import System.GIO.File.ContentType import System.Posix.Process import System.Random+import System.FilePath import qualified Data.Map as M @@ -64,6 +66,7 @@ pageBufferClient = playlistBufferClient pageBufferCreateView a pId = PageViewWrap <$> playlistViewNew a pId pageBufferMode = playlistBufferMode+ pageBufferPackageName _ = fmap takeFileName getDataDir instance PageView PlaylistView where pageViewBuffer = PageBufferWrap . playlistViewBuffer
manatee-mplayer.cabal view
@@ -1,5 +1,5 @@ name: manatee-mplayer-version: 0.0.6+version: 0.0.7 Cabal-Version: >= 1.6 license: GPL-3 license-file: LICENSE@@ -7,7 +7,7 @@ synopsis: Mplayer client extension for Manatee. description: manatee-mplayer is mplayer client extension for Manatee (Haskell/Gtk+ Integrated Live Environment) .- Video at (Select 720p HD) at : <http://www.youtube.com/watch?v=weS6zys3U8k> <http://v.youku.com/v_show/id_XMjI2MDMzODI4.html>+ Video at (Select 720p HD) at : <http://www.youtube.com/watch?v=weS6zys3U8k> <http://www.youtube.com/watch?v=A3DgKDVkyeM> <http://v.youku.com/v_show/id_XMjI2MDMzODI4.html> . Screenshots at : <http://goo.gl/MkVw> .@@ -30,7 +30,7 @@ location: http://patch-tag.com/r/AndyStewart/manatee-mplayer Library- build-depends: base >= 4 && < 5, manatee-core >= 0.0.6, dbus-client >= 0.3 && < 0.4, stm >= 2.1.2.0,+ build-depends: base >= 4 && < 5, manatee-core >= 0.0.7, dbus-client >= 0.3 && < 0.4, stm >= 2.1.2.0, containers >= 0.3.0.0, gtk-serialized-event >= 0.12.0, gtk >= 0.12.0, text >= 0.7.1.0, bytestring >= 0.9.1.5, libtagc >= 0.12.0, regex-tdfa >= 1.1.2, filepath >= 1.1.0.3, utf8-string >= 0.3.4, time, dbus-core, gio >= 0.12.0,@@ -43,6 +43,7 @@ Manatee.Extension.Mplayer.Daemon Manatee.Extension.Mplayer.DBus other-modules: + Paths_manatee_mplayer extensions: ghc-options: -fwarn-unused-matches -fwarn-unused-binds -fwarn-unused-imports -fwarn-overlapping-patterns -fwarn-duplicate-exports -fwarn-unrecognised-pragmas -fwarn-hi-shadowing