Skip to content

Instantly share code, notes, and snippets.

@pdamoc
pdamoc / Pong.elm
Last active October 16, 2016 20:07
Pong Example
-- See this document for more information on making Pong:
-- http://elm-lang.org/blog/pong
import Color exposing (..)
import Collage exposing (..)
import Element exposing (..)
import Keyboard
import Text
import Time exposing (..)
import Window exposing (Size)
import Html.App as App
@pdamoc
pdamoc / Mario.elm
Created May 8, 2016 20:00
Mario 0.17
import Html exposing (..)
import Keyboard
import Window exposing (Size)
import AnimationFrame
import Task
import Html.App as App
import Collage exposing (..)
import Element exposing (..)
@pdamoc
pdamoc / InsertHtml.elm
Created March 11, 2016 08:36
Insert Html
module InsertHtml where
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (onClick)
outputMB : Signal.Mailbox String
outputMB = Signal.mailbox ""
port output : Signal String
@pdamoc
pdamoc / Application.elm
Created February 24, 2016 15:50
InterComponentCommunication update
module Application where
import Html exposing (..)
import Html.Events exposing (on, onClick)
import Components
import SelectedComponents
type alias Model =
{
components : List String,
@pdamoc
pdamoc / TableSort.elm
Created February 16, 2016 17:15
TableSort
import Html exposing (..)
import Html.Events exposing (onClick)
import StartApp.Simple exposing (start)
-- Generic
type alias HeadItem a =
{ sorter: (a -> a -> Basics.Order)
, toHtml : (a -> Html)
@pdamoc
pdamoc / SpeedControl.elm
Last active February 14, 2016 09:11
Speed Control
import Html exposing (..)
import Html.Attributes as HA exposing (type', min, max, step)
import Html.Events exposing (..)
import Graphics.Element exposing (..)
import Time exposing (Time, millisecond)
import Color exposing (blue, white)
import StartApp
import Effects exposing (Effects, Never)
import Task exposing (Task)
import String
@pdamoc
pdamoc / Game.elm
Created February 9, 2016 08:05
Guessing Game
module Game where
import Effects exposing (Effects, Never)
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import String
import Time
import Task
import Random exposing (generate, int, initialSeed)
@pdamoc
pdamoc / RandomDemo.elm
Created February 5, 2016 11:04
RandomDemoPair
module RandomDemo where
import Html exposing (..)
import Html.Events exposing (onClick)
import Random exposing (int, generate)
import StartApp
import Effects exposing (Effects)
@pdamoc
pdamoc / Components.elm
Created December 8, 2015 13:02
Alternative Component Architecture
import Html exposing (..)
import Html.Attributes exposing (width, style)
import StartApp
import Effects exposing (Effects)
import Task exposing (Task)
import Time exposing (Time)
type MainAction = Sidebar Html | Content Html
@pdamoc
pdamoc / TurnBase.elm
Created December 7, 2015 08:30
Turn Base Demo
module TurnBase (Model, Action, init, update, view, main) where
import Effects exposing (Effects)
import Html exposing (Html)
import Svg exposing (svg, rect, g, text, text')
import Svg.Attributes exposing (..)
import Svg.Events exposing (onClick)
import Time exposing (Time, second)
import StartApp
import Task exposing (Task)