manatee-filemanager 0.0.2 → 0.0.3

raw patch · 5 files changed

+40/−8 lines, 5 filesdep ~manatee-coresetup-changed

Dependency ranges changed: manatee-core

Files

• Main.hs +2/−1
• Manatee/Extension/FileManager/DiredBuffer.hs +3/−3
• Manatee/Extension/FileManager/DiredView.hs +2/−2
• Setup.hs +22/−0
• manatee-filemanager.cabal +11/−2

@@ -28,5 +28,6 @@ -- | Irc client render process. main :: IO () main = -    startupRender (\ pagePath client pageId -> PageBufferWrap <$> diredBufferNew pagePath client pageId)+    startupRender (\ pagePath options client pageId -> +                       PageBufferWrap <$> diredBufferNew pagePath options client pageId)     

@@ -108,8 +108,8 @@       compareRow FIPermission row1 row2 = return $ comparing fst (dfiPermDescrible  row1) (dfiPermDescrible  row2)  -- | New.-diredBufferNew :: FilePath -> Client -> PageId -> IO DiredBuffer-diredBufferNew dir client pageId = do+diredBufferNew :: FilePath -> [String] -> Client -> PageId -> IO DiredBuffer+diredBufferNew dir _ client pageId = do   -- Create buffer.   buffer <- DiredBuffer <$> newTVarIO dir                          <*> pure client @@ -178,7 +178,7 @@     -- Get Size.     sizeDes <- do       let fSize = toInteger $ fileInfoGetSize info-          title = formatFileSizeForDisplay fSize+          title = formatFileSizeForDisplay fSize 2       return (fSize, title)      -- Get MIME.

@@ -266,7 +266,7 @@       if directoryDoesExist (fromString filePath)          -- Open directory.          then if newTab-                 then mkDaemonSignal (pageViewClient view) NewTab (NewTabArgs "PageFileManager" filePath)+                 then mkDaemonSignal (pageViewClient view) NewTab (NewTabArgs "PageFileManager" filePath [])                  else diredViewEntryDirectory view filePath Nothing          -- Or open file.          else if fileDoesExist (fromString filePath) @@ -297,7 +297,7 @@   unless (dir == upperDir) $      if newTab        -- Send 'NewTab' signal to daemon process if open upper directory in new tab.-       then mkDaemonSignal (pageViewClient view) NewTab (NewTabArgs "PageFileManager" upperDir)+       then mkDaemonSignal (pageViewClient view) NewTab (NewTabArgs "PageFileManager" upperDir [])        -- Otherwise new upper directory in current buffer and select current directory.        else diredViewEntryDirectory view upperDir (Just (takeFileName $ dropTrailingPathSeparator dir)) 

@@ -1,3 +1,21 @@+-- Author:     Andy Stewart <lazycat.manatee@gmail.com>+-- Maintainer: Andy Stewart <lazycat.manatee@gmail.com>+-- +-- Copyright (C) 2010 Andy Stewart, all rights reserved.+-- +-- 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+-- 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.+-- +-- You should have received a copy of the GNU General Public License+-- along with this program.  If not, see <http://www.gnu.org/licenses/>.+ import Distribution.Simple import Manatee.Core.Config import Manatee.Core.Types@@ -16,4 +34,8 @@              (PageModeRule modeRule) <- readConfig pageModeRulePath (PageModeRule M.empty)              writeConfig pageModeRulePath (PageModeRule                                             (M.insert "PageFileManager" (Left $ pageModeName diredMode) modeRule))+             -- Update ExtensionGloalKeymap.+             (ExtensionGloalKeymap keymap) <- readConfig extensionGlobalKeymapPath (ExtensionGloalKeymap M.empty)+             writeConfig extensionGlobalKeymapPath (ExtensionGloalKeymap+                                                    (M.insert "F4" ("PageFileManager", "/home/", []) keymap))        }

@@ -1,11 +1,20 @@ name:			manatee-filemanager-version:		0.0.2+version:		0.0.3 Cabal-Version:	>= 1.6 license:		GPL-3 license-file:	LICENSE copyright:		(c) 2009 ~ 2010 Andy Stewart synopsis:		File manager extension for Manatee. description:    manatee-filemanager is file manager extension for Manatee (Haskell/Gtk+ Integrated Live Environment)+ .+ Manual look <http://haskell.org/haskellwiki/Manatee>+ .+ Screenshot at <http://goo.gl/MkVw>+ .+ IRC channel: + .+ irc.freenode.net 6667 <##manatee>+ . author:			Andy Stewart maintainer:		Andy Stewart <lazycat.manatee@gmail.com> stability:		provisional@@ -19,7 +28,7 @@   location:     http://patch-tag.com/r/AndyStewart/manatee-filemanager    Library-     build-depends: base >= 4 && < 5, manatee-core >= 0.0.2, dbus-client >= 0.3 && < 0.4, stm >= 2.1.2.0,+     build-depends: base >= 4 && < 5, manatee-core >= 0.0.3, 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