From e9fe1c90b282a894be65327a851d4a4c6c757116 Mon Sep 17 00:00:00 2001
From: Brian Hicks <brian@brianthicks.com>
Date: Tue, 18 Feb 2020 10:55:32 -0600
Subject: [PATCH] use Html.Keyed for better performance

---
 src/Main.elm | 43 +++++++++++++++++++++++++++++--------------
 1 file changed, 29 insertions(+), 14 deletions(-)

diff --git a/src/Main.elm b/src/Main.elm
index c77e377..e32b43a 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -10,6 +10,7 @@ import Dict exposing (Dict)
 import Html exposing (Html)
 import Html.Attributes as Attrs
 import Html.Events
+import Html.Keyed as HK
 import Json.Decode as Decode
 import Task exposing (Task)
 
@@ -188,7 +189,7 @@ view model =
     { title = "Comment Constraint Experiment"
     , body =
         [ Html.node "style" [] [ Html.text "* { user-select: none; -moz-user-select: none; -webkit-user-select: none; }" ]
-        , Html.main_
+        , HK.node "main"
             [ Attrs.style "width" "100%"
             , Attrs.style "height" "100vh"
             , Attrs.style "background-color" "aliceblue"
@@ -198,21 +199,28 @@ view model =
                     50
              in
              -- line
-             [ Html.div
-                [ Attrs.style "width" "1px"
-                , Attrs.style "height" "94vh"
-                , Attrs.style "position" "absolute"
-                , Attrs.style "left" (String.fromInt horizMargin ++ "px")
-                , Attrs.style "top" "3vh"
-                , Attrs.style "background-color" "blue"
-                ]
-                []
+             [ ( "line"
+               , Html.div
+                    [ Attrs.style "width" "1px"
+                    , Attrs.style "height" "94vh"
+                    , Attrs.style "position" "absolute"
+                    , Attrs.style "left" (String.fromInt horizMargin ++ "px")
+                    , Attrs.style "top" "3vh"
+                    , Attrs.style "background-color" "blue"
+                    ]
+                    []
+               )
              ]
                 -- attachments
                 ++ List.map
                     (\( id, attachment ) ->
-                        Html.div
-                            [ Attrs.id ("attachment-" ++ String.fromInt id)
+                        let
+                            key =
+                                "attachment-" ++ String.fromInt id
+                        in
+                        ( key
+                        , Html.div
+                            [ Attrs.id key
 
                             -- events
                             , Html.Events.onMouseDown (MouseDownOnAttachment id)
@@ -224,13 +232,19 @@ view model =
                             ]
                             [ Attachment.view attachment
                             ]
+                        )
                     )
                     (Dict.toList model.attachments)
                 -- comments
                 ++ List.map
                     (\( id, comment ) ->
-                        Html.div
-                            [ Attrs.id ("comment-" ++ String.fromInt id)
+                        let
+                            key =
+                                "comment-" ++ String.fromInt id
+                        in
+                        ( key
+                        , Html.div
+                            [ Attrs.id key
 
                             -- events
                             , if model.focused == Just id then
@@ -256,6 +270,7 @@ view model =
                                 |> Attrs.style "top"
                             ]
                             [ Comment.view comment ]
+                        )
                     )
                     (Dict.toList model.comments)
             )