feat(shiny-preset): Notifications, progress bars, and modals

inst/builtin/bs5/shiny/_rules.scss

@@ -92,12 +92,12 @@ $bslib-checkbox-radio-margin-right: 0.35em !default;
 @if $bslib-enable-shadows {
 
   :root {
-    --bslib-shiny-preset-main-bg: rgba(var(--bs-emphasis-color-rgb, 0,0,0), 0.05);
+    --bslib-shiny-preset-main-bg: rgba(var(--#{prefix}emphasis-color-rgb, 0,0,0), 0.05);
   }
 
   .bslib-page-sidebar {
-    --bslib-page-sidebar-title-color: var(--bs-body-color);
-    --bslib-page-sidebar-title-bg: var(--bs-body-bg);
+    --bslib-page-sidebar-title-color: var(--#{prefix}body-color);
+    --bslib-page-sidebar-title-bg: var(--#{prefix}body-bg);
 
     > .bslib-sidebar-layout:first-of-type > .main {
       background-color: var(--bslib-shiny-preset-main-bg);
@@ -118,15 +118,15 @@ $bslib-checkbox-radio-margin-right: 0.35em !default;
   }
 
   .bslib-sidebar-layout.bslib-sidebar-layout {
-    --bslib-sidebar-bg: var(--bs-body-bg);
+    --bslib-sidebar-bg: var(--#{prefix}body-bg);
   }
 }
 
 // By default, non-active .nav links reflect the primary color. This styling
-// tweak brings them closer to how they'll appear in a navbar. 
+// tweak brings them closer to how they'll appear in a navbar.
 .nav-underline {
-  --#{$prefix}link-color: rgba(var(--bs-body-color-rgb), 0.65); 
-  --#{$prefix}link-hover-color: rgba(var(--bs-body-color-rgb), 0.8);
+  --#{$prefix}link-color: rgba(var(--#{prefix}body-color-rgb), 0.65);
+  --#{$prefix}link-hover-color: rgba(var(--#{prefix}body-color-rgb), 0.8);
   --#{$prefix}nav-link-font-size: 0.875rem;
 
   .nav-link {
@@ -189,3 +189,72 @@ $icon-classes: ("bi", "fa", "fas", "far", "fab", "material-icons") !default;
     --bslib-color-fg: #008558; // Contrast 4.67
   }
 }
+
+// Modals
+.modal-body, .modal-footer {
+  padding: 1.5rem;
+}
+.modal-header .btn-close {
+  align-self: start;
+  display: flex;
+}
+#shiny-modal-wrapper:has( ~ .modal-backdrop) .modal {
+  // Blur the background when the modal has a backdrop
+  backdrop-filter: blur(2px);
+}
+
+// Progress Bars & Notifications
+// FIXME: Use css layers (dynamic themeing issue)
+#shiny-notification-panel#shiny-notification-panel {
+  position: fixed;
+  bottom: calc(var(--bslib-spacer, 1rem) / 2);
+  right: calc(var(--bslib-spacer, 1rem) / 2);
+  width: 450px;
+  z-index: $zindex-toast;
+}
+
+.progress-message {
+  margin-right: .6rem;
+}
+
+// FIXME: Use css layers (dynamic themeing issue)
+.shiny-notification.shiny-notification {
+  position: relative;
+  opacity: 0.96;
+  padding: calc(var(--bslib-spacer, 1rem) * 2);
+  margin: var(--bslib-spacer, 1rem);
+  border: $border-width solid rgba(var(--#{prefix}emphasis-color-rgb), 0.8);
+  border-radius: $card-border-radius;
+  box-shadow: $box-shadow;
+
+  .shiny-notification-close {
+    position: absolute;
+    font-size: 1.5em;
+    width: 2rem;
+    height: 2rem;
+    top: 0;
+    right: 0;
+    bottom: unset;
+    display: flex;
+    align-items: center;
+    justify-content: center;
+    padding: 0.25rem;
+    cursor: pointer;
+    font-weight: 200;
+    color: currentColor;
+
+    &:hover {
+      font-weight: normal;
+    }
+  }
+
+  .shiny-notification-content-text :last-child {
+    margin-bottom: 0;
+  }
+}
+
+@include color-mode(dark) {
+  .shiny-notification.shiny-notification {
+    box-shadow: $box-shadow-dark;
+  }
+}

inst/builtin/bs5/shiny/_variables.scss

@@ -116,4 +116,13 @@ $card-border-radius: 8px !default;
 
 // bslib variables
 $bslib-enable-shadows: true !default;
-$bslib-value-box-enable-shadow: $bslib-enable-shadows !default;
+$bslib-value-box-enable-shadow: $bslib-enable-shadows !default;
+
+// Modals
+$modal-dialog-margin-y-sm-up: 10% !default;
+$modal-header-border-width: none !default;
+$modal-header-padding: 1.5rem !default;
+$modal-backdrop-bg: #464646 !default;
+
+// Shiny: Base shiny.scss variables
+$notification-close-color: currentColor !default;

inst/themer-demo/app.R

@@ -330,7 +330,10 @@ shinyApp(
         style = style,
         {
           for (i in 1:15) {
-            incProgress(1/15)
+            incProgress(
+              amount = 1/15,
+              detail = paste("Step", i, "of", 15)
+            )
             Sys.sleep(0.25)
           }
         })