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 ]
             ]
         ]