From 8620f71c6180e06164b2b51f930d94acaa439036 Mon Sep 17 00:00:00 2001 From: Yorhel Date: Fri, 3 Jan 2020 15:12:47 +0100 Subject: ulist: Display platform icons in releases listing --- elm/Lib/Html.elm | 3 +++ elm/UList/Opt.elm | 5 ++++- 2 files changed, 7 insertions(+), 1 deletion(-) (limited to 'elm') diff --git a/elm/Lib/Html.elm b/elm/Lib/Html.elm index 66436073..2e534246 100644 --- a/elm/Lib/Html.elm +++ b/elm/Lib/Html.elm @@ -201,5 +201,8 @@ formField lbl cont = langIcon : String -> Html m langIcon l = abbr [ class "icons lang", class l, title (Maybe.withDefault "" <| lookup l T.languages) ] [ text " " ] +platformIcon : String -> Html m +platformIcon l = abbr [ class "icons", class l, title (Maybe.withDefault "" <| lookup l T.platforms) ] [ text " " ] + releaseTypeIcon : String -> Html m releaseTypeIcon t = abbr [ class ("icons rt"++t), title (Maybe.withDefault "" <| lookup t T.releaseTypes) ] [ text " " ] diff --git a/elm/UList/Opt.elm b/elm/UList/Opt.elm index f5ed7303..e05a21d9 100644 --- a/elm/UList/Opt.elm +++ b/elm/UList/Opt.elm @@ -214,7 +214,10 @@ view model = ] ] , td [ class "tco2" ] [ RDate.display model.today nfo.released ] - , td [ class "tco3" ] <| List.map langIcon nfo.lang ++ [ releaseTypeIcon nfo.rtype ] + , td [ class "tco3" ] + <| List.map platformIcon nfo.platforms + ++ List.map langIcon nfo.lang + ++ [ releaseTypeIcon nfo.rtype ] , td [ class "tco4" ] [ a [ href ("/r"++String.fromInt nfo.id), title nfo.original ] [ text nfo.title ] ] ] -- cgit v1.2.3