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,26 +4,32 @@
#' #'
#' @returns theme list #' @returns theme list
#' @export #' @export
custom_theme <- function(...){ custom_theme <- function(...,
version = 5,
primary = "#1E4A8F",
secondary = "#FF6F61",
# success = "#1E4A8F",
# info = ,
# warning = ,
# danger = ,
# fg = "#000",
# bg="#fff",
bootswatch = "united",
base_font = bslib::font_google("Montserrat"),
# base_font = bslib::font_google("Alice"),
# heading_font = bslib::font_google("Jost", wght = "800"),
# 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")){
bslib::bs_theme( bslib::bs_theme(
..., ...,
# preset = "united", version = version,
version = 5, primary = primary,
primary = "#1E4A8F", secondary = secondary,
secondary = "#FF6F61", bootswatch = bootswatch,
# success = "#1E4A8F", base_font = base_font,
# info = , heading_font = heading_font,
# warning = , code_font = code_font
# danger = ,
# fg = "#000",
# bg="#fff",
bootswatch = "united",
base_font = bslib::font_google("Montserrat"),
# base_font = bslib::font_google("Alice"),
# heading_font = bslib::font_google("Jost", wght = "800"),
# 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")
) )
} }

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
}