Event coercions, consolidate EventTypes by event type

Author: garyb

src/Web/HTML/Event/BeforeUnloadEvent.purs

@@ -2,19 +2,20 @@ module Web.HTML.Event.BeforeUnloadEvent where
 
 import Prelude
 
+import Data.Maybe (Maybe)
 import Effect (Effect)
-import Foreign (F, Foreign, unsafeReadTagged)
 import Unsafe.Coerce (unsafeCoerce)
 import Web.Event.Event (Event)
+import Web.Internal.FFI (unsafeReadProtoTagged)
 
 foreign import data BeforeUnloadEvent :: Type
 
+fromEvent :: Event -> Maybe BeforeUnloadEvent
+fromEvent = unsafeReadProtoTagged "BeforeUnloadEvent"
+
 toEvent :: BeforeUnloadEvent -> Event
 toEvent = unsafeCoerce
 
-read :: Foreign -> F BeforeUnloadEvent
-read = unsafeReadTagged "BeforeUnloadEvent"
-
 foreign import returnValue :: BeforeUnloadEvent -> Effect String
 
 foreign import setReturnValue :: String -> BeforeUnloadEvent -> Effect Unit

src/Web/HTML/Event/BeforeUnloadEvent/EventTypes.purs

@@ -0,0 +1,6 @@
+module Web.HTML.Event.BeforeUnloadEvent.EventTypes where
+
+import Web.Event.Event (EventType(..))
+
+beforeunload :: EventType
+beforeunload = EventType "beforeunload"

src/Web/HTML/Event/DragEvent.purs

@@ -1,16 +1,17 @@
 module Web.HTML.Event.DragEvent where
 
-import Foreign (Foreign, F, unsafeReadTagged)
+import Data.Maybe (Maybe)
 import Unsafe.Coerce (unsafeCoerce)
 import Web.Event.Event (Event)
 import Web.HTML.Event.DataTransfer (DataTransfer)
+import Web.Internal.FFI (unsafeReadProtoTagged)
 
 foreign import data DragEvent :: Type
 
-dragEventToEvent :: DragEvent -> Event
-dragEventToEvent = unsafeCoerce
+fromEvent :: Event -> Maybe DragEvent
+fromEvent = unsafeReadProtoTagged "DragEvent"
 
-readDragEvent :: Foreign -> F DragEvent
-readDragEvent = unsafeReadTagged "DragEvent"
+toEvent :: DragEvent -> Event
+toEvent = unsafeCoerce
 
 foreign import dataTransfer :: DragEvent -> DataTransfer

src/Web/HTML/Event/ErrorEvent.purs

@@ -1,17 +1,18 @@
 module Web.HTML.Event.ErrorEvent where
 
-import Foreign (F, Foreign, unsafeReadTagged)
+import Data.Maybe (Maybe)
 import Unsafe.Coerce (unsafeCoerce)
 import Web.Event.Event (Event)
+import Web.Internal.FFI (unsafeReadProtoTagged)
 
 foreign import data ErrorEvent :: Type
 
+fromEvent :: Event -> Maybe ErrorEvent
+fromEvent = unsafeReadProtoTagged "ErrorEvent"
+
 toEvent :: ErrorEvent -> Event
 toEvent = unsafeCoerce
 
-read :: Foreign -> F ErrorEvent
-read = unsafeReadTagged "ErrorEvent"
-
 foreign import message :: ErrorEvent -> String
 
 foreign import fileName :: ErrorEvent -> String

src/Web/HTML/Event/EventTypes.purs

@@ -2,21 +2,45 @@ module Web.HTML.Event.EventTypes where
 
 import Web.Event.Event (EventType(..))
 
+abort :: EventType
+abort = EventType "abort"
+
+afterprint :: EventType
+afterprint = EventType "afterprint"
+
+afterscriptexecute :: EventType
+afterscriptexecute = EventType "afterscriptexecute"
+
+beforeprint :: EventType
+beforeprint = EventType "beforeprint"
+
+beforescriptexecute :: EventType
+beforescriptexecute = EventType "beforescriptexecute"
+
 blur :: EventType
 blur = EventType "blur"
 
+cancel :: EventType
+cancel = EventType "cancel"
+
 change :: EventType
 change = EventType "change"
 
 click :: EventType
 click = EventType "click"
 
+close :: EventType
+close = EventType "close"
+
 copy :: EventType
 copy = EventType "copy"
 
 cut :: EventType
 cut = EventType "cut"
 
+domcontentloaded :: EventType
+domcontentloaded = EventType "DOMContentLoaded"
+
 error :: EventType
 error = EventType "error"
 
@@ -35,6 +59,15 @@ languagechange = EventType "languagechange"
 load :: EventType
 load = EventType "load"
 
+loadend :: EventType
+loadend = EventType "loadend"
+
+loadstart :: EventType
+loadstart = EventType "loadstart"
+
+message :: EventType
+message = EventType "message"
+
 offline :: EventType
 offline = EventType "offline"
 
@@ -44,5 +77,26 @@ online = EventType "online"
 paste :: EventType
 paste = EventType "paste"
 
+progress :: EventType
+progress = EventType "progress"
+
+readystatechange :: EventType
+readystatechange = EventType "readystatechange"
+
+reset :: EventType
+reset = EventType "reset"
+
 select :: EventType
 select = EventType "select"
+
+storage :: EventType
+storage = EventType "storage"
+
+submit :: EventType
+submit = EventType "submit"
+
+toggle :: EventType
+toggle = EventType "toggle"
+
+unload :: EventType
+unload = EventType "unload"

src/Web/HTML/Event/HashChangeEvent.purs

@@ -1,17 +1,18 @@
 module Web.HTML.Event.HashChangeEvent where
 
-import Foreign (F, Foreign, unsafeReadTagged)
+import Data.Maybe (Maybe)
 import Unsafe.Coerce (unsafeCoerce)
 import Web.Event.Event (Event)
+import Web.Internal.FFI (unsafeReadProtoTagged)
 
 foreign import data HashChangeEvent :: Type
 
+fromEvent :: Event -> Maybe HashChangeEvent
+fromEvent = unsafeReadProtoTagged "HashChangeEvent"
+
 toEvent :: HashChangeEvent -> Event
 toEvent = unsafeCoerce
 
-read :: Foreign -> F HashChangeEvent
-read = unsafeReadTagged "HashChangeEvent"
-
 foreign import oldURL :: HashChangeEvent -> String
 
 foreign import newURL :: HashChangeEvent -> String

src/Web/HTML/Event/HashChangeEvent/EventTypes.purs

@@ -0,0 +1,6 @@
+module Web.HTML.Event.HashChangeEvent.EventTypes where
+
+import Web.Event.Event (EventType(..))
+
+hashchange :: EventType
+hashchange = EventType "hashchange"

src/Web/HTML/Event/PageTransitionEvent.purs

@@ -1,15 +1,16 @@
 module Web.HTML.Event.PageTransitionEvent where
 
-import Foreign (F, Foreign, unsafeReadTagged)
+import Data.Maybe (Maybe)
 import Unsafe.Coerce (unsafeCoerce)
 import Web.Event.Event (Event)
+import Web.Internal.FFI (unsafeReadProtoTagged)
 
 foreign import data PageTransitionEvent :: Type
 
+fromEvent :: Event -> Maybe PageTransitionEvent
+fromEvent = unsafeReadProtoTagged "PageTransitionEvent"
+
 toEvent :: PageTransitionEvent -> Event
 toEvent = unsafeCoerce
 
-read :: Foreign -> F PageTransitionEvent
-read = unsafeReadTagged "PageTransitionEvent"
-
 foreign import persisted :: PageTransitionEvent -> Boolean

src/Web/HTML/Event/PageTransitionEvent/EventTypes.purs

@@ -0,0 +1,9 @@
+module Web.HTML.Event.PageTransitionEvent.EventTypes where
+
+import Web.Event.Event (EventType(..))
+
+pagehide :: EventType
+pagehide = EventType "pagehide"
+
+pageshow :: EventType
+pageshow = EventType "pageshow"

src/Web/HTML/Event/PopStateEvent.purs

@@ -1,15 +1,17 @@
 module Web.HTML.Event.PopStateEvent where
 
-import Foreign (F, Foreign, unsafeReadTagged)
+import Data.Maybe (Maybe)
+import Foreign (Foreign)
 import Unsafe.Coerce (unsafeCoerce)
 import Web.Event.Event (Event)
+import Web.Internal.FFI (unsafeReadProtoTagged)
 
 foreign import data PopStateEvent :: Type
 
+fromEvent :: Event -> Maybe PopStateEvent
+fromEvent = unsafeReadProtoTagged "PopStateEvent"
+
 toEvent :: PopStateEvent -> Event
 toEvent = unsafeCoerce
 
-read :: Foreign -> F PopStateEvent
-read = unsafeReadTagged "PopStateEvent"
-
 foreign import state :: PopStateEvent -> Foreign

src/Web/HTML/Event/PopStateEvent/EventTypes.purs

@@ -0,0 +1,6 @@
+module Web.HTML.Event.PopStateEvent.EventTypes where
+
+import Web.Event.Event (EventType(..))
+
+popstate :: EventType
+popstate = EventType "popstate"

src/Web/HTML/Event/TrackEvent.purs

@@ -1,15 +1,16 @@
 module Web.HTML.Event.TrackEvent where
 
-import Foreign (Foreign, F, unsafeReadTagged)
+import Data.Maybe (Maybe)
 import Unsafe.Coerce (unsafeCoerce)
 import Web.Event.Event (Event)
+import Web.Internal.FFI (unsafeReadProtoTagged)
 
 foreign import data TrackEvent :: Type
 
+fromEvent :: Event -> Maybe TrackEvent
+fromEvent = unsafeReadProtoTagged "TrackEvent"
+
 toEvent :: TrackEvent -> Event
 toEvent = unsafeCoerce
 
-read :: Foreign -> F TrackEvent
-read = unsafeReadTagged "TrackEvent"
-
 -- readonly attribute (VideoTrack or AudioTrack or TextTrack)? track;

src/Web/HTML/Event/TrackEvent/EventTypes.purs

@@ -0,0 +1,9 @@
+module Web.HTML.Event.TrackEvent.EventTypes where
+
+import Web.Event.Event (EventType(..))
+
+addtrack :: EventType
+addtrack = EventType "addtrack"
+
+removetrack :: EventType
+removetrack = EventType "removetrack"