summaryrefslogtreecommitdiff
path: root/elm
diff options
context:
space:
mode:
Diffstat (limited to 'elm')
-rw-r--r--elm/Lib/Html.elm3
-rw-r--r--elm/UList/Opt.elm5
2 files changed, 7 insertions, 1 deletions
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 ] ]
]