Merge pull request #78 from justinwoo/add-blob-actions

Add Blob URL actions `(create|revoke)ObjectURL`

Author: garyb

src/DOM/HTML/Types.purs

@@ -3,6 +3,7 @@ module DOM.HTML.Types
   ( Navigator
   , Location
   , History
+  , URL
   , Window
   , ALERT
   , CONFIRM
@@ -231,6 +232,8 @@ foreign import data Window :: *
 
 foreign import data History :: *
 
+foreign import data URL :: *
+
 foreign import data ALERT :: !
 
 foreign import data HISTORY :: !

src/DOM/HTML/URL.js

@@ -0,0 +1,17 @@
+"use strict";
+
+exports.createObjectURL = function (fileOrBlob) {
+  return function (URL) {
+    return function () {
+      return URL.createObjectURL(fileOrBlob);
+    };
+  };
+};
+
+exports.revokeObjectURL = function (objectURL) {
+  return function (URL) {
+    return function () {
+      return URL.revokeObjectURL(objectURL);
+    };
+  };
+};

src/DOM/HTML/URL.purs

@@ -0,0 +1,14 @@
+module DOM.HTML.URL
+  ( createObjectURL
+  , revokeObjectURL
+  ) where
+
+import Control.Monad.Eff (Eff)
+import DOM (DOM)
+import DOM.File.Types (File)
+import DOM.HTML.Types (URL)
+import Data.Unit (Unit)
+
+foreign import createObjectURL :: forall eff. File -> URL -> Eff (dom :: DOM | eff) String
+
+foreign import revokeObjectURL :: forall eff. String -> URL -> Eff (dom :: DOM | eff) Unit

src/DOM/HTML/Window.js

@@ -181,3 +181,9 @@ exports.scrollY = function (window) {
     return window.scrollY;
   };
 };
+
+exports.url = function (window) {
+  return function () {
+    return window.URL;
+  };
+};

src/DOM/HTML/Window.purs

@@ -22,11 +22,12 @@ module DOM.HTML.Window
   , scrollBy
   , scrollX
   , scrollY
+  , url
   ) where
 
 import Control.Monad.Eff (Eff)
 import DOM (DOM)
-import DOM.HTML.Types (ALERT, CONFIRM, HISTORY, HTMLDocument, History, Location, Navigator, PROMPT, WINDOW, Window)
+import DOM.HTML.Types (ALERT, CONFIRM, HISTORY, HTMLDocument, History, Location, Navigator, PROMPT, WINDOW, Window, URL)
 import Data.Maybe (Maybe)
 import Data.Nullable (Nullable, toMaybe)
 import Prelude (Unit, (<$>))
@@ -39,6 +40,8 @@ foreign import location :: forall eff. Window -> Eff (dom :: DOM | eff) Location
 
 foreign import history :: forall e. Window -> Eff (history :: HISTORY | e) History
 
+foreign import url :: forall eff. Window -> Eff (dom :: DOM | eff) URL
+
 foreign import innerWidth :: forall eff. Window -> Eff (dom :: DOM | eff) Int
 
 foreign import innerHeight :: forall eff. Window -> Eff (dom :: DOM | eff) Int
@@ -52,7 +55,7 @@ foreign import moveBy :: forall eff. Int -> Int -> Window -> Eff (window :: WIND
 foreign import moveTo :: forall eff. Int -> Int -> Window -> Eff (window :: WINDOW | eff) Unit
 
 open :: forall eff. String -> String -> String -> Window -> Eff (window :: WINDOW | eff) (Maybe Window)
-open window url name features = toMaybe <$> _open window url name features
+open window url' name features = toMaybe <$> _open window url' name features
 
 foreign import _open
   :: forall eff