touchpage 0.2.1

control panel server with shared-state web controls
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

module SvgCommand exposing (Command(..), TextSizeRequest)

import SvgThings exposing (ControlId)


type alias TextSizeRequest =
    { string : String
    , font : String
    , controlId : ControlId
    }


type Command
    = Send String
    | RequestTextWidth TextSizeRequest
    | None
    | Batch (List Command)