diff --git a/Main.hs b/Main.hs
--- a/Main.hs
+++ b/Main.hs
@@ -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)
     
diff --git a/Manatee/Extension/FileManager/DiredBuffer.hs b/Manatee/Extension/FileManager/DiredBuffer.hs
--- a/Manatee/Extension/FileManager/DiredBuffer.hs
+++ b/Manatee/Extension/FileManager/DiredBuffer.hs
@@ -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.
diff --git a/Manatee/Extension/FileManager/DiredView.hs b/Manatee/Extension/FileManager/DiredView.hs
--- a/Manatee/Extension/FileManager/DiredView.hs
+++ b/Manatee/Extension/FileManager/DiredView.hs
@@ -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))
 
diff --git a/Setup.hs b/Setup.hs
--- a/Setup.hs
+++ b/Setup.hs
@@ -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))
        }
diff --git a/manatee-filemanager.cabal b/manatee-filemanager.cabal
--- a/manatee-filemanager.cabal
+++ b/manatee-filemanager.cabal
@@ -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