manatee-filemanager 0.0.6 → 0.0.7
raw patch · 4 files changed
+13/−7 lines, 4 filesdep ~manatee-core
Dependency ranges changed: manatee-core
Files
- Main.hs +5/−2
- Manatee/Extension/FileManager/DiredBuffer.hs +2/−2
- Manatee/Extension/FileManager/DiredView.hs +2/−0
- manatee-filemanager.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.FileManager@@ -28,6 +29,8 @@ -- | Irc client render process. main :: IO () main = - startupRender (\ pagePath options client pageId -> - PageBufferWrap <$> diredBufferNew pagePath options client pageId)+ startupRender + (\ pagePath options client pageId customize -> + PageBufferWrap <$> diredBufferNew pagePath options client pageId customize)+ emptyCustomizeNew
Manatee/Extension/FileManager/DiredBuffer.hs view
@@ -108,8 +108,8 @@ compareRow FIPermission row1 row2 = return $ comparing fst (dfiPermDescrible row1) (dfiPermDescrible row2) -- | New.-diredBufferNew :: FilePath -> [String] -> Client -> PageId -> IO DiredBuffer-diredBufferNew dir _ client pageId = do+diredBufferNew :: FilePath -> [String] -> Client -> PageId -> CustomizeWrap -> IO DiredBuffer+diredBufferNew dir _ client pageId _ = do -- Create buffer. buffer <- DiredBuffer <$> newTVarIO dir <*> pure client
Manatee/Extension/FileManager/DiredView.hs view
@@ -45,6 +45,7 @@ import Manatee.Toolkit.Gtk.Gtk import Manatee.Toolkit.Gtk.ModelView import Manatee.Toolkit.Gtk.ScrolledWindow+import Paths_manatee_filemanager import System.FilePath import qualified Data.Map as M@@ -65,6 +66,7 @@ pageBufferClient = diredBufferClient pageBufferCreateView a pId = PageViewWrap <$> diredViewNew a pId pageBufferMode = diredBufferMode+ pageBufferPackageName _ = fmap takeFileName getDataDir instance PageView DiredView where pageViewBuffer = PageBufferWrap . diredViewBuffer
manatee-filemanager.cabal view
@@ -1,5 +1,5 @@ name: manatee-filemanager-version: 0.0.6+version: 0.0.7 Cabal-Version: >= 1.6 license: GPL-3 license-file: LICENSE@@ -7,7 +7,7 @@ synopsis: File manager extension for Manatee. description: manatee-filemanager is file manager 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-filemanager 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, mtl >= 1.1.0.2, old-time >= 1.0.0.3, old-locale >= 1.0.0.2, glib >= 0.12.0, gio >= 0.12.0, filepath >= 1.1.0.3, utf8-string >= 0.3.4@@ -40,6 +40,7 @@ Manatee.Extension.FileManager.DiredView Manatee.Extension.FileManager.PageMode other-modules: + Paths_manatee_filemanager extensions: ghc-options: -fwarn-unused-matches -fwarn-unused-binds -fwarn-unused-imports -fwarn-overlapping-patterns -fwarn-duplicate-exports -fwarn-unrecognised-pragmas -fwarn-hi-shadowing