ForceDirectedGraph: little style tweaks (fr)

src/Views/ForceDirectedGraph.elm

@@ -45,11 +45,11 @@ h =
 view : Global -> Local.Model -> Html Msg
 view global local =
     Html.div [ style "width" "100%" ]
-        [ Html.div [ style "display" "flex", style "flex-direction" "row", style "align-items" "center" ]
+        [ Html.div [ style "display" "flex", style "flex-direction" "row", style "align-items" "center", style "margin-bottom" "0.5rem" ]
             [ Html.div []
-                [ Html.h2 [ style "margin-top" "0" ]
-                    [ Html.text "Force directed Graph" ]
-                , Html.div [ style "display" "flex", style "flex-direction" "row", style "gap" "0.5rem" ]
+                [-- Html.h2 [ style "margin-top" "0" ]
+                --     [ Html.text "Force directed Graph" ]
+                Html.div [ style "display" "flex", style "flex-direction" "row", style "gap" "0.5rem" ]
                     [ Html.button [ Local.ChangeVersion 0 |> propagate |> onClick ]
                         [ Html.text "Version 1" ]
                     , Html.button [ Local.ChangeVersion 1 |> propagate |> onClick ]
@@ -110,7 +110,7 @@ view global local =
                         [ Html.text "Legende"
                         ]
                     , if not <| local.highlight == "" then
-                        Html.button [ Local.Highlight "" |> propagate |> onClick, style "margin-left" "auto" ]
+                        Html.button [ Local.Highlight "" |> propagate |> onClick, style "margin-left" "auto", style "padding" "0" ]
                             [ Html.i [ Html.Attributes.class "fa-solid fa-repeat fa-xl" ] [] ]
 
                       else