manatee-pdfviewer 0.0.6 → 0.0.7
raw patch · 4 files changed
+15/−8 lines, 4 filesdep +filepathdep ~manatee-core
Dependencies added: filepath
Dependency ranges changed: manatee-core
Files
- Main.hs +5/−2
- Manatee/Extension/PdfViewer/PdfBuffer.hs +2/−2
- Manatee/Extension/PdfViewer/PdfView.hs +3/−0
- manatee-pdfviewer.cabal +5/−4
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.PdfViewer@@ -28,5 +29,7 @@ -- | Irc client render process. main :: IO () main = - startupRender (\ pagePath options client pageId -> - PageBufferWrap <$> pdfBufferNew pagePath options client pageId)+ startupRender + (\ pagePath options client pageId customize -> + PageBufferWrap <$> pdfBufferNew pagePath options client pageId customize)+ emptyCustomizeNew
Manatee/Extension/PdfViewer/PdfBuffer.hs view
@@ -44,8 +44,8 @@ deriving Typeable -- | New pdf viewer buffer.-pdfBufferNew :: String -> [String] -> Client -> PageId -> IO PdfBuffer-pdfBufferNew path _ client pageId = do+pdfBufferNew :: String -> [String] -> Client -> PageId -> CustomizeWrap -> IO PdfBuffer+pdfBufferNew path _ client pageId _ = do -- Get document. document <- liftM (fromMaybe (error $ "pdfBufferNew: error when open file " ++ filepath)) (documentNewFromFile ("file://" ++ filepath) Nothing)
Manatee/Extension/PdfViewer/PdfView.hs view
@@ -40,6 +40,8 @@ import Manatee.Toolkit.Gtk.Event import Manatee.Toolkit.Gtk.Gtk import Manatee.Toolkit.Gtk.ScrolledWindow+import Paths_manatee_pdfviewer+import System.FilePath import qualified Data.Map as M @@ -59,6 +61,7 @@ pageBufferClient = pdfBufferClient pageBufferCreateView a pId = PageViewWrap <$> pdfViewNew a pId pageBufferMode = pdfBufferMode+ pageBufferPackageName _ = fmap takeFileName getDataDir instance PageView PdfView where pageViewBuffer = PageBufferWrap . pdfViewBuffer
manatee-pdfviewer.cabal view
@@ -1,5 +1,5 @@ name: manatee-pdfviewer-version: 0.0.6+version: 0.0.7 Cabal-Version: >= 1.6 license: GPL-3 license-file: LICENSE@@ -15,7 +15,7 @@ . And replace Chinese font string in file `/etc/fonts/conf.d/49-sansserif.conf' .- 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> .@@ -38,15 +38,16 @@ location: http://patch-tag.com/r/AndyStewart/manatee-pdfviewer 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, poppler >= 0.12.1, gtk >= 0.12.0,- cairo >= 0.12.0, text >= 0.7.1.0, mtl >= 1.1.0.2, utf8-string+ cairo >= 0.12.0, text >= 0.7.1.0, mtl >= 1.1.0.2, utf8-string, filepath exposed-modules: Manatee.Extension.PdfViewer Manatee.Extension.PdfViewer.PdfBuffer Manatee.Extension.PdfViewer.PdfView Manatee.Extension.PdfViewer.PageMode other-modules: + Paths_manatee_pdfviewer extensions: ghc-options: -fwarn-unused-matches -fwarn-unused-binds -fwarn-unused-imports -fwarn-overlapping-patterns -fwarn-duplicate-exports -fwarn-unrecognised-pragmas -fwarn-hi-shadowing