view-report.elm

renderRow : String -> Int -> Html Msg
renderRow title data =
    tr []
        [ td [] [ text title ]
        , td
            [ style
                [ ( "text-align", "right" )
                , ( "min-width", "5rem" )
                ]
            ]
            [ data |> toString |> text ]
        ]
viewReport : LibraryReport -> Html Msg
viewReport report =
    div
        [ style
            [ ( "background-color", "#eee" )
            , ( "padding", "3px" )
            , ( "margin", "3rem" )
            ]
        ]
        [ b [] [ text "Library Report" ]
        , table []
            [ renderRow "Number of Books" report.numBooks
            , renderRow "Oldest Copyright" report.oldestCopyright
            , renderRow "Newest Copyright" report.newestCopyright
            , renderRow "Number of Unique Authors " report.uniqueAuthors
            ]
        ]