Hassan Hayat TheSeamau5

TheSeamau5 / labelAsData.elm

Created June 9, 2015 20:55

Label as Data

	import Html exposing (Html)
	import Html.Attributes exposing (style)
	import Color exposing (Color)
	import Mouse

	(=>) = (,)

	toRgbaString color =
	let {red, green, blue, alpha} = Color.toRgb color
	in

TheSeamau5 / labelsandboxes.elm

Created June 10, 2015 00:22

	import Html exposing (Html)
	import Html.Attributes exposing (style)
	import Color exposing (Color)


	(=>) = (,)

	toRgbaString color =
	let {red, green, blue, alpha} = Color.toRgb color
	in

TheSeamau5 / swipepageselm.elm

Last active September 20, 2016 08:10

Swipeable Pages in Elm

	import Html exposing (Html)
	import Html.Attributes
	import Html.Events
	import Mouse
	import Signal exposing (Signal, Address)
	import StartApp
	import Json.Decode exposing ((:=))

	import List

TheSeamau5 / elm-animation-alt.elm

Created June 14, 2015 22:06

Example of Alternative to elm-animation

	import Html exposing (Html, Attribute)
	import Html.Attributes
	import Html.Events

	import Signal exposing (Address)

	import Json.Decode exposing (Decoder, (:=))
	import Time

	import List

TheSeamau5 / Button.elm

Created June 14, 2015 23:40 — forked from jinjor/Button.elm

Version using Elm Architecture

	import Html exposing (Html)
	import Html.Events
	import Signal exposing (Address, Signal)


	-- Button Component --

	type ButtonAction
	= Click
	\| NoOpButton

TheSeamau5 / littlejsonencoder.elm

Created June 22, 2015 20:37

Little JSON encoder

TheSeamau5 / draggabledivs.elm

Created June 29, 2015 17:30

Draggable divs

	import Html exposing (Html, Attribute)
	import Html.Attributes
	import Html.Events
	import Signal exposing (Address, Message)
	import List
	import Json.Decode exposing (Decoder, (:=))
	-------------------
	--- HELPER CODE ---
	-------------------
	nth : Int -> List a -> Maybe a

TheSeamau5 / counterGrid.elm

Last active August 29, 2015 14:24

	import Html exposing (Html)
	import Html.Attributes
	import Html.Events
	import Signal exposing (Address)
	import List
	import Window

	-----------------
	-- HELPER CODE --

TheSeamau5 / reorderablegrid.elm

Created July 2, 2015 00:46

WIP

	import Html exposing (Html)
	import Html.Attributes
	import Signal exposing (Address)
	import List

	infixl 2 =>
	(=>) = (,)

	type alias Vector =
	{ x : Float , y : Float }

TheSeamau5 / youtubecontainer.elm

Created July 2, 2015 20:09

WIP

	import Html exposing (Html)
	import Html.Attributes
	import Html.Events

	import Signal exposing (Address)
	import Json.Decode exposing (Decoder, (:=))
	import List

	-------