manuscrypt

module Main exposing (Flags, Model, Msg(..), init, main, subscriptions, update, view)

import Browser exposing (Document, UrlRequest)
import Browser.Navigation exposing (Key)
import Url exposing (Url)


type alias Flags =
    {}

manuscrypt

doUploadFile : Maybe AuthToken -> String -> File -> (Result Http.Error UploadedFile -> msg) ->  Cmd msg
doUploadFile mbToken name file msg  =
    Http.request
        { method = "PUT"
        , headers = [Http.header "Authorization" <| "Bearer " ++ (tokenToString mbToken)]
        , url = "api/upload"
        , body =
            Http.multipartBody
                [ Http.stringPart "name" name
                , Http.filePart "file" file

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 =

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 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

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

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

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

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

-- 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 =