Merge pull request #1 from gdotdesign/mailboxed-components

Mailboxed components.

elm-package.json

@@ -12,6 +12,7 @@
     "Ext.Date",
     "Ext.Number",
     "Ext.Color",
+    "Ext.Signal",
     "Html.Extra",
     "Storage.Local",
     "Ui",
@@ -45,6 +46,7 @@
   ],
   "dependencies": {
     "circuithub/elm-number-format": "1.0.2 <= v < 2.0.0",
+    "circuithub/elm-maybe-extra": "1.5.1 <= v < 2.0.0",
     "circuithub/elm-json-extra": "2.2.0 <= v < 3.0.0",
     "circuithub/elm-list-extra": "3.7.1 <= v < 4.0.0",
     "deadfoxygrandpa/elm-test": "3.0.1 <= v < 4.0.0",

source/Ext/Signal.elm

@@ -0,0 +1,19 @@
+module Ext.Signal where
+
+{-| Utility functions for working with signals.
+
+@docs sendAsEffect
+-}
+import Effects
+import Signal
+
+{-| Sends the given value to the given address and turns it into an effect
+for a different address.
+
+    Signal.sendAsEffect address value action
+-}
+sendAsEffect : Signal.Address a -> a -> (() -> b) -> Effects.Effects b
+sendAsEffect address value action =
+  Signal.send address value
+    |> Effects.task
+    |> Effects.map action

source/Html/Extra.elm

@@ -214,7 +214,7 @@ onEnter control address handler =
       decoder = if control then controlKey else enterIf
     in
       onWithOptions
-        "keydown"
+        "keyup"
         stopOptions
         decoder
         (\code -> Signal.message address handler)
@@ -246,7 +246,7 @@ onKeysWithDimensions address mappings =
 {-| An event listener that runs on input. -}
 onInput : Signal.Address a -> (String -> a) -> Html.Attribute
 onInput address handler =
-    on "input" targetValue (\str -> Signal.message address (handler str))
+  on "input" targetValue (\str -> Signal.message address (handler str))
 
 {-| A load event listener .-}
 onLoad : Signal.Address a -> a -> Html.Attribute