diff --git a/schedule/src/Views/FilterView.elm b/schedule/src/Views/FilterView.elm index cc5698ee..333b7621 100644 --- a/schedule/src/Views/FilterView.elm +++ b/schedule/src/Views/FilterView.elm @@ -92,7 +92,7 @@ filterSidebar model = videoRecordingFilters : List FilterType videoRecordingFilters = [ VideoFilter "Will not be recorded" "not-to-be-recorded" - , VideoFilter "Will recorded" "to-be-recorded" + , VideoFilter "Will be recorded" "to-be-recorded" , VideoFilter "Has recording" "has-recording" ] @@ -177,6 +177,37 @@ filterChoiceView filter currentFilters eventInstances slugLike = _ -> [] + + videoIcon = + case filter of + VideoFilter _ slug -> + let + icon = + case slug of + "has-recording" -> + "film" + + "to-be-recorded" -> + "video-camera" + + "not-to-be-recorded" -> + "ban" + + _ -> + "" + in + [ i + [ classList + [ ( "fa", True ) + , ( "fa-" ++ icon, True ) + , ( "pull-right", True ) + ] + ] + [] + ] + + _ -> + [] in li [] @@ -205,6 +236,7 @@ filterChoiceView filter currentFilters eventInstances slugLike = ] ] ++ locationIcon + ++ videoIcon ) ] ] diff --git a/schedule/src/Views/ScheduleOverview.elm b/schedule/src/Views/ScheduleOverview.elm index c1d7206b..8e1f7fe9 100644 --- a/schedule/src/Views/ScheduleOverview.elm +++ b/schedule/src/Views/ScheduleOverview.elm @@ -90,6 +90,12 @@ dayEventInstanceIcons eventInstance = [] ] + "not-to-be-recorded" -> + [ i + [ classList [ ( "fa", True ), ( "fa-ban", True ), ( "pull-right", True ) ] ] + [] + ] + _ -> [] in