fine tuning the event model

src/actions/dispatch.coffee

@@ -1,7 +1,7 @@
 import {curry, pipe} from "@dashkite/joy/function"
 import {pop, read} from "@dashkite/katana/sync"
 
-_dispatch = curry (name, handle) -> handle.dispatch name
+_dispatch = curry (name, handle, detail) -> handle.dispatch name, detail
 
 dispatch = (name) ->
   pipe [

src/actions/index.coffee

@@ -1,6 +1,7 @@
 export * from "./call"
 export * from "./get"
 export * from "./set"
+export * from "./dispatch"
 export * from "./render"
 export * from "./form"
 export * from "./disable"

src/event/matches.coffee

@@ -1,11 +1,22 @@
-import {curry, pipe} from "@dashkite/joy/function"
+import {curry, binary, pipe} from "@dashkite/joy/function"
+import {generic} from "@dashkite/joy/generic"
+import {isString} from "@dashkite/joy/type"
 import {test} from "@dashkite/katana/sync"
 
-_matches = curry (selector, event, {handle}) ->
-  if (event?.target?.matches selector)?
-    true
-  else
-    false
+isEvent = (x) -> x instanceof Event
+isNode = (x) -> x instanceof Node
+
+_matches = generic
+  name: "_matches"
+  default: -> false
+
+generic _matches, isString, isEvent, (selector, event) ->
+  _matches selector, event.target
+
+generic _matches, isString, isNode, (selector, el) ->
+  el.matches selector
+
+_matches = curry binary _matches
 
 matches = (selector, fx) -> test (_matches selector), pipe fx
 

src/event/within.coffee

@@ -2,10 +2,13 @@ import * as F from "@dashkite/joy/function"
 import * as T from "@dashkite/joy/type"
 import {push, test} from "@dashkite/katana/sync"
 
-_within = (selector) -> (event, handle) ->
-  if (target = (event?.target?.closest? selector))?
-    if handle.root.contains target
-      target
+_within = (selector) ->
+  (event, handle) ->
+    event.composedPath()
+      .find (el) ->
+        (el instanceof Node) &&
+          (handle.root.contains el) &&
+          (el.matches? selector)
 
 within = (selector, fx) ->
   F.pipe [

src/handle.coffee

@@ -14,7 +14,7 @@ class Handle
   on: (name, handler) -> @root.addEventListener name, handler.bind @
 
   dispatch: (name, detail) ->
-    @root.dispatchEvent new CustomEvent name,
+    @dom.dispatchEvent new CustomEvent name,
       detail: detail ? @
       bubbles: true
       cancelable: false

src/initialize/capture.coffee

@@ -0,0 +1,15 @@
+import * as F from "@dashkite/joy/function"
+import * as Ks from "@dashkite/katana/sync"
+
+capture = (name, fx) ->
+  Ks.peek (handle) ->
+    handler = F.pipe [
+      Ks.read "handle"
+      Ks.read "event"
+      F.pipe fx
+    ]
+    handle.root.addEventListener name,
+      ((event) -> handler { handle, event }),
+      capture: true
+
+export { capture }

src/initialize/index.coffee

@@ -3,6 +3,7 @@ export * from "./describe"
 export * from "./observe"
 export * from "./navigate"
 export * from "./event"
+export * from "./capture"
 export * from "./click"
 export * from "./submit"
 export * from "./ready"

src/initialize/observe.coffee

@@ -1,15 +1,20 @@
 import {Observable} from "object-observer"
 import {curry, flow} from "@dashkite/joy/function"
+import {read} from "@dashkite/katana/async"
 import {peek} from "@dashkite/katana/sync"
 
 _observe = curry (name, handler, handle) ->
   wrapper = Observable.from (handle[name] ? {}), async: true
   Object.defineProperty handle, name,
     value: wrapper
     writeable: false
-  wrapper.observe -> handler [ wrapper ], { handle }
+  wrapper.observe -> handler { data: wrapper, handle }
 
-observe = (name, fx) -> peek _observe name, flow fx
+observe = (name, fx) ->
+  peek _observe name, flow [
+    read "data"
+    flow fx
+  ]
 
 observe._ = _observe
 

test/index.coffee

@@ -9,6 +9,8 @@ do ->
 
   await do browser ({browser, port}) ->
 
+    await _.sleep 1000
+
     results = await test "Carbon", [
 
       test