diff --git a/src/Main.elm b/src/Main.elm index 6d7f961e034590d2d878be55035b236d4b83a7db..f222790c9575375af631a4922beb81f3bf6c5b10 100644 --- a/src/Main.elm +++ b/src/Main.elm @@ -194,14 +194,14 @@ viewHome global = case global.progress of Loading -> Html.div [ Html.Attributes.style "margin" "auto" ] - [ Html.div [ Html.Attributes.class "loader" ] [] - , Html.div - [ Html.Attributes.style "position" "relative" - , Html.Attributes.style "left" "1.5rem" - , Html.Attributes.style "bottom" "5rem" + [ Html.div [ Html.Attributes.class "loader" ] [] + , Html.div + [ Html.Attributes.style "position" "relative" + , Html.Attributes.style "left" "1.5rem" + , Html.Attributes.style "bottom" "5rem" + ] + [ Html.text "Loading Data..." ] ] - [ Html.text "Loading Data..." ] - ] Failure msg -> Html.text (msg |> (++) "Error while loading data. ") @@ -237,7 +237,7 @@ viewHome global = , Html.b [] [ text "Chernoff Gesichtern" ] , text " vergleichen kannst." , text " Durch " - , Html.b [] [ text "Klick auf ein Drittland"] + , Html.b [] [ text "Klick auf ein Drittland" ] , text " 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/ForceDirectedGraph.elm b/src/Views/ForceDirectedGraph.elm index df273b8e7a1e1d4fa904c0c43a6bd5a9cc7c18f1..6412e4aaf444c500dacd4bd152ed5b5a5ec57e59 100644 --- a/src/Views/ForceDirectedGraph.elm +++ b/src/Views/ForceDirectedGraph.elm @@ -26,10 +26,12 @@ import TypedSvg.Core exposing (Attribute, Svg, text) import TypedSvg.Types exposing (AlignmentBaseline(..), AnchorAlignment(..), Paint(..), ShapeRendering(..), TextRendering(..), px) import Utils exposing (flag) + icon : Html Msg icon = Html.i [ Html.Attributes.class "fa-solid fa-hexagon-nodes fa-xl" ] [] + w : Float w = 1000 @@ -104,7 +106,7 @@ view global local = ] , Html.div [ Html.Attributes.class "legend", style "width" "19%" ] [ Html.div [ style "display" "flex" ] - [ Html.h3 [ style "margin-top" "0rem", style "margin-bottom" "0rem",style "align-content" "center" ] + [ Html.h3 [ style "margin-top" "0rem", style "margin-bottom" "0rem", style "align-content" "center" ] [ Html.text "Legende" ] , if not <| local.highlight == "" then @@ -458,7 +460,7 @@ updateGraphWithList = calculateModel : List Entry -> Local.Model -> Cmd Local.Msg calculateModel data local = - Task.perform Local.RecalcEnd (Process.sleep 0 |> Task.andThen (\_ -> postInit data local)) + Task.perform Local.RecalcEnd (Process.sleep 10 |> Task.andThen (\_ -> Process.sleep 0) |> Task.andThen (\_ -> postInit data local)) update : Local.Msg -> Global -> Local.Model -> ( Global, Local.Model, Cmd Msg )