Applied elm-format.

.gitignore

@@ -1,2 +1,4 @@
 elm-stuff/
 *.html
+node_modules
+package-lock.json

examples/Axis.elm

@@ -9,38 +9,44 @@ import Html exposing (Html)
 
 main : Html msg
 main =
-  let
-    up =
-      triangle 10
-        |> filled (uniform black)
-    right =
-      triangle 10
-        |> filled (uniform black)
-        |> rotate (degrees -90)
-    xAxis =
-      segment ( -100, 0 ) ( 100, 0 )
-        |> traced (solid thin (uniform black))
-    yAxis =
-      segment ( 0, -100 ) ( 0, 100 )
-        |> traced (solid thin (uniform black))
-    ex =
-      fromString "x"
-        |> rendered
-    wy =
-      fromString "y"
-        |> rendered
-    box =
-      square 220
-        |> outlined (dot thin (uniform black))
-  in
-  group
-    [ xAxis
-    , right |> shift ( 100, 0 )
-    , ex |> shift ( 100, -10 )
-    , yAxis
-    , up |> shift ( 0, 100 )
-    , wy |> shift ( -10, 100 )
-    , box
-    , ellipse 20 40 |> filled (uniform red) |> shift ( 50, 50 )
-    ]
-    |> svg
+    let
+        up =
+            triangle 10
+                |> filled (uniform black)
+
+        right =
+            triangle 10
+                |> filled (uniform black)
+                |> rotate (degrees -90)
+
+        xAxis =
+            segment ( -100, 0 ) ( 100, 0 )
+                |> traced (solid thin (uniform black))
+
+        yAxis =
+            segment ( 0, -100 ) ( 0, 100 )
+                |> traced (solid thin (uniform black))
+
+        ex =
+            fromString "x"
+                |> rendered
+
+        wy =
+            fromString "y"
+                |> rendered
+
+        box =
+            square 220
+                |> outlined (dot thin (uniform black))
+    in
+    group
+        [ xAxis
+        , right |> shift ( 100, 0 )
+        , ex |> shift ( 100, -10 )
+        , yAxis
+        , up |> shift ( 0, 100 )
+        , wy |> shift ( -10, 100 )
+        , box
+        , ellipse 20 40 |> filled (uniform red) |> shift ( 50, 50 )
+        ]
+        |> svg

examples/Composition.elm

@@ -15,25 +15,27 @@ import Html exposing (Html)
 
 
 type alias Model =
-  { active : Bool }
+    { active : Bool }
 
 
 init : Model
-init = { active = False }
+init =
+    { active = False }
 
 
 
 -- Update ----------------------------------------------------------------------
 
 
 type Msg
-  = Switch
+    = Switch
 
 
 update : Msg -> Model -> Model
 update msg model =
-  case msg of
-    Switch -> { model | active = not model.active }
+    case msg of
+        Switch ->
+            { model | active = not model.active }
 
 
 
@@ -42,7 +44,8 @@ update msg model =
 
 
 border : LineStyle
-border = solid verythin <| uniform black
+border =
+    solid verythin <| uniform black
 
 
 
@@ -51,8 +54,8 @@ border = solid verythin <| uniform black
 
 txt : Collage Msg
 txt =
-  fromString "Hello collage!"
-    |> rendered
+    fromString "Hello collage!"
+        |> rendered
 
 
 
@@ -61,35 +64,36 @@ txt =
 
 elps : Model -> Collage Msg
 elps model =
-  ellipse 100 50
-    |> styled
-        ( uniform <|
-            if model.active then
-              lightPurple
-            else
-              lightBlue
-        , border
-        )
-    |> rotate (degrees -30)
-    |> onClick Switch
+    ellipse 100 50
+        |> styled
+            ( uniform <|
+                if model.active then
+                    lightPurple
+
+                else
+                    lightBlue
+            , border
+            )
+        |> rotate (degrees -30)
+        |> onClick Switch
 
 
 rect : Collage msg
 rect =
-  roundedRectangle 200 250 20
-    |> styled ( uniform lightOrange, border )
+    roundedRectangle 200 250 20
+        |> styled ( uniform lightOrange, border )
 
 
 tria : Collage msg
 tria =
-  triangle 100
-    |> styled ( uniform lightGreen, border )
+    triangle 100
+        |> styled ( uniform lightGreen, border )
 
 
 penta : Collage msg
 penta =
-  ngon 5 100
-    |> styled ( uniform lightCharcoal, border )
+    ngon 5 100
+        |> styled ( uniform lightCharcoal, border )
 
 
 
@@ -98,8 +102,8 @@ penta =
 
 alignments : Collage msg
 alignments =
-  horizontal <|
-    List.map (showOrigin << align top) [ rect, tria, rect, rect ]
+    horizontal <|
+        List.map (showOrigin << align top) [ rect, tria, rect, rect ]
 
 
 
@@ -108,21 +112,22 @@ alignments =
 
 view : Model -> Html Msg
 view model =
-  vertical
-    [ horizontal
-        [ rect
-        , vertical
-            [ tria
-            , tria |> rotate pi
+    vertical
+        [ horizontal
+            [ rect
+            , vertical
+                [ tria
+                , tria |> rotate pi
+                ]
+                |> center
+            , debug penta
             ]
-            |> center
-        , debug penta
+        , stack [ showEnvelope txt, elps model ]
         ]
-    , stack [ showEnvelope txt, elps model ]
-    ]
-    |> debug
-    |> svg
+        |> debug
+        |> svg
 
 
 main : Program () Model Msg
-main = Browser.sandbox { init = init, view = view, update = update }
+main =
+    Browser.sandbox { init = init, view = view, update = update }

examples/Dimensions.elm

@@ -9,44 +9,49 @@ import Html exposing (Html)
 
 
 gap : Collage msg
-gap = spacer 50 50
+gap =
+    spacer 50 50
 
 
 diamond : String -> Collage msg
 diamond label =
-  let
-    text =
-      fromString label
-        |> Text.shape Italic
-        |> rendered
-    w = width text
-    points =
-      [ ( 0, 20 )
-      , ( -20, 0 )
-      , ( 0, -20 )
-      , ( w, -20 )
-      , ( w + 20, 0 )
-      , ( w, 20 )
-      ]
-    shape =
-      polygon points
-        |> styled
-            ( uniform (Color.rgb255 255 202 255)
-            , solid thin (uniform Color.black)
-            )
-        |> center
-  in
-  stack
-    [ text
-    , shape
-    ]
+    let
+        text =
+            fromString label
+                |> Text.shape Italic
+                |> rendered
+
+        w =
+            width text
+
+        points =
+            [ ( 0, 20 )
+            , ( -20, 0 )
+            , ( 0, -20 )
+            , ( w, -20 )
+            , ( w + 20, 0 )
+            , ( w, 20 )
+            ]
+
+        shape =
+            polygon points
+                |> styled
+                    ( uniform (Color.rgb255 255 202 255)
+                    , solid thin (uniform Color.black)
+                    )
+                |> center
+    in
+    stack
+        [ text
+        , shape
+        ]
 
 
 main : Html msg
 main =
-  vertical
-    [ diamond "a very long piece of text"
-    , gap
-    , diamond "short text"
-    ]
-    |> svg
+    vertical
+        [ diamond "a very long piece of text"
+        , gap
+        , diamond "short text"
+        ]
+        |> svg

examples/Embedding.elm

@@ -9,14 +9,14 @@ import Html exposing (Html, text)
 
 main : Html msg
 main =
-  stack
-    [ Html.div []
-        [ Html.button []
-            [ text "Hello Html!" ]
+    stack
+        [ Html.div []
+            [ Html.button []
+                [ text "Hello Html!" ]
+            ]
+            |> html ( 100, 100 )
+        , rectangle 100 100
+            |> filled (uniform Color.lightGreen)
         ]
-        |> html ( 100, 100 )
-    , rectangle 100 100
-        |> filled (uniform Color.lightGreen)
-    ]
-    |> rotate (degrees 30)
-    |> svg
+        |> rotate (degrees 30)
+        |> svg