Add more events (#105)

Author: Mark Eibes

codegen/consts.js

@@ -56,23 +56,84 @@ module.exports.types = {
   "multiple": "Boolean",
   "muted": "Boolean",
   "noValidate": "Boolean",
+  "onAbort": "EventHandler",
+  "onAnimationEnd": "EventHandler",
+  "onAnimationIteration": "EventHandler",
+  "onAnimationStart": "EventHandler",
   "onBlur": "EventHandler",
+  "onCanPlay": "EventHandler",
+  "onCanPlayThrough": "EventHandler",
   "onChange": "EventHandler",
   "onClick": "EventHandler",
+  "onCompositionEnd": "EventHandler",
+  "onCompositionStart": "EventHandler",
+  "onCompositionUpdate": "EventHandler",
+  "onContextMenu": "EventHandler",
+  "onCopy": "EventHandler",
+  "onCut": "EventHandler",
+  "onDoubleClick": "EventHandler",
+  "onDrag": "EventHandler",
+  "onDragEnd": "EventHandler",
+  "onDragEnter": "EventHandler",
+  "onDragExit": "EventHandler",
+  "onDragLeave": "EventHandler",
+  "onDragOver": "EventHandler",
+  "onDragStart": "EventHandler",
+  "onDrop": "EventHandler",
+  "onDurationChange": "EventHandler",
+  "onEmptied": "EventHandler",
+  "onEncrypted": "EventHandler",
+  "onEnded": "EventHandler",
+  "onError": "EventHandler",
   "onFocus": "EventHandler",
+  "onGotPointerCapture": "EventHandler",
   "onInput": "EventHandler",
   "onInvalid": "EventHandler",
   "onKeyDown": "EventHandler",
   "onKeyPress": "EventHandler",
   "onKeyUp": "EventHandler",
+  "onLoad": "EventHandler",
+  "onLoadedData": "EventHandler",
+  "onLoadedMetadata": "EventHandler",
+  "onLoadStart": "EventHandler",
+  "onLostPointerCapture": "EventHandler",
   "onMouseDown": "EventHandler",
   "onMouseEnter": "EventHandler",
   "onMouseLeave": "EventHandler",
   "onMouseMove": "EventHandler",
   "onMouseOut": "EventHandler",
   "onMouseOver": "EventHandler",
   "onMouseUp": "EventHandler",
+  "onPaste": "EventHandler",
+  "onPause": "EventHandler",
+  "onPlay": "EventHandler",
+  "onPlaying": "EventHandler",
+  "onPointerCancel": "EventHandler",
+  "onPointerDown": "EventHandler",
+  "onPointerEnter": "EventHandler",
+  "onPointerLeave": "EventHandler",
+  "onPointerMove": "EventHandler",
+  "onPointerOut": "EventHandler",
+  "onPointerOver": "EventHandler",
+  "onPointerUp": "EventHandler",
+  "onProgress": "EventHandler",
+  "onRateChange": "EventHandler",
+  "onScroll": "EventHandler",
+  "onSeeked": "EventHandler",
+  "onSeeking": "EventHandler",
+  "onSelect": "EventHandler",
+  "onStalled": "EventHandler",
   "onSubmit": "EventHandler",
+  "onSuspend": "EventHandler",
+  "onTimeUpdate": "EventHandler",
+  "onTouchCancel": "EventHandler",
+  "onTouchEnd": "EventHandler",
+  "onTouchMove": "EventHandler",
+  "onTouchStart": "EventHandler",
+  "onTransitionEnd": "EventHandler",
+  "onVolumeChange": "EventHandler",
+  "onWaiting": "EventHandler",
+  "onWheel": "EventHandler",
   "open": "Boolean",
   "playsInline": "Boolean",
   "readOnly": "Boolean",

codegen/react-html-attributes.json

@@ -54,19 +54,57 @@
     "mediaGroup",
     "minLength",
     "noValidate",
+    "onAnimationEnd",
+    "onAnimationIteration",
+    "onAnimationStart",
     "onBlur",
     "onClick",
+    "onCompositionEnd",
+    "onCompositionStart",
+    "onCompositionUpdate",
+    "onContextMenu",
+    "onCopy",
+    "onCut",
+    "onDoubleClick",
+    "onDrag",
+    "onDragEnd",
+    "onDragEnter",
+    "onDragExit",
+    "onDragLeave",
+    "onDragOver",
+    "onDragStart",
+    "onDrop",
     "onFocus",
+    "onGotPointerCapture",
+    "onInvalid",
     "onKeyDown",
     "onKeyPress",
     "onKeyUp",
+    "onLostPointerCapture",
     "onMouseDown",
     "onMouseEnter",
     "onMouseLeave",
     "onMouseMove",
     "onMouseOut",
     "onMouseOver",
     "onMouseUp",
+    "onPaste",
+    "onPointerCancel",
+    "onPointerDown",
+    "onPointerEnter",
+    "onPointerLeave",
+    "onPointerMove",
+    "onPointerOut",
+    "onPointerOver",
+    "onPointerUp",
+    "onSelect",
+    "onSubmit",
+    "onTouchCancel",
+    "onTouchEnd",
+    "onTouchMove",
+    "onTouchStart",
+    "onTransitionEnd",
+    "onWheel",
     "prefix",
     "property",
     "radioGroup",
@@ -126,7 +164,31 @@
     "loop",
     "muted",
     "preload",
-    "src"
+    "src",
+    "onAbort",
+    "onCanPlay",
+    "onCanPlayThrough",
+    "onDurationChange",
+    "onEmptied",
+    "onEncrypted",
+    "onEnded",
+    "onError",
+    "onLoadedData",
+    "onLoadedMetadata",
+    "onLoadStart",
+    "onPause",
+    "onPlay",
+    "onPlaying",
+    "onProgress",
+    "onRateChange",
+    "onScroll",
+    "onSeeked",
+    "onSeeking",
+    "onStalled",
+    "onSuspend",
+    "onTimeUpdate",
+    "onVolumeChange",
+    "onWaiting"
   ],
   "base": [
     "href",
@@ -233,7 +295,8 @@
     "name",
     "sizes",
     "src",
-    "width"
+    "width",
+    "onLoad"
   ],
   "input": [
     "accept",
@@ -425,17 +488,6 @@
   "ul": [
     "type"
   ],
-  "video": [
-    "controls",
-    "height",
-    "loop",
-    "muted",
-    "playsInline",
-    "poster",
-    "preload",
-    "src",
-    "width"
-  ],
   "svg": [
     "accentHeight",
     "accumulate",
@@ -801,6 +853,41 @@
       "video",
       "wbr"
     ],
+    "video": [
+      "controls",
+      "height",
+      "loop",
+      "muted",
+      "playsInline",
+      "poster",
+      "preload",
+      "src",
+      "width",
+      "onAbort",
+      "onCanPlay",
+      "onCanPlayThrough",
+      "onDurationChange",
+      "onEmptied",
+      "onEncrypted",
+      "onEnded",
+      "onError",
+      "onLoadedData",
+      "onLoadedMetadata",
+      "onLoadStart",
+      "onPause",
+      "onPlay",
+      "onPlaying",
+      "onProgress",
+      "onRateChange",
+      "onScroll",
+      "onSeeked",
+      "onSeeking",
+      "onStalled",
+      "onSuspend",
+      "onTimeUpdate",
+      "onVolumeChange",
+      "onWaiting"
+    ],
     "svg": [
       "a",
       "altGlyph",

src/React/Basic/DOM/Events.purs

@@ -1,10 +1,10 @@
 -- | This module defines safe DOM event function and property accessors.
-
 module React.Basic.DOM.Events
   ( capture
   , capture_
   , bubbles
   , cancelable
+  , compositionData
   , eventPhase
   , eventPhaseNone
   , eventPhaseCapturing
@@ -44,7 +44,6 @@ module React.Basic.DOM.Events
   ) where
 
 import Prelude
-
 import Data.Maybe (Maybe)
 import Data.Nullable (toMaybe)
 import Effect (Effect)
@@ -53,6 +52,7 @@ import React.Basic.Events (EventFn, EventHandler, SyntheticEvent, handler, unsaf
 import Unsafe.Coerce (unsafeCoerce)
 import Web.Event.Internal.Types (Event, EventTarget)
 import Web.File.FileList (FileList)
+import Web.HTML.Event.DataTransfer (DataTransfer)
 
 -- | Create a capturing\* `EventHandler` to send an action when an event occurs. For
 -- | more complicated event handlers requiring `Effect`, use `handler` from `React.Basic.Events`.
@@ -141,7 +141,6 @@ type_ :: EventFn SyntheticEvent String
 type_ = unsafeEventFn \e -> (unsafeCoerce e)."type"
 
 -- | Keyboard event fields
-
 key :: EventFn SyntheticEvent (Maybe String)
 key = unsafeEventFn \e -> toMaybe (unsafeCoerce e).key
 
@@ -161,7 +160,6 @@ locale :: EventFn SyntheticEvent (Maybe String)
 locale = unsafeEventFn \e -> toMaybe (unsafeCoerce e).locale
 
 -- | Mouse event fields
-
 detail :: EventFn SyntheticEvent (Maybe Int)
 detail = unsafeEventFn \e -> toMaybe (unsafeCoerce e).detail
 
@@ -184,7 +182,6 @@ buttons :: EventFn SyntheticEvent (Maybe Int)
 buttons = unsafeEventFn \e -> toMaybe (unsafeCoerce e).buttons
 
 -- \ Shared keyboard + mouse fields
-
 ctrlKey :: EventFn SyntheticEvent (Maybe Boolean)
 ctrlKey = unsafeEventFn \e -> toMaybe (unsafeCoerce e).ctrlKey
 
@@ -196,3 +193,11 @@ altKey = unsafeEventFn \e -> toMaybe (unsafeCoerce e).altKey
 
 metaKey :: EventFn SyntheticEvent (Maybe Boolean)
 metaKey = unsafeEventFn \e -> toMaybe (unsafeCoerce e).metaKey
+
+-- \ Clipboard Events
+clipboardData :: EventFn SyntheticEvent (Maybe DataTransfer)
+clipboardData = unsafeEventFn \e -> toMaybe (unsafeCoerce e).clipboardData
+
+-- \ Composition Events
+compositionData :: EventFn SyntheticEvent (Maybe String)
+compositionData = unsafeEventFn \e -> toMaybe (unsafeCoerce e).data