manuscrypt

module Tests exposing (..)

import Tweet exposing (..)

import Random exposing (Generator)
import Json.Encode as Encode
import Shrink
import Check exposing (..)
import Check.Test
import Check.Producer exposing (..)

manuscrypt

module Tests exposing (..)

import Tweet exposing (..)
import Html exposing (..)
import Json.Encode as Encode

import Random exposing (Generator)
import Shrink
import Check exposing (..)
import Check.Test

manuscrypt

-- Check out: http://elm-community.github.io/elm-faq/#what-does--mean-1

module Main exposing (..)

import Html exposing (..)
import Html.App as App exposing (..)
import Task exposing (..)


type alias Model =

manuscrypt

Trying out szabbas Animation library.

Today, I want to see things move or change on screen without any interaction. The easiest thing I can think of, would be to fill the circles with color, cycling through "white, grey, green, red".

Reading the docs

http://package.elm-lang.org/packages/szabba/elm-animations/2.0.0/Animation#Animation

manuscrypt

type alias Cell a = 
    { pos: Vec2
    , content: VirtualDom.Node a
    }

type Cols a
    = Cols (List (Cell a)) (Cell a) (List (Cell a))


type Rows a

manuscrypt

onKeyUp : Json.Decoder Msg
onKeyUp =
    Json.oneOf
        [ logged "keyDecoder" keyDecoder
          --               , charCodeDecoder -- only on keypress
        , logged "keyCodeDecoder" keyCodeDecoder
        , logged "whichDecoder" whichDecoder
        , logged "keyIdentifierDecoder" keyIdentifierDecoder
        , logged "charDecoder" charDecoder
        ]

manuscrypt

cleanInput : List TileDef -> String -> String
cleanInput defs str =
    let
        validLetters =
            List.map .letter defs
    in
        String.toUpper str
            |> String.toList
            |> List.filter (containsChar validLetters)
            |> String.fromList

manuscrypt

module Main exposing (..)

import Html exposing (div, button, ul, Html, li, text)
import Html.Attributes exposing (value, style)
import Html.Events exposing (onClick)
import Html.App as App
import Dict exposing (Dict)
import Random exposing (Seed)

manuscrypt

module KellyColors exposing (..)

import Color exposing (..)
import Maybe exposing (..)
import List.Extra as List exposing (..)


type alias KellyDef =
    { isccNbsNr : Int, hexString : String, r : Int, g : Int, b : Int }

manuscrypt

module Main exposing (..)

import Dict exposing (Dict)
import Html exposing (Html, div, text)
import Svg exposing (Svg, g)
import Svg.Attributes as SA
import Svg.Events as SE


type alias Idx =