Skip to content
Snippets Groups Projects

Compare revisions

Changes are shown as if the source revision was being merged into the target revision. Learn more about comparing revisions.

Source

Select target project
No results found
Select Git revision

Target

Select target project
  • informationsvisualisierung-2024/infovis-projekt
1 result
Select Git revision
Show changes
Commits on Source (2)
Hide whitespace changes
Inline Side-by-side
Showing
with 27 additions and 12 deletions
src/Main.elm
View file @ 3043c0a6
...@@ -157,6 +157,9 @@ update msg ( global, local ) = ...@@ -157,6 +157,9 @@ update msg ( global, local ) =
-- VIEW -- VIEW
icon : Html Msg
icon =
i [ Html.Attributes.class "fa-solid fa-house fa-xl" ] []
viewNav : Model -> Html Msg viewNav : Model -> Html Msg
viewNav ( global, _ ) = viewNav ( global, _ ) =
...@@ -170,21 +173,33 @@ viewNav ( global, _ ) = ...@@ -170,21 +173,33 @@ viewNav ( global, _ ) =
"navbar-inactive" "navbar-inactive"
in in
nav [ Html.Attributes.class "navbar" ] nav [ Html.Attributes.class "navbar" ]
[ button [ activeClass Home |> Html.Attributes.class, ViewChange Home |> onClick ] [ button
[ i [ Html.Attributes.class "fa-solid fa-house fa-xl" ] [] ] [ Html.Attributes.title "Home"
, activeClass Home |> Html.Attributes.class, ViewChange Home |> onClick
] [ icon ]
, div [ Html.Attributes.class "navbar-title" ] , div [ Html.Attributes.class "navbar-title" ]
[ text "Schengen Visa Statistics" ] [ text "Schengen Visa Statistics" ]
, div [ Html.Attributes.class "navbar-view-icons" ] , div [ Html.Attributes.class "navbar-view-icons" ]
[ button [ activeClass MapView |> Html.Attributes.class, ViewChange MapView |> onClick ] [ button
[ MapView.icon ] [ Html.Attributes.title "Map"
, button [ activeClass ForceDirectedGraph |> Html.Attributes.class, ViewChange ForceDirectedGraph |> onClick ] , activeClass MapView |> Html.Attributes.class, ViewChange MapView |> onClick
[ ForceDirectedGraphView.icon ] ] [ MapView.icon ]
, button [ activeClass BarPlot |> Html.Attributes.class, ViewChange BarPlot |> onClick ] , button
[ BarPlotView.icon ] [ Html.Attributes.title "Force"
, button [ activeClass LinePlot |> Html.Attributes.class, ViewChange LinePlot |> onClick ] , activeClass ForceDirectedGraph |> Html.Attributes.class, ViewChange ForceDirectedGraph |> onClick
[ LinePlotView.icon ] ] [ ForceDirectedGraphView.icon ]
, button [ activeClass DataTable |> Html.Attributes.class, ViewChange DataTable |> onClick ] , button
[ DataTableView.icon ] [ 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 ]
] ]
] ]
......