Merge pull request #36 from jonsterling/issue-35

DOM.HTML.Location: add setters; assign, replace, reload (#35)

Author: garyb

src/DOM/HTML/Location.js

@@ -9,50 +9,144 @@ exports.hash = function (location) {
   };
 };
 
+exports.setHash = function (hash) {
+  return function (location) {
+    return function () {
+      location.hash = hash;
+    };
+  };
+};
+
 exports.host = function (location) {
   return function () {
     return location.host;
   };
 };
 
+exports.setHost = function (host) {
+  return function (location) {
+    return function () {
+      location.host = host;
+    };
+  };
+};
+
 exports.hostname = function (location) {
   return function () {
     return location.hostname;
   };
 };
 
+exports.setHostname = function (hostname) {
+  return function (location) {
+    return function () {
+      location.hostname = hostname;
+    };
+  };
+};
+
 exports.href = function (location) {
   return function () {
     return location.href;
   };
 };
 
+exports.setHref = function (href) {
+  return function (location) {
+    return function () {
+      location.href = href;
+    };
+  };
+};
+
 exports.origin = function (location) {
   return function () {
     return location.origin;
   };
 };
 
+exports.setOrigin = function (origin) {
+  return function (location) {
+    return function () {
+      location.origin = origin;
+    };
+  };
+};
+
 exports.pathname = function (location) {
   return function () {
     return location.pathname;
   };
 };
 
+exports.setPathname = function (pathname) {
+  return function (location) {
+    return function () {
+      location.pathname = pathname;
+    };
+  };
+};
+
 exports.port = function (location) {
   return function () {
     return location.port;
   };
 };
 
+exports.setPort = function (port) {
+  return function (location) {
+    return function () {
+      location.port = port;
+    };
+  };
+};
+
 exports.protocol = function (location) {
   return function () {
     return location.protocol;
   };
 };
 
+exports.setProtocol = function (protocol) {
+  return function (location) {
+    return function () {
+      location.protocol = protocol;
+    };
+  };
+};
+
 exports.search = function (location) {
   return function () {
     return location.search;
   };
 };
+
+exports.setSearch = function (search) {
+  return function (location) {
+    return function () {
+      location.search = search;
+    };
+  };
+};
+
+exports.assign = function (url) {
+  return function (location) {
+    return function () {
+      location.assign(url);
+    };
+  };
+};
+
+exports.replace = function (url) {
+  return function (location) {
+    return function () {
+      location.replace(url);
+    };
+  };
+};
+
+exports.reload = function (location) {
+  return function() {
+    location.reload();
+  };
+};

src/DOM/HTML/Location.purs

@@ -1,16 +1,62 @@
-module DOM.HTML.Location where
+module DOM.HTML.Location
+  ( hash
+  , setHash
+  , host
+  , setHost
+  , hostname
+  , setHostname
+  , href
+  , setHref
+  , origin
+  , setOrigin
+  , pathname
+  , setPathname
+  , port
+  , setPort
+  , protocol
+  , setProtocol
+  , search
+  , setSearch
+
+  , assign
+  , replace
+  , reload
+  ) where
 
 import Control.Monad.Eff (Eff())
 
+import Prelude
+
 import DOM
 import DOM.HTML.Types
 
 foreign import hash :: forall eff. Location -> Eff (dom :: DOM | eff) String
+foreign import setHash :: forall eff. String -> Location -> Eff (dom :: DOM | eff) Unit
+
 foreign import host :: forall eff. Location -> Eff (dom :: DOM | eff) String
+foreign import setHost :: forall eff. String -> Location -> Eff (dom :: DOM | eff) Unit
+
 foreign import hostname :: forall eff. Location -> Eff (dom :: DOM | eff) String
+foreign import setHostname :: forall eff. String -> Location -> Eff (dom :: DOM | eff) Unit
+
 foreign import href :: forall eff. Location -> Eff (dom :: DOM | eff) String
+foreign import setHref :: forall eff. String -> Location -> Eff (dom :: DOM | eff) String
+
 foreign import origin :: forall eff. Location -> Eff (dom :: DOM | eff) String
+foreign import setOrigin :: forall eff. String -> Location -> Eff (dom :: DOM | eff) Unit
+
 foreign import pathname :: forall eff. Location -> Eff (dom :: DOM | eff) String
+foreign import setPathname :: forall eff. String -> Location -> Eff (dom :: DOM | eff) Unit
+
 foreign import port :: forall eff. Location -> Eff (dom :: DOM | eff) String
+foreign import setPort :: forall eff. String -> Location -> Eff (dom :: DOM | eff) Unit
+
 foreign import protocol :: forall eff. Location -> Eff (dom :: DOM | eff) String
+foreign import setProtocol :: forall eff. String -> Location -> Eff (dom :: DOM | eff) Unit
+
 foreign import search :: forall eff. Location -> Eff (dom :: DOM | eff) String
+foreign import setSearch :: forall eff. String -> Location -> Eff (dom :: DOM | eff) Unit
+
+foreign import assign :: forall eff. String -> Location -> Eff (dom :: DOM | eff) Unit
+foreign import replace :: forall eff. String -> Location -> Eff (dom :: DOM | eff) Unit
+foreign import reload :: forall eff. Location -> Eff (dom :: DOM | eff) Unit