experimenting with a default theme

This commit is contained in:
Andreas Gammelgaard Damsbo 2024-12-19 11:32:32 +01:00
parent 115e91b6d4
commit cef8c11207
No known key found for this signature in database
2 changed files with 51 additions and 19 deletions

View file

@ -4,10 +4,7 @@
#'
#' @returns theme list
#' @export
custom_theme <- function(...){
bslib::bs_theme(
...,
# preset = "united",
custom_theme <- function(...,
version = 5,
primary = "#1E4A8F",
secondary = "#FF6F61",
@ -24,6 +21,15 @@ custom_theme <- function(...){
# heading_font = bslib::font_google("Noto Serif"),
# heading_font = bslib::font_google("Alice"),
heading_font = bslib::font_google("Public Sans",wght = "700"),
code_font = bslib::font_google("Open Sans")
code_font = bslib::font_google("Open Sans")){
bslib::bs_theme(
...,
version = version,
primary = primary,
secondary = secondary,
bootswatch = bootswatch,
base_font = base_font,
heading_font = heading_font,
code_font = code_font
)
}

26
man/custom_theme.Rd Normal file
View file

@ -0,0 +1,26 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/theme.R
\name{custom_theme}
\alias{custom_theme}
\title{Custom theme based on unity}
\usage{
custom_theme(
...,
version = 5,
primary = "#1E4A8F",
secondary = "#FF6F61",
bootswatch = "united",
base_font = bslib::font_google("Montserrat"),
heading_font = bslib::font_google("Public Sans", wght = "700"),
code_font = bslib::font_google("Open Sans")
)
}
\arguments{
\item{...}{everything passed on to bslib::bs_theme()}
}
\value{
theme list
}
\description{
Custom theme based on unity
}