diff --git a/src/Main.elm b/src/Main.elm index f222790c9575375af631a4922beb81f3bf6c5b10..24a644ce9586bbdc6aa83dc7f48e484c6ca7899a 100644 --- a/src/Main.elm +++ b/src/Main.elm @@ -238,7 +238,7 @@ viewHome global = , text " vergleichen kannst." , text " Durch " , Html.b [] [ text "Klick auf ein Drittland" ] - , text " und ggf. anschließende Auswahl eines " + , text " (violett) und ggf. anschließende Auswahl eines " , Html.b [] [ text "Konsulats" ] , text " kannst du die zur Berechnung der Gesichter verwendeten Daten filtern." ] diff --git a/src/Views/DataTableView.elm b/src/Views/DataTableView.elm index 44eb9bf19676d3993050501f92ef0c28b496cd26..85536ee46d180e9ceea3f01fbeaa66f7245efad3 100644 --- a/src/Views/DataTableView.elm +++ b/src/Views/DataTableView.elm @@ -48,8 +48,8 @@ dataHeader = , th [ Html.Attributes.class "table-cell text-start" ] [ text "Consulate Country" ] , th [ Html.Attributes.class "table-cell text-start" ] [ text "Consulate" ] , th [ Html.Attributes.class "table-cell text-end" ] [ text "Year" ] - , th [ Html.Attributes.class "table-cell text-end" ] [ text "Total Visas (applied for)" ] - , th [ Html.Attributes.class "table-cell text-end" ] [ text "Total Visas (issued)" ] + , th [ Html.Attributes.class "table-cell text-end" ] [ text "Uniform Visas (applied for)" ] + , th [ Html.Attributes.class "table-cell text-end" ] [ text "Uniform Visas (issued)" ] ] dataTable : List Entry -> Html Msg diff --git a/src/Views/ForceDirectedGraph.elm b/src/Views/ForceDirectedGraph.elm index fd9c7d7e9001bd36daa09217697d3e9a53fec1e8..b5909fd13b5a32572e767851cd0a6f26913340d9 100644 --- a/src/Views/ForceDirectedGraph.elm +++ b/src/Views/ForceDirectedGraph.elm @@ -460,7 +460,7 @@ updateGraphWithList = calculateModel : List Entry -> Local.Model -> Cmd Local.Msg calculateModel data local = - Task.perform Local.RecalcEnd (Process.sleep 10 |> Task.andThen (\_ -> Process.sleep 0) |> Task.andThen (\_ -> postInit data local)) + Task.perform Local.RecalcEnd (Process.sleep 50 |> Task.andThen (\_ -> Process.sleep 0) |> Task.andThen (\_ -> postInit data local)) update : Local.Msg -> Global -> Local.Model -> ( Global, Local.Model, Cmd Msg )