Merge branch 'master' into pm/add-data-transfer-api

Author: thomashoneyman

CHANGELOG.md

@@ -8,11 +8,22 @@ Breaking changes:
 
 New features:
 - Added `items` function for `DataTransfer` and related types (`DataTransferItem`, `DataTransferItemList`) (#55 by @ptrfrncsmrph)
+- Added `languages` value for `Navigator` (#59 by @toastal)
+- Added `HTMLHtmlElement` module and `documentElement` function `HTMLDocument` (#60 by @toastal)
+- Added `onLine` value for `Navigator` (#61 by @toastal)
 
 Bugfixes:
 
 Other improvements:
 
+## [v3.1.0](https://github.com/purescript-web/purescript-web-html/releases/tag/v3.1.0) - 2021-05-06
+
+New features:
+- Exported `fromHTMLMediaElement`, `stepUp`, and `stepDown` (#57 by @JordanMartinez)
+
+Other improvements:
+- Fixed warnings found by v0.14.1 PS release (#57 by @JordanMartinez)
+
 ## [v3.0.1](https://github.com/purescript-web/purescript-web-html/releases/tag/v3.0.1) - 2021-03-13
 
 New features:
@@ -33,8 +44,6 @@ New features:
 - Added missing attributes for `HTMLImage`, including `srcset`, `currentSrc`, `sizes`, `referrerPolicy`, `decoding`, `loading` (#40)
 - Added common `PropName`, `AttrName`, and `ClassName` which can be reused across libraries representing properties, attributes, and CSS classes (#30)
 
-Bugfixes:
-
 Other improvements:
 - Migrated CI to GitHub Actions and updated installation instructions to use Spago (#41)
 - Removed primes from foreign modules exports in preparation for PureScript 0.15 (#24)

src/Web/HTML/HTMLAudioElement.purs

@@ -1,5 +1,6 @@
 module Web.HTML.HTMLAudioElement
   ( HTMLAudioElement
+  , fromHTMLMediaElement
   , fromHTMLElement
   , fromElement
   , fromNode

src/Web/HTML/HTMLDocument.js

@@ -1,5 +1,11 @@
 "use strict";
 
+exports._documentElement = function (doc) {
+  return function () {
+    return doc.documentElement;
+  };
+};
+
 exports._head = function (doc) {
   return function () {
     return doc.head;

src/Web/HTML/HTMLDocument.purs

@@ -10,6 +10,7 @@ module Web.HTML.HTMLDocument
   , toParentNode
   , toNonElementParentNode
   , toEventTarget
+  , documentElement
   , head
   , body
   , readyState
@@ -34,6 +35,7 @@ import Web.Event.EventTarget (EventTarget)
 import Web.HTML.HTMLDocument.ReadyState (ReadyState)
 import Web.HTML.HTMLDocument.ReadyState as ReadyState
 import Web.HTML.HTMLElement (HTMLElement)
+import Web.HTML.HTMLHtmlElement (HTMLHtmlElement)
 import Web.HTML.HTMLScriptElement (HTMLScriptElement)
 import Web.Internal.FFI (unsafeReadProtoTagged)
 
@@ -69,6 +71,11 @@ toNonElementParentNode = unsafeCoerce
 toEventTarget :: HTMLDocument -> EventTarget
 toEventTarget = unsafeCoerce
 
+foreign import _documentElement :: HTMLDocument -> Effect (Nullable HTMLHtmlElement)
+
+documentElement :: HTMLDocument -> Effect (Maybe HTMLHtmlElement)
+documentElement = map toMaybe <<< _documentElement
+
 foreign import _head :: HTMLDocument -> Effect (Nullable HTMLElement)
 
 head :: HTMLDocument -> Effect (Maybe HTMLElement)

src/Web/HTML/HTMLHtmlElement.purs

@@ -0,0 +1,52 @@
+module Web.HTML.HTMLHtmlElement where
+
+import Data.Maybe (Maybe)
+import Unsafe.Coerce (unsafeCoerce)
+import Web.DOM (ChildNode, Element, Node, NonDocumentTypeChildNode, ParentNode)
+import Web.Event.EventTarget (EventTarget)
+import Web.HTML.HTMLElement (HTMLElement)
+import Web.Internal.FFI (unsafeReadProtoTagged)
+
+foreign import data HTMLHtmlElement :: Type
+
+fromHTMLElement :: HTMLElement -> Maybe HTMLHtmlElement
+fromHTMLElement = unsafeReadProtoTagged "HTMLHtmlElement"
+
+fromElement :: Element -> Maybe HTMLHtmlElement
+fromElement = unsafeReadProtoTagged "HTMLHtmlElement"
+
+fromNode :: Node -> Maybe HTMLHtmlElement
+fromNode = unsafeReadProtoTagged "HTMLHtmlElement"
+
+fromChildNode :: ChildNode -> Maybe HTMLHtmlElement
+fromChildNode = unsafeReadProtoTagged "HTMLHtmlElement"
+
+fromNonDocumentTypeChildNode :: NonDocumentTypeChildNode -> Maybe HTMLHtmlElement
+fromNonDocumentTypeChildNode = unsafeReadProtoTagged "HTMLHtmlElement"
+
+fromParentNode :: ParentNode -> Maybe HTMLHtmlElement
+fromParentNode = unsafeReadProtoTagged "HTMLHtmlElement"
+
+fromEventTarget :: EventTarget -> Maybe HTMLHtmlElement
+fromEventTarget = unsafeReadProtoTagged "HTMLHtmlElement"
+
+toHTMLElement :: HTMLHtmlElement -> HTMLElement
+toHTMLElement = unsafeCoerce
+
+toElement :: HTMLHtmlElement -> Element
+toElement = unsafeCoerce
+
+toNode :: HTMLHtmlElement -> Node
+toNode = unsafeCoerce
+
+toChildNode :: HTMLHtmlElement -> ChildNode
+toChildNode = unsafeCoerce
+
+toNonDocumentTypeChildNode :: HTMLHtmlElement -> NonDocumentTypeChildNode
+toNonDocumentTypeChildNode = unsafeCoerce
+
+toParentNode :: HTMLHtmlElement -> ParentNode
+toParentNode = unsafeCoerce
+
+toEventTarget :: HTMLHtmlElement -> EventTarget
+toEventTarget = unsafeCoerce

src/Web/HTML/HTMLInputElement.purs

@@ -85,7 +85,9 @@ module Web.HTML.HTMLInputElement
   , setValueAsNumber
   , width
   , setWidth
+  , stepUp
   , stepUp'
+  , stepDown
   , stepDown'
   , willValidate
   , validity

src/Web/HTML/Navigator.js

@@ -6,6 +6,18 @@ exports.language = function (navigator) {
   };
 };
 
+exports.languages = function (navigator) {
+  return function () {
+    return navigator.languages;
+  };
+};
+
+exports.onLine = function (navigator) {
+  return function () {
+    return navigator.onLine;
+  };
+};
+
 exports.platform = function (navigator) {
   return function () {
     return navigator.platform;
@@ -16,4 +28,4 @@ exports.userAgent = function (navigator) {
   return function () {
     return navigator.userAgent;
   };
-};
+};

src/Web/HTML/Navigator.purs

@@ -6,6 +6,10 @@ foreign import data Navigator :: Type
 
 foreign import language :: Navigator -> Effect String
 
+foreign import languages :: Navigator -> Effect (Array String)
+
+foreign import onLine :: Navigator -> Effect Boolean
+
 foreign import platform :: Navigator -> Effect String
 
-foreign import userAgent :: Navigator -> Effect String
+foreign import userAgent :: Navigator -> Effect String