svg.escobar.life

A simple SVG markup editor for the web
Types.elm (584B)

 1 module Types exposing (..)
 2 
 3 import Http
 4 import File exposing (File)
 5 import Regex exposing (Regex)
 6 
 7 type alias Model =
 8   { image : String
 9   , status : Status
10   , darkModeOn : Bool
11   , uriEncoder : Regex
12   , fileName : String
13   , editorScroll : (Int, Int)
14   , load : Load
15   }
16 
17 type Status
18   = Valid
19   | Invalid
20 
21 type Load
22   = Loading
23   | Loaded
24 
25 type Upload
26   = Requested
27   | Selected File
28 
29 type Msg
30   = Update String
31   | Load (Result Http.Error String)
32   | Validation Status
33   | ToggleDarkMode
34   | Download
35   | Upload Upload
36   | Scroll (Int, Int)
37