ui <- function() {
  bslib::page(
    fillable = FALSE,
    title    = "Listen",
    theme    = bslib::bs_theme(version = 5),
    shiny::tags$head(
      shiny::tags$meta(name = "viewport", content = "width=device-width, initial-scale=1"),
      shiny::tags$style(shiny::HTML("
        body { background: #f8f9fa !important; }
        .bk-header {
          background: #fff;
          border-bottom: 1px solid #dee2e6;
          padding: .75rem 1rem;
          position: sticky;
          top: 0;
          z-index: 100;
        }
        .tap-card { cursor: pointer; }
        .tap-card:active { opacity: .8; }
        .card { overflow: hidden; }
        .item-row { border-bottom: 1px solid #f0f0f0; }
        .item-row:last-child { border-bottom: none; }
        #ss-connect-dialog, .shiny-disconnected-overlay { display: none !important; }
      "))
    ),
    shiny::div(
      class = "bk-header d-flex justify-content-between align-items-center",
      shiny::tags$h4(class = "mb-0", "Listen")
    ),
    shiny::div(
      class = "container-fluid p-3",
      screen_home_ui("s_home")
    )
  )
}