Skip to content

Instantly share code, notes, and snippets.

View prozacchiwawa's full-sized avatar

arty prozacchiwawa

40 followers · 6 following
View GitHub Profile
@prozacchiwawa
prozacchiwawa / gist:d1f710afd65145e62561
Created January 29, 2016 08:50
-- pulp dep install --save purescript-signal
import Prelude
import Signal as S
import Signal.Channel as C
let c = C.channel 0
let s = C.subscribe c
@prozacchiwawa
prozacchiwawa / gist:529f61c608b59b65aa0d
Created February 2, 2016 05:12
module PortTest where
import Debug exposing (log)
import Html exposing (div, text)
import Html.Attributes exposing (id)
import Html.Events exposing (onClick)
import Signal
import Task exposing (Task (..))
outputSignal : Signal.Mailbox String
@prozacchiwawa
prozacchiwawa / gist:eeb6ae883e6319017ebb
Created February 2, 2016 05:12
module PortTest where
import Debug exposing (log)
import Html exposing (div, text)
import Html.Attributes exposing (id)
import Html.Events exposing (onClick)
import Signal
import Task exposing (Task (..))
outputSignal : Signal.Mailbox String
@prozacchiwawa
prozacchiwawa / gist:456ea2986f316dee400b
Last active February 2, 2016 08:37
module PortTest where
{--
<html>
<head>
<script src='port-test.js'></script>
</head>
<body>
<div id='port-test'></div>
<script>
@prozacchiwawa
prozacchiwawa / gist:0625666c2a4a231e602f
Created February 2, 2016 08:47
Port test where outputPort depends on app.model.
module PortTest where
{--
<html>
<head>
<script src='port-test.js'></script>
</head>
<body>
<div id='port-test'></div>
<script>
@prozacchiwawa
prozacchiwawa / gist:6ffc6d1da157abf1056d
Created February 2, 2016 09:36
module PortTest2 where
import Debug
import Signal exposing (Mailbox, mailbox, Address)
import Effects exposing (Effects, none, Never)
import Basics exposing (toString)
import String
import Task
import Html exposing (Html, text, button, div)
import Html.Events exposing (onClick)
@prozacchiwawa
prozacchiwawa / gist:07ddbaa914e779b3cbc9
Created February 13, 2016 12:20
module Main where
import Prelude
import DOM.Node.Types (ElementId(..))
import Signal.Channel
import React
@prozacchiwawa
prozacchiwawa / StartApp.elm
Created February 26, 2016 09:24
module StartApp.StartApp ( start, Config, App ) where
{-| This module helps you start your application in a typical Elm workflow.
It assumes you are following [the Elm Architecture][arch] and using
[elm-effects][]. From there it will wire everything up for you!
**Be sure to [read the Elm Architecture tutorial][arch] to learn how this all
works!**
[arch]: https://github.com/evancz/elm-architecture-tutorial
[elm-effects]: http://package.elm-lang.org/packages/evancz/elm-effects/latest
@prozacchiwawa
prozacchiwawa / SPA.elm
Created March 16, 2016 07:01
...
purposeUpdate : (PU.Model -> (PU.Model, Effects PU.Action)) -> Model -> (Model, Effects Action)
purposeUpdate u m =
let finishPurposeUpdate p =
let (pm,e) = u p in
let newEffects = Effects.map Purpose e in
(PurposeModel pm, newEffects)
in
let updatePurpose y =
@prozacchiwawa
prozacchiwawa / testelmd.elm
Created March 22, 2016 01:28
import Effects exposing (Effects(..), Never)
import Html exposing (Html, div, button, text)
import Html.Attributes exposing (value)
import Html.Events exposing (onClick)
import Signal exposing (Mailbox)
import StartApp as SA
import Task exposing (Task(..))
type Request = DummyRequest | Request String
type Response = Response String