From 53841327c14628aeb3af916f6d75be567ff11f15 Mon Sep 17 00:00:00 2001
From: Nick Strayer <nick.strayer@gmail.com>
Date: Thu, 6 Oct 2022 16:43:08 -0400
Subject: [PATCH] Make grid_card the base element of grid_card_text so
 passthrough arguments work as expected

---
 R/grid_card_text.R | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/R/grid_card_text.R b/R/grid_card_text.R
index 8113435..98001f7 100644
--- a/R/grid_card_text.R
+++ b/R/grid_card_text.R
@@ -93,20 +93,21 @@ grid_card_text <- function(area,
     wrapping_tag <- htmltools::tags[[wrapping_tag]]
   }
 
-  grid_place(
-    area = area,
-    htmltools::tags$div(
-      class = "card grid_card_text",
-      style = htmltools::css(
-        `align-items` = alignment
-      ),
+  update_el(
+    grid_card(
+      area = area,
       wrapping_tag(
         htmltools::tagList(
           icon,
           content
         )
       ),
+      ...,
       if (is_title) htmltools::tags$head(htmltools::tags$title(content))
+    ),
+    classes = c("grid_card_text"),
+    styles = list(
+      `align-items` = alignment
     )
   )
 }