configurable card fade surface background

unisonweb · Aug 29, 2023 · 2737b3a · 2737b3a
1 parent 67d5c8f
commit 2737b3a
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/src/UI/EmptyStateCard.elm b/src/UI/EmptyStateCard.elm
@@ -18,6 +18,19 @@ asCard emptyState =
  |> Card.asContainedWithFade
 
 
+asCard_ : Card.SurfaceBackgroundColor -> EmptyState msg -> Card msg
+asCard_ surfaceBackground emptyState =
+ Card.card
+ [ div [ class "empty-state-card" ] [ EmptyState.view emptyState ]
+ ]
+ |> Card.asContainedWithFade_ surfaceBackground
+
+
 view : EmptyState msg -> Html msg
 view =
  asCard >> Card.view
+
+
+view_ : Card.SurfaceBackgroundColor -> EmptyState msg -> Html msg
+view_ surfaceBackground emptyState =
+ emptyState |> asCard_ surfaceBackground |> Card.view