render comments and associations

BrianHicks · Feb 17, 2020 · 16a162e · 16a162e
1 parent d044317
commit 16a162e
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 6 deletions.
diff --git a/src/Attachment.elm b/src/Attachment.elm
@@ -6,17 +6,21 @@ import Html.Events as Events
 
 
 type Attachment
-    = Attachment Float
+    = Attachment Float Int
 
 
 view : Attachment -> Html msg
-view _ =
+view (Attachment _ commentId) =
     Html.div
         [ Attrs.style "width" "15px"
         , Attrs.style "height" "15px"
         , Attrs.style "border" "1px solid blue"
-        , Attrs.style "border-radius" "100%"
+        , Attrs.style "border-top-right-radius" "100%"
+        , Attrs.style "border-bottom-right-radius" "100%"
         , Attrs.style "background-color" "white"
         , Attrs.style "cursor" "pointer"
+        , Attrs.style "display" "flex"
+        , Attrs.style "align-items" "center"
+        , Attrs.style "justify-content" "center"
         ]
-        []
+        [ Html.text (String.fromInt commentId) ]
diff --git a/src/Main.elm b/src/Main.elm
@@ -88,7 +88,7 @@ findNewAttachmentTopsTask ids =
         |> List.map
             (\id ->
                 Dom.getElement ("attachment-" ++ String.fromInt id)
-                    |> Task.map (\{ element } -> Just ( id, (Debug.log "element" element).y ))
+                    |> Task.map (\{ element } -> Just ( id, element.y ))
                     |> Task.onError (\_ -> Task.succeed Nothing)
             )
         |> Task.sequence
@@ -147,7 +147,12 @@ view model =
                 ++ List.map
                     (\( id, comment ) ->
                         Html.div
-                            [ Attrs.id ("comment-" ++ String.fromInt id) ]
+                            [ Attrs.id ("comment-" ++ String.fromInt id)
+
+                            -- position
+                            , Attrs.style "position" "absolute"
+                            , Attrs.style "left" (String.fromInt (horizMargin * 2) ++ "px")
+                            ]
                             [ Comment.view comment ]
                     )
                     (Dict.toList model.comments)