Merge pull request #13 from jonathanlking/feature/opener-function

Add Window.opener and Window.parent

Author: garyb

src/Web/HTML/Window.js

@@ -229,3 +229,15 @@ exports._cancelIdleCallback = function(id) {
     };
   };
 };
+
+exports.parent = function(window) {
+  return function() {
+    return window.parent;
+  };
+};
+
+exports._opener = function(window) {
+  return function() {
+    return window.opener;
+  };
+};

src/Web/HTML/Window.purs

@@ -33,6 +33,8 @@ module Web.HTML.Window
   , requestIdleCallback
   , cancelIdleCallback
   , RequestIdleCallbackId
+  , parent
+  , opener
   ) where
 
 import Data.Maybe (Maybe)
@@ -150,3 +152,10 @@ foreign import _cancelIdleCallback :: Int -> Window -> Effect Unit
 
 cancelIdleCallback :: RequestIdleCallbackId -> Window -> Effect Unit
 cancelIdleCallback idAF = _cancelIdleCallback (unwrap idAF)
+
+foreign import parent :: Window -> Effect Window
+
+foreign import _opener :: Window -> Effect (Nullable Window)
+
+opener :: Window -> Effect (Maybe Window)
+opener window = toMaybe <$> _opener window