You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
87 lines
1.5 KiB
87 lines
1.5 KiB
.onLoad <- function(...) {
|
|
|
|
if (systemfonts::font_info("Inter")[["family"]][1] == "Inter") {
|
|
if (interactive()) packageStartupMessage("Registering 'Inter' font variant.")
|
|
reconfigure_font(
|
|
prefix = "hrbragg-pkg",
|
|
family = "Inter",
|
|
width = "normal",
|
|
ligatures = "discretionary",
|
|
calt = 1, tnum = 1, case = 1,
|
|
dlig = 1, ss01 = 1, kern = 1,
|
|
zero = 0, salt = 0
|
|
) ->> inter_pkg
|
|
} else {
|
|
packageStartupMessage(
|
|
"Please run `install_inter()`. This is only an interim requirement."
|
|
)
|
|
}
|
|
|
|
if (systemfonts::font_info("Roboto Condensed")[["family"]][1] == "Roboto Condensed") {
|
|
reconfigure_font(
|
|
prefix = "hrbragg",
|
|
family = "Roboto Condensed",
|
|
width = "normal",
|
|
ligatures = "standard",
|
|
ccmp = 1, kern = 1, tnum = 1
|
|
) ->> rc_pkg
|
|
} else {
|
|
packageStartupMessage(
|
|
"Please run `install_roboto_condensed()`. This is only an interim requirement."
|
|
)
|
|
}
|
|
|
|
if (systemfonts::font_info("Goldman Sans")[["family"]][1] == "Goldman Sans") {
|
|
|
|
reconfigure_font(
|
|
prefix = "hrbragg",
|
|
family = "Goldman Sans",
|
|
width = "normal",
|
|
ligatures = "standard",
|
|
kern = 1, tnum = 1
|
|
) ->> gs_pkg
|
|
|
|
reconfigure_font(
|
|
prefix = "hrbragg",
|
|
family = "Goldman Sans Condensed",
|
|
width = "semicondensed",
|
|
ligatures = "standard",
|
|
kern = 1, tnum = 1
|
|
) ->> gsc_pkg
|
|
|
|
|
|
} else {
|
|
packageStartupMessage(
|
|
"Please run `install_goldman_sans()`. This is only an interim requirement."
|
|
)
|
|
}
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|