Merge pull request #84 from purescript-contrib/webstorage

Add WebStorage API types & functions

Author: garyb

.travis.yml

@@ -1,14 +1,8 @@
 language: node_js
 dist: trusty
 sudo: required
-node_js: 6
-env:
-  - PATH=$HOME/purescript:$PATH
+node_js: stable
 install:
-  - TAG=$(wget -q -O - https://github.com/purescript/purescript/releases/latest --server-response --max-redirect 0 2>&1 | sed -n -e 's/.*Location:.*tag\///p')
-  - wget -O $HOME/purescript.tar.gz https://github.com/purescript/purescript/releases/download/$TAG/linux64.tar.gz
-  - tar -xvf $HOME/purescript.tar.gz -C $HOME/
-  - chmod a+x $HOME/purescript
   - npm install -g bower
   - npm install
   - bower install

package.json

@@ -5,10 +5,11 @@
     "build": "eslint src && pulp build --censor-lib --strict"
   },
   "devDependencies": {
-    "phantomjs-prebuilt": "^2.1.13",
     "eslint": "^3.8.1",
+    "phantomjs-prebuilt": "^2.1.13",
     "pulp": "^9.0.1",
     "purescript-psa": "^0.3.9",
+    "purescript": "^0.10.6",
     "rimraf": "^2.5.4"
   }
 }

src/DOM/HTML/Window.js

@@ -189,3 +189,15 @@ exports.url = function (window) {
     return window.URL;
   };
 };
+
+exports.localStorage = function (window) {
+  return function () {
+    return window.localStorage;
+  };
+};
+
+exports.sessionStorage = function (window) {
+  return function () {
+    return window.sessionStorage;
+  };
+};

src/DOM/HTML/Window.purs

@@ -24,11 +24,14 @@ module DOM.HTML.Window
   , scrollX
   , scrollY
   , url
+  , localStorage
+  , sessionStorage
   ) where
 
 import Control.Monad.Eff (Eff)
 import DOM (DOM)
 import DOM.HTML.Types (ALERT, CONFIRM, HISTORY, HTMLDocument, History, Location, Navigator, PROMPT, WINDOW, Window, URL)
+import DOM.WebStorage.Types (Storage)
 import Data.Maybe (Maybe)
 import Data.Nullable (Nullable, toMaybe)
 import Prelude (Unit, (<$>))
@@ -95,3 +98,7 @@ foreign import scrollBy :: forall eff. Int -> Int -> Window -> Eff (window :: WI
 foreign import scrollX :: forall eff. Window -> Eff (dom :: DOM | eff) Int
 
 foreign import scrollY :: forall eff. Window -> Eff (dom :: DOM | eff) Int
+
+foreign import localStorage :: forall eff. Window -> Eff (dom :: DOM | eff) Storage
+
+foreign import sessionStorage :: forall eff. Window -> Eff (dom :: DOM | eff) Storage

src/DOM/WebStorage/Event/StorageEvent.js

@@ -0,0 +1,31 @@
+"use strict";
+
+exports.key = function (storage) {
+  return function () {
+    return storage.key;
+  };
+};
+
+exports.oldValue = function (storage) {
+  return function () {
+    return storage.oldValue;
+  };
+};
+
+exports.newValue = function (storage) {
+  return function () {
+    return storage.newValue;
+  };
+};
+
+exports.url = function (storage) {
+  return function () {
+    return storage.url;
+  };
+};
+
+exports.storageArea = function (storage) {
+  return function () {
+    return storage.storageArea;
+  };
+};

src/DOM/WebStorage/Event/StorageEvent.purs

@@ -0,0 +1,16 @@
+module DOM.WebStorage.Event.StorageEvent
+  ( module DOM.WebStorage.Event.StorageEvent
+  , module DOM.WebStorage.Event.Types
+  , module DOM.WebStorage.Types
+  ) where
+
+import DOM.WebStorage.Types (Storage)
+import DOM.WebStorage.Event.Types (StorageEvent)
+
+import Data.Nullable (Nullable)
+
+foreign import key :: StorageEvent -> Nullable String
+foreign import oldValue :: StorageEvent -> Nullable String
+foreign import newValue :: StorageEvent -> Nullable String
+foreign import url :: StorageEvent -> String
+foreign import storageArea :: StorageEvent -> Nullable Storage

src/DOM/WebStorage/Event/Types.purs

@@ -0,0 +1,15 @@
+module DOM.WebStorage.Event.Types where
+
+import Data.Foreign (Foreign, F, unsafeReadTagged)
+
+import DOM.Event.Types (Event)
+
+import Unsafe.Coerce as U
+
+foreign import data StorageEvent :: Type
+
+readStorageEvent :: Foreign -> F StorageEvent
+readStorageEvent = unsafeReadTagged "StorageEvent"
+
+storageEventToEvent :: StorageEvent -> Event
+storageEventToEvent = U.unsafeCoerce

src/DOM/WebStorage/Storage.js

@@ -0,0 +1,47 @@
+"use strict";
+
+exports.length = function (storage) {
+  return function () {
+    return storage.length;
+  };
+};
+
+exports.key = function (index) {
+  return function (storage) {
+    return function () {
+      return storage.key(index);
+    };
+  };
+};
+
+exports.getItem = function (key) {
+  return function (storage) {
+    return function () {
+      return storage.getItem(key);
+    };
+  };
+};
+
+exports.setItem = function (key) {
+  return function (value) {
+    return function (storage) {
+      return function () {
+        storage.setItem(key, value);
+      };
+    };
+  };
+};
+
+exports.removeItem = function (key) {
+  return function (storage) {
+    return function () {
+      storage.removeItem(key);
+    };
+  };
+};
+
+exports.clear = function (storage) {
+  return function () {
+    storage.clear();
+  };
+};

src/DOM/WebStorage/Storage.purs

@@ -0,0 +1,20 @@
+module DOM.WebStorage.Storage
+  ( module DOM.WebStorage.Storage
+  , module DOM.WebStorage.Types
+  ) where
+
+import Prelude
+
+import Control.Monad.Eff (Eff)
+
+import DOM (DOM)
+import DOM.WebStorage.Types (Storage)
+
+import Data.Nullable (Nullable)
+
+foreign import length :: forall eff. Storage -> Eff (dom :: DOM | eff) Int
+foreign import key :: forall eff. Int -> Storage -> Eff (dom :: DOM | eff) (Nullable String)
+foreign import getItem :: forall eff. String -> Storage -> Eff (dom :: DOM | eff) (Nullable String)
+foreign import setItem :: forall eff. String -> String -> Storage -> Eff (dom :: DOM | eff) Unit
+foreign import removeItem :: forall eff. String -> Storage -> Eff (dom :: DOM | eff) Unit
+foreign import clear :: forall eff. Storage -> Eff (dom :: DOM | eff) Unit

src/DOM/WebStorage/Types.purs

@@ -0,0 +1,8 @@
+module DOM.WebStorage.Types where
+
+import Data.Foreign (Foreign, F, unsafeReadTagged)
+
+foreign import data Storage :: Type
+
+readStorage :: Foreign -> F Storage
+readStorage = unsafeReadTagged "Storage"