manatee-browser 0.0.5 → 0.0.6
raw patch · 2 files changed
+20/−2 lines, 2 filesdep ~manatee-core
Dependency ranges changed: manatee-core
Files
Manatee/Extension/Browser/BrowserView.hs view
@@ -30,6 +30,7 @@ import Data.Typeable import Graphics.UI.Gtk hiding (Statusbar, statusbarNew, get) import Graphics.UI.Gtk.Gdk.SerializedEvent+import Graphics.UI.Gtk.WebKit.Download import Graphics.UI.Gtk.WebKit.WebFrame import Graphics.UI.Gtk.WebKit.WebSettings import Graphics.UI.Gtk.WebKit.WebView@@ -40,6 +41,7 @@ import Manatee.Core.Types import Manatee.Extension.Browser.BrowserBuffer import Manatee.Toolkit.General.Basic+import Manatee.Toolkit.General.DBus import Manatee.Toolkit.General.Map import Manatee.Toolkit.General.Maybe import Manatee.Toolkit.General.STM@@ -126,6 +128,20 @@ webView `on` progressChanged $ \ progress -> pageViewUpdateProgressStatus browserView (i2d progress)++ -- Download request signal.+ webView `on` downloadRequested $ \ download -> do+ downloadGetUri download+ >?>= \url -> do + -- Print downloading message.+ pageViewUpdateOutputStatus browserView ("Downloading " ++ url) Nothing+ -- Send download request to download manager.+ ifM (isBusNameExist $ packGenericBusName "curl") + -- Send DBus signal if curl process exit.+ (mkGenericDaemonSignal (pageViewClient browserView) "curl" Generic (GenericArgs "Download" [url]))+ -- Otherwise start process and pass url.+ (mkDaemonSignal (pageViewClient browserView) NewTab (NewTabArgs "PageCurl" "Download" [url]))+ return False -- Listen broadcast channel for synchronous view. browserViewListenChannel browserView
manatee-browser.cabal view
@@ -1,5 +1,5 @@ name: manatee-browser-version: 0.0.5+version: 0.0.6 Cabal-Version: >= 1.6 license: GPL-3 license-file: LICENSE@@ -7,6 +7,8 @@ synopsis: Browser extension for Manatee. description: manatee-browser is WebKit browser 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>+ . Screenshots at : <http://goo.gl/MkVw> . Manual at : <http://haskell.org/haskellwiki/Manatee>@@ -28,7 +30,7 @@ location: http://patch-tag.com/r/AndyStewart/manatee-browser Library- build-depends: base >= 4 && < 5, manatee-core >= 0.0.5, dbus-client >= 0.3 && < 0.4, stm >= 2.1.2.0,+ build-depends: base >= 4 && < 5, manatee-core >= 0.0.6, dbus-client >= 0.3 && < 0.4, stm >= 2.1.2.0, containers >= 0.3.0.0, webkit >= 0.12.0, gtk-serialized-event >= 0.12.0, gtk >= 0.12.0, text >= 0.7.1.0, mtl >= 1.1.0.2, utf8-string exposed-modules: