Skip to content
Snippets Groups Projects
Commit 7e43cdbc authored by Aamon Paul Hoffmann's avatar Aamon Paul Hoffmann
Browse files
parents 0843b46a 923fcffe
No related branches found
No related tags found
No related merge requests found
Pipeline #24415 passed
......@@ -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 ]
]
]
......@@ -233,7 +248,7 @@ viewHome global =
, MapView.icon
, text " führt dich zur "
, Html.b [] [ text "Weltkarte" ]
, text " auf welcher du die Visafreundlichkeit der Schengenländer (grün) mittels "
, text ", auf welcher du die Visafreundlichkeit der Schengenländer (grün) mittels "
, Html.b [] [ text "Chernoff Gesichtern" ]
, text " vergleichen kannst."
, text " Durch "
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment