diff --git a/src/Main.elm b/src/Main.elm index 24a644ce9586bbdc6aa83dc7f48e484c6ca7899a..58402aea52c04efaad0539ba4cd6202805eb2a1a 100644 --- a/src/Main.elm +++ b/src/Main.elm @@ -157,6 +157,9 @@ update msg ( global, local ) = -- VIEW +icon : Html Msg +icon = + i [ Html.Attributes.class "fa-solid fa-house fa-xl" ] [] viewNav : Model -> Html Msg viewNav ( global, _ ) = @@ -170,21 +173,33 @@ viewNav ( global, _ ) = "navbar-inactive" in nav [ Html.Attributes.class "navbar" ] - [ button [ activeClass Home |> Html.Attributes.class, ViewChange Home |> onClick ] - [ i [ Html.Attributes.class "fa-solid fa-house fa-xl" ] [] ] + [ button + [ Html.Attributes.title "Home" + , activeClass Home |> Html.Attributes.class, ViewChange Home |> onClick + ] [ icon ] , div [ Html.Attributes.class "navbar-title" ] [ text "Schengen Visa Statistics" ] , div [ Html.Attributes.class "navbar-view-icons" ] - [ button [ activeClass MapView |> Html.Attributes.class, ViewChange MapView |> onClick ] - [ MapView.icon ] - , button [ activeClass ForceDirectedGraph |> Html.Attributes.class, ViewChange ForceDirectedGraph |> onClick ] - [ ForceDirectedGraphView.icon ] - , button [ activeClass BarPlot |> Html.Attributes.class, ViewChange BarPlot |> onClick ] - [ BarPlotView.icon ] - , button [ activeClass LinePlot |> Html.Attributes.class, ViewChange LinePlot |> onClick ] - [ LinePlotView.icon ] - , button [ activeClass DataTable |> Html.Attributes.class, ViewChange DataTable |> onClick ] - [ DataTableView.icon ] + [ button + [ Html.Attributes.title "Map" + , activeClass MapView |> Html.Attributes.class, ViewChange MapView |> onClick + ] [ MapView.icon ] + , button + [ Html.Attributes.title "Force" + , activeClass ForceDirectedGraph |> Html.Attributes.class, ViewChange ForceDirectedGraph |> onClick + ] [ ForceDirectedGraphView.icon ] + , button + [ Html.Attributes.title "BarPlot" + , activeClass BarPlot |> Html.Attributes.class, ViewChange BarPlot |> onClick + ] [ BarPlotView.icon ] + , button + [ Html.Attributes.title "LinePlot" + , activeClass LinePlot |> Html.Attributes.class, ViewChange LinePlot |> onClick + ] [ LinePlotView.icon ] + , button + [ Html.Attributes.title "Table" + , activeClass DataTable |> Html.Attributes.class, ViewChange DataTable |> onClick + ] [ DataTableView.icon ] ] ]