style: make button contrast higher on action modals

Author: dtrckd

Diff for: src/Components/ActionPanel.elm

@@ -1346,14 +1346,14 @@ viewStep1 op model =
             , div [ class "field level is-mobile" ]
                 [ div [ class "level-left" ]
                     [ button
-                        [ class "button is-light"
+                        [ class "button"
                         , onClick (OnCloseModalSafe "" "")
                         ]
                         [ text T.cancel ]
                     ]
                 , div [ class "level-right" ]
                     [ button
-                        [ class ("button defaultSubmit is-light is-" ++ color)
+                        [ class ("button defaultSubmit is-" ++ color)
                         , classList [ ( "is-loading", isLoading ) ]
                         , disabled (not (isSendable model) || isLoading)
                         , onClick (OnSubmit OnActionSubmit)

Diff for: src/Components/MoveTension.elm

@@ -620,7 +620,7 @@ viewModalContent op model =
                             [ span [ attribute "aria-controls" "target-menu" ]
                                 [ if List.member model.form.target.nameid [ "", model.target ] then
                                     span
-                                        [ class "button is-small is-light is-inverted" ]
+                                        [ class "button is-small s-light is-inverted" ]
                                         [ text T.selectADestination, span [ class "ml-2 icon-chevron-down1" ] [] ]
 
                                   else
@@ -661,14 +661,14 @@ viewModalContent op model =
             , div [ class "field level is-mobile" ]
                 [ div [ class "level-left" ]
                     [ button
-                        [ class "button is-light"
+                        [ class "button"
                         , onClick (OnCloseSafe "" "")
                         ]
                         [ text T.cancel ]
                     ]
                 , div [ class "level-right" ]
                     [ button
-                        [ class ("button defaultSubmit is-light is-" ++ color)
+                        [ class ("button defaultSubmit is-" ++ color)
                         , classList [ ( "is-loading", isLoading ) ]
                         , disabled (not isSendable || isLoading)
                         , onClick (OnSubmit <| OnMove)

Diff for: src/Form/NewTension.elm

@@ -1638,7 +1638,8 @@ viewCircle op model =
                                             ]
                                         , div [ class "level-right" ]
                                             [ div [ class "buttons" ]
-                                                [ if model.simplifiedView then
+                                                -- Make this as simply at possible / to complex for user from now...
+                                                [ if model.simplifiedView || True then
                                                     text ""
 
                                                   else
@@ -1854,7 +1855,7 @@ viewInviteRole model =
             , div [ class "field" ]
                 [ div [ class "is-pulled-right" ]
                     [ button
-                        [ class "button is-light is-link"
+                        [ class "button is-link"
                         , classList [ ( "is-loading", isLoading ) ]
                         , disabled (not (isUsersSendable form.users) || isLoading)
                         , onClick (OnSubmit (not isLoading) OnInvite)

Diff for: src/Query/QueryNode.elm

@@ -1471,7 +1471,10 @@ notifEventPayload =
 
 getOrgaInfo url username nameid msg =
     makeGQLQuery url
-        (SelectionSet.map2 (\x y -> Maybe.map (\oi -> { oi | n_projects = unwrap2 0 .count y }) x)
+        (SelectionSet.map2
+            (\x y ->
+                Maybe.map (\oi -> { oi | n_projects = unwrap2 0 .count y }) x
+            )
             (Query.getNode (nidFilter nameid) (orgaInfoPayload username))
             (Query.aggregateProject (\a -> { a | filter = Present <| Input.buildProjectFilter (\x -> { x | rootnameid = Present { eq = Present nameid, in_ = Absent }, status = Present { eq = Present ProjectStatus.Open, in_ = Absent } }) })
                 (SelectionSet.map Count Fractal.Object.ProjectAggregateResult.count)