elm-proofreading-show-comments.elm

viewCommentsPanel : String -> List Message -> Html Msg
viewCommentsPanel reviewedText comments =
    div [ class "proofread-panel" ]
        (viewHighlightedText reviewedText 0 comments)


viewHighlightedText : String -> Int -> List Message -> List (Html Msg)
viewHighlightedText reviewedText lastProcessedIndex comments =
    case comments of
        [] ->
            let
                restOfText =
                    String.slice lastProcessedIndex (String.length reviewedText) reviewedText
            in
            span [ class "text" ] [ text restOfText ] :: []

        comment :: xComments ->
            let
                leftText =
                    String.slice lastProcessedIndex comment.offset reviewedText

                commentEndIndex =
                    comment.offset + comment.length

                commentText =
                    String.slice comment.offset commentEndIndex reviewedText
            in
            span [ class "text" ] [ text leftText ]
                :: span
                    [ class "comment"
                    , attribute "id" (toString comment.offset)
                    , handleOnMouseEnter SetActiveComment
                    , handleOnMouseLeave ResetActiveComment
                    , handleOnClick SetActiveComment
                    ]
                    [ text commentText ]
                :: viewHighlightedText reviewedText commentEndIndex xComments