manatee-imageviewer 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/ImageViewer/ImageBuffer.hs +2/−2
- Manatee/Extension/ImageViewer/ImageView.hs +3/−0
- manatee-imageviewer.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.ImageViewer@@ -28,5 +29,7 @@ -- | Irc client render process. main :: IO () main = - startupRender (\ pagePath options client pageId -> - PageBufferWrap <$> imageBufferNew pagePath options client pageId)+ startupRender + (\ pagePath options client pageId customize -> + PageBufferWrap <$> imageBufferNew pagePath options client pageId customize)+ emptyCustomizeNew
Manatee/Extension/ImageViewer/ImageBuffer.hs view
@@ -49,8 +49,8 @@ deriving Typeable -- | New image buffer.-imageBufferNew :: String -> [String] -> Client -> PageId -> IO ImageBuffer-imageBufferNew path _ client pageId = do+imageBufferNew :: String -> [String] -> Client -> PageId -> CustomizeWrap -> IO ImageBuffer+imageBufferNew path _ client pageId _ = do -- Create new buffer. buffer <- ImageBuffer <$> newTVarIO path <*> pure client
Manatee/Extension/ImageViewer/ImageView.hs view
@@ -42,6 +42,8 @@ import Manatee.Toolkit.Gtk.Gtk import Manatee.Toolkit.Gio.Gio import Manatee.Toolkit.Gtk.ScrolledWindow+import Paths_manatee_imageviewer+import System.FilePath import qualified Graphics.UI.Gtk.ImageView.ImageView as I import qualified Data.Map as M@@ -60,6 +62,7 @@ pageBufferClient = imageBufferClient pageBufferCreateView a pId = PageViewWrap <$> imageViewNew a pId pageBufferMode = imageBufferMode+ pageBufferPackageName _ = fmap takeFileName getDataDir instance PageView ImageView where pageViewBuffer = PageBufferWrap . imageViewBuffer
manatee-imageviewer.cabal view
@@ -1,5 +1,5 @@ name: manatee-imageviewer-version: 0.0.6+version: 0.0.7 Cabal-Version: >= 1.6 license: GPL-3 license-file: LICENSE@@ -7,7 +7,7 @@ synopsis: Image viewer extension for Manatee. description: manatee-imageviewer is image viewer 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-imageviewer 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, glib >= 0.12.0, gio >= 0.12.0, gtkimageview >= 0.12.0, text >= 0.7.1.0, regex-tdfa >= 1.1.2, filepath >= 1.1.0.3, utf8-string@@ -40,6 +40,7 @@ Manatee.Extension.ImageViewer.ImageBuffer Manatee.Extension.ImageViewer.ImageView other-modules: + Paths_manatee_imageviewer extensions: ghc-options: -fwarn-unused-matches -fwarn-unused-binds -fwarn-unused-imports -fwarn-overlapping-patterns -fwarn-duplicate-exports -fwarn-unrecognised-pragmas -fwarn-hi-shadowing