Files
homekeeper/listkeeper/R/ui.R
T
2026-07-06 19:25:38 +02:00

36 lines
1.1 KiB
R

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")
)
)
}