% Package : fontscale -- A flexible interface for setting font sizes
% Copyright : 2024 (c) Oliver Beery <beeryoliver@gmail.com>
% CTAN : https://ctan.org/pkg/fontscale
% Repository: https://github.com/beeryoliver/fontscale
% License : The LaTeX Project Public License 1.3c
% LaTeX2e version 2023-11-01 added \IfExplAtLeastTF.
\NeedsTeXFormat{LaTeX2e}[2023-11-01]
\ProvidesExplPackage
{fontscale}
{2024-09-10}
{2.4.0}
{A flexible interface for setting font sizes}
% l3kernel version 2023-10-10 added many 'e'-variants.
\IfExplAtLeastTF { 2023-10-10 } { }
{
\msg_new:nnn { fontscale } { expl3-out-of-date }
{
The~ fontscale~ package~ could~ not~ load.~
This~ package~ requires~
L3~ programming~ layer~ version~ 2023-10-10~ or~ newer.
}
\msg_critical:nn { fontscale } { expl3-out-of-date }
}
% This package does not require any other packages!
% DECLARE FONT SIZE PARAMETER VARIABLES
\fp_const:Nn \c_fontscale_tiny_step_fp { -4 }
\fp_const:Nn \c_fontscale_scriptsize_step_fp { -3 }
\fp_const:Nn \c_fontscale_footnotesize_step_fp { -2 }
\fp_const:Nn \c_fontscale_small_step_fp { -1 }
\fp_const:Nn \c_fontscale_normalsize_step_fp { 0 }
\fp_const:Nn \c_fontscale_large_step_fp { 1 }
\fp_const:Nn \c_fontscale_Large_step_fp { 2 }
\fp_const:Nn \c_fontscale_LARGE_step_fp { 3 }
\fp_const:Nn \c_fontscale_huge_step_fp { 4 }
\fp_const:Nn \c_fontscale_Huge_step_fp { 5 }
\fp_const:Nn \c_fontscale_normalsize_scale_fp { 1 }
\fp_new:N \l_fontscale_tiny_scale_fp
\fp_new:N \l_fontscale_scriptsize_scale_fp
\fp_new:N \l_fontscale_footnotesize_scale_fp
\fp_new:N \l_fontscale_small_scale_fp
\fp_new:N \l_fontscale_large_scale_fp
\fp_new:N \l_fontscale_Large_scale_fp
\fp_new:N \l_fontscale_LARGE_scale_fp
\fp_new:N \l_fontscale_huge_scale_fp
\fp_new:N \l_fontscale_Huge_scale_fp
\dim_new:N \l_fontscale_tiny_size_dim
\dim_new:N \l_fontscale_scriptsize_size_dim
\dim_new:N \l_fontscale_footnotesize_size_dim
\dim_new:N \l_fontscale_small_size_dim
\dim_new:N \l_fontscale_normalsize_size_dim
\dim_new:N \l_fontscale_large_size_dim
\dim_new:N \l_fontscale_Large_size_dim
\dim_new:N \l_fontscale_LARGE_size_dim
\dim_new:N \l_fontscale_huge_size_dim
\dim_new:N \l_fontscale_Huge_size_dim
\skip_new:N \l_fontscale_tiny_baselineskip_skip
\skip_new:N \l_fontscale_scriptsize_baselineskip_skip
\skip_new:N \l_fontscale_footnotesize_baselineskip_skip
\skip_new:N \l_fontscale_small_baselineskip_skip
\skip_new:N \l_fontscale_normalsize_baselineskip_skip
\skip_new:N \l_fontscale_large_baselineskip_skip
\skip_new:N \l_fontscale_Large_baselineskip_skip
\skip_new:N \l_fontscale_LARGE_baselineskip_skip
\skip_new:N \l_fontscale_huge_baselineskip_skip
\skip_new:N \l_fontscale_Huge_baselineskip_skip
% INITIALIZE FONT SIZE PARAMETER VARIABLES
\fp_set:Nn \l_fontscale_tiny_scale_fp { 0.6 }
\fp_set:Nn \l_fontscale_scriptsize_scale_fp { 0.7 }
\fp_set:Nn \l_fontscale_footnotesize_scale_fp { 0.8 }
\fp_set:Nn \l_fontscale_small_scale_fp { 0.9 }
\fp_set:Nn \l_fontscale_large_scale_fp { 1.1 }
\fp_set:Nn \l_fontscale_Large_scale_fp { 1.2 }
\fp_set:Nn \l_fontscale_LARGE_scale_fp { 1.4 }
\fp_set:Nn \l_fontscale_huge_scale_fp { 1.6 }
\fp_set:Nn \l_fontscale_Huge_scale_fp { 1.8 }
\dim_set:Nn \l_fontscale_tiny_size_dim { 6pt }
\dim_set:Nn \l_fontscale_scriptsize_size_dim { 7pt }
\dim_set:Nn \l_fontscale_footnotesize_size_dim { 8pt }
\dim_set:Nn \l_fontscale_small_size_dim { 9pt }
\dim_set:Nn \l_fontscale_normalsize_size_dim { 10pt }
\dim_set:Nn \l_fontscale_large_size_dim { 11pt }
\dim_set:Nn \l_fontscale_Large_size_dim { 12pt }
\dim_set:Nn \l_fontscale_LARGE_size_dim { 14pt }
\dim_set:Nn \l_fontscale_huge_size_dim { 16pt }
\dim_set:Nn \l_fontscale_Huge_size_dim { 18pt }
\skip_set:Nn \l_fontscale_tiny_baselineskip_skip { 7.2pt }
\skip_set:Nn \l_fontscale_scriptsize_baselineskip_skip { 8.4pt }
\skip_set:Nn \l_fontscale_footnotesize_baselineskip_skip { 9.6pt }
\skip_set:Nn \l_fontscale_small_baselineskip_skip { 10.8pt }
\skip_set:Nn \l_fontscale_normalsize_baselineskip_skip { 12 pt }
\skip_set:Nn \l_fontscale_large_baselineskip_skip { 13.2pt }
\skip_set:Nn \l_fontscale_Large_baselineskip_skip { 14.4pt }
\skip_set:Nn \l_fontscale_LARGE_baselineskip_skip { 16.8pt }
\skip_set:Nn \l_fontscale_huge_baselineskip_skip { 19.2pt }
\skip_set:Nn \l_fontscale_Huge_baselineskip_skip { 21.6pt }
% SOME VARIABLES
% Used to speed up floating point calculations.
\fp_new:N \l__fontscale_normalsize_size_fp
\fp_set:Nn \l__fontscale_normalsize_size_fp { 10 }
\fp_new:N \l__fontscale_musical_base_fp
\fp_new:N \l__fontscale_musical_notes_fp
% Scratch variables
\tl_new:N \l__fontscale_tmp_tl
\str_new:N \l__fontscale_tmp_str
\dim_new:N \l__fontscale_tmp_dim
\skip_new:N \l__fontscale_tmp_skip
\fp_new:N \l__fontscale_tmp_fp
% SOME FUNCTIONS
% Variants of l3kernel functions
\cs_generate_variant:Nn \msg_error:nnnn { nnv , nne }
% Sets a dimen/skip variable from a dimen/skip expression, appending a default
% unit of pt. This also removes extra tokens.
\cs_new_protected:Npn \__fontscale_dim_set_default_pt:Nn #1#2
{
\afterassignment \use_none_delimit_by_q_stop:w
#1 = \dimexpr #2 pt \relax \relax
\q_stop
}
\cs_generate_variant:Nn \__fontscale_dim_set_default_pt:Nn { c }
\cs_new_protected:Npn \__fontscale_skip_set_default_pt:Nn #1#2
{
\afterassignment \use_none_delimit_by_q_stop:w
#1 = \glueexpr #2 pt \relax
\q_stop
}
\cs_generate_variant:Nn \__fontscale_skip_set_default_pt:Nn { c }
% Used to define \tiny to \Huge. Sets \@currsize only for compatibility. Need
% \dim_use:N only for compatibility with the microtype package.
\cs_new_protected:Npn \__fontscale_fontsize:NNN #1#2#3
{
\cs_set_eq:NN \@currsize #1
\fontsize { \dim_use:N #2 } #3 \selectfont
}
% Similar to \fontsize + \selectfont, except that it:
% (1) Takes dimen and skip expressions as arguments.
% (2) Avoids the issue where \f@size is set to the new font size before the
% second argument is expanded.
% (3) Issues a user-friendly error message if the font size is not a positive
% length.
\dim_new:N \l__fontscale_fontsize_dim
\skip_new:N \l__fontscale_fontsize_skip
\cs_new_protected:Npn \__fontscale_fontsize:nn #1#2
{
\__fontscale_dim_set_default_pt:Nn \l__fontscale_fontsize_dim {#1}
\__fontscale_skip_set_default_pt:Nn \l__fontscale_fontsize_skip {#2}
\dim_compare:nNnTF \l__fontscale_fontsize_dim > \c_zero_dim
{
\fontsize \l__fontscale_fontsize_dim \l__fontscale_fontsize_skip
\selectfont
}
{
\msg_error:nnV { fontscale } { font-size-out-of-bounds }
\l__fontscale_fontsize_dim
}
}
% Similar to the above function, except that it sets the font baselineskip
% equal to the new font size times the baselineskip-size-ratio.
\cs_new_protected:Npn \__fontscale_fontsize:n #1
{
\__fontscale_dim_set_default_pt:Nn \l__fontscale_fontsize_dim {#1}
\dim_compare:nNnTF \l__fontscale_fontsize_dim > \c_zero_dim
{
\fontsize \l__fontscale_fontsize_dim
{
\fp_to_dim:n
{
\l__fontscale_fontsize_dim
* \l__fontscale_baselineskip_size_ratio_fp
}
}
\selectfont
}
{
\msg_error:nnV { fontscale } { font-size-out-of-bounds }
\l__fontscale_fontsize_dim
}
}
% MESSAGES
\msg_new:nnn { fontscale } { key-musical-base-out-of-bounds }
{
Invalid~ value~ '#1'~ \msg_line_context:. \\
The~ value~ of~ the~ key~ 'musical / base'~
must~ be~ a~ positive~ length.
}
\msg_new:nnn { fontscale } { key-musical-ratio-out-of-bounds }
{
Invalid~ value~ '#1'~ \msg_line_context:. \\
The~ value~ of~ the~ key~ 'musical / ratio'~
must~ be~ greater~ than~ 1.
}
\msg_new:nnn { fontscale } { key-musical-notes-out-of-bounds }
{
Invalid~ value~ '#1'~ \msg_line_context:. \\
The~ value~ of~ the~ key~ 'musical / notes'~
must~ be~ a~ positive~ integer.
}
\msg_new:nnn { fontscale } { key-font-scale-out-of-bounds }
{
Invalid~ value~ '#1'~ \msg_line_context:. \\
The~ value~ of~ the~ key~ '#2 / scale'~
must~ be~ positive.
}
\msg_new:nnn { fontscale } { key-font-size-out-of-bounds }
{
Invalid~ value~ '#1'~ \msg_line_context:. \\
The~ value~ of~ the~ key~ '#2 / size'~
must~ be~ a~ positive~ length.
}
\msg_new:nnn { fontscale } { key-font-scale-overwritten }
{
The~ font~ size~ set~ by~ the~ key~ '#1 / scale'~
has~ been~ overwritten~ by~ the~ key~ '#1 / size'~ \msg_line_context:.
}
\msg_new:nnn { fontscale } { font-sizes-out-of-order }
{
The~ font~ sizes~ are~ not~ in~ the~ correct~ order~ \msg_line_context:. \\
The~ lengths~ of~ the~ font~ sizes~
should~ be~ ordered~ from~ \iow_char:N \\tiny~ to~ \iow_char:N \\Huge.
}
\msg_new:nnn { fontscale } { math-mode-warning }
{ '#1'~ does~ nothing~ if~ used~ in~ math~ mode~ \msg_line_context:. }
\msg_new:nnn { fontscale } { math-mode-error }
{ '#1'~ cannot~ be~ used~ in~ math~ mode~ \msg_line_context:. }
\msg_new:nnn { fontscale } { font-size-out-of-bounds }
{ The~ font~ size~ '#1'~ must~ be~ a~ positive~ length~ \msg_line_context:. }
\msg_new:nnn { fontscale } { font-step-out-of-bounds }
{
Invalid~ font~ step~ '#1'~ \msg_line_context:. \\
The~ font~ step~ must~ equal~ an~ integer~ from~ -4~ to~ 5,~
unless~ the~ value~ of~ the~ key~ 'typographic-scale'~ is~ 'musical'.
}
\msg_new:nnn { fontscale } { current-font-step-out-of-bounds }
{
'\iow_char:N \\SetFontStep*'~ could~ not~ calculate~ the~ new~ font~ step~
because~ the~ current~ font~ step~ is~ undefined~ \msg_line_context:.
}
% DEFINE KEYS
\str_new:N \l__fontscale_typographic_scale_str
\dim_new:N \l__fontscale_musical_base_dim
\cs_new_protected:Npn \__fontscale_keys_name:n #1
{
\tl_if_in:nnTF {#1} { / }
{ \__fontscale_keys_name_split:ww #1 \q_stop }
{ \tl_set:cn { l__fontscale_ \l_keys_key_str _size_tl } {#1} }
}
\cs_new_protected:Npn \__fontscale_keys_name_split:ww #1 / #2 \q_stop
{
\tl_set:cn { l__fontscale_ \l_keys_key_str _size_tl } {#1}
\tl_set:cn { l__fontscale_ \l_keys_key_str _baselineskip_tl } {#2}
}
\keys_define:nn { fontscale }
{
baselineskip-size-ratio .fp_set:N =
\l__fontscale_baselineskip_size_ratio_fp
, baselineskip-size-ratio .value_required:n = true
, typographic-scale .choices:nn =
{ classic-10pt , classic-11pt , classic-12pt , musical }
{ \str_set:Nn \l__fontscale_typographic_scale_str {#1} }
, typographic-scale .value_required:n = true
, classic-10pt .meta:n = { typographic-scale = classic-10pt }
, classic-10pt .value_forbidden:n = true
, classic-11pt .meta:n = { typographic-scale = classic-11pt }
, classic-11pt .value_forbidden:n = true
, classic-12pt .meta:n = { typographic-scale = classic-12pt }
, classic-12pt .value_forbidden:n = true
, musical .meta:n = { typographic-scale = musical }
, musical .value_forbidden:n = true
}
\keys_define:nn { fontscale / musical }
{
base .code:n =
\__fontscale_dim_set_default_pt:Nn \l__fontscale_musical_base_dim {#1}
, base .value_required:n = true
, ratio .fp_set:N = \l__fontscale_musical_ratio_fp
, ratio .value_required:n = true
, notes .int_set:N = \l__fontscale_musical_notes_int
, notes .value_required:n = true
}
\keys_define:nn { fontscale / normalsize }
{
size .tl_set:N = \l__fontscale_normalsize_size_tl
, size .value_required:n = true
, baselineskip .tl_set:N = \l__fontscale_normalsize_baselineskip_tl
, baselineskip .value_required:n = true
}
\keys_define:nn { fontscale / tiny }
{
scale .tl_set:N = \l__fontscale_tiny_scale_tl
, scale .value_required:n = true
, size .tl_set:N = \l__fontscale_tiny_size_tl
, size .value_required:n = true
, baselineskip .tl_set:N = \l__fontscale_tiny_baselineskip_tl
, baselineskip .value_required:n = true
}
\keys_define:nn { fontscale / scriptsize }
{
scale .tl_set:N = \l__fontscale_scriptsize_scale_tl
, scale .value_required:n = true
, size .tl_set:N = \l__fontscale_scriptsize_size_tl
, size .value_required:n = true
, baselineskip .tl_set:N = \l__fontscale_scriptsize_baselineskip_tl
, baselineskip .value_required:n = true
}
\keys_define:nn { fontscale / footnotesize }
{
scale .tl_set:N = \l__fontscale_footnotesize_scale_tl
, scale .value_required:n = true
, size .tl_set:N = \l__fontscale_footnotesize_size_tl
, size .value_required:n = true
, baselineskip .tl_set:N = \l__fontscale_footnotesize_baselineskip_tl
, baselineskip .value_required:n = true
}
\keys_define:nn { fontscale / small }
{
scale .tl_set:N = \l__fontscale_small_scale_tl
, scale .value_required:n = true
, size .tl_set:N = \l__fontscale_small_size_tl
, size .value_required:n = true
, baselineskip .tl_set:N = \l__fontscale_small_baselineskip_tl
, baselineskip .value_required:n = true
}
\keys_define:nn { fontscale / large }
{
scale .tl_set:N = \l__fontscale_large_scale_tl
, scale .value_required:n = true
, size .tl_set:N = \l__fontscale_large_size_tl
, size .value_required:n = true
, baselineskip .tl_set:N = \l__fontscale_large_baselineskip_tl
, baselineskip .value_required:n = true
}
\keys_define:nn { fontscale / Large }
{
scale .tl_set:N = \l__fontscale_Large_scale_tl
, scale .value_required:n = true
, size .tl_set:N = \l__fontscale_Large_size_tl
, size .value_required:n = true
, baselineskip .tl_set:N = \l__fontscale_Large_baselineskip_tl
, baselineskip .value_required:n = true
}
\keys_define:nn { fontscale / LARGE }
{
scale .tl_set:N = \l__fontscale_LARGE_scale_tl
, scale .value_required:n = true
, size .tl_set:N = \l__fontscale_LARGE_size_tl
, size .value_required:n = true
, baselineskip .tl_set:N = \l__fontscale_LARGE_baselineskip_tl
, baselineskip .value_required:n = true
}
\keys_define:nn { fontscale / huge }
{
scale .tl_set:N = \l__fontscale_huge_scale_tl
, scale .value_required:n = true
, size .tl_set:N = \l__fontscale_huge_size_tl
, size .value_required:n = true
, baselineskip .tl_set:N = \l__fontscale_huge_baselineskip_tl
, baselineskip .value_required:n = true
}
\keys_define:nn { fontscale / Huge }
{
scale .tl_set:N = \l__fontscale_Huge_scale_tl
, scale .value_required:n = true
, size .tl_set:N = \l__fontscale_Huge_size_tl
, size .value_required:n = true
, baselineskip .tl_set:N = \l__fontscale_Huge_baselineskip_tl
, baselineskip .value_required:n = true
}
\keys_define:nn { fontscale }
{
tiny .code:n = \__fontscale_keys_name:n {#1}
, tiny .value_required:n = true
, scriptsize .code:n = \__fontscale_keys_name:n {#1}
, scriptsize .value_required:n = true
, footnotesize .code:n = \__fontscale_keys_name:n {#1}
, footnotesize .value_required:n = true
, small .code:n = \__fontscale_keys_name:n {#1}
, small .value_required:n = true
, normalsize .code:n = \__fontscale_keys_name:n {#1}
, normalsize .value_required:n = true
, large .code:n = \__fontscale_keys_name:n {#1}
, large .value_required:n = true
, Large .code:n = \__fontscale_keys_name:n {#1}
, Large .value_required:n = true
, LARGE .code:n = \__fontscale_keys_name:n {#1}
, LARGE .value_required:n = true
, huge .code:n = \__fontscale_keys_name:n {#1}
, huge .value_required:n = true
, Huge .code:n = \__fontscale_keys_name:n {#1}
, Huge .value_required:n = true
}
% INITIALIZE AND PRE-COMPILE KEYS
% Pre-compiles the keys with their initial values and then sets the keys to
% their initial values. This is significantly faster than using .initial:n and
% \keys_precompile:nnN.
\cs_new_protected:Npn \__fontscale_keys_set_initial:
{
\fp_set:Nn \l__fontscale_baselineskip_size_ratio_fp { 1.2 }
\str_set:Nn \l__fontscale_typographic_scale_str { classic-10pt }
\dim_set:Nn \l__fontscale_musical_base_dim { 10pt }
\fp_set:Nn \l__fontscale_musical_ratio_fp { 2 }
\int_set:Nn \l__fontscale_musical_notes_int { 5 }
\tl_map_inline:nn
{
\l__fontscale_tiny_scale_tl
\l__fontscale_scriptsize_scale_tl
\l__fontscale_footnotesize_scale_tl
\l__fontscale_small_scale_tl
\l__fontscale_large_scale_tl
\l__fontscale_Large_scale_tl
\l__fontscale_LARGE_scale_tl
\l__fontscale_huge_scale_tl
\l__fontscale_Huge_scale_tl
\l__fontscale_tiny_size_tl
\l__fontscale_scriptsize_size_tl
\l__fontscale_footnotesize_size_tl
\l__fontscale_small_size_tl
\l__fontscale_normalsize_size_tl
\l__fontscale_large_size_tl
\l__fontscale_Large_size_tl
\l__fontscale_LARGE_size_tl
\l__fontscale_huge_size_tl
\l__fontscale_Huge_size_tl
\l__fontscale_tiny_baselineskip_tl
\l__fontscale_scriptsize_baselineskip_tl
\l__fontscale_footnotesize_baselineskip_tl
\l__fontscale_small_baselineskip_tl
\l__fontscale_normalsize_baselineskip_tl
\l__fontscale_large_baselineskip_tl
\l__fontscale_Large_baselineskip_tl
\l__fontscale_LARGE_baselineskip_tl
\l__fontscale_huge_baselineskip_tl
\l__fontscale_Huge_baselineskip_tl
}
{ \tl_set:Nn ##1 { \q_no_value } }
}
\__fontscale_keys_set_initial:
% SET AND PROCESS KEYS
\NewDocumentCommand \fontscalesetup { s m }
{
\mode_if_math:TF
{
\msg_warning:nne { fontscale } { math-mode-warning }
{ \token_to_str:N \fontscalesetup }
}
{
\IfBooleanTF #1
{ \__fontscale_keys_reset:n {#2} }
{ \__fontscale_keys_set:n {#2} }
}
}
\cs_new_protected:Npn \__fontscale_keys_set:n #1
{
\keys_set:nn { fontscale } {#1}
\__fontscale_keys_process:
\normalsize
\prg_break:
\prg_break_point:
}
\cs_new_protected:Npn \__fontscale_keys_reset:n
{ \__fontscale_keys_set_initial: \__fontscale_keys_set:n }
\cs_new_protected:Npn \__fontscale_keys_process:
{
\__fontscale_keys_process_start:
\__fontscale_keys_process_normalsize:
\__fontscale_keys_process_other:
\__fontscale_keys_process_check_order:
}
\cs_new_protected:Npn \__fontscale_keys_process_start:
{
\dim_compare:nNnF \l__fontscale_musical_base_dim > \c_zero_dim
{
\msg_error:nnV { fontscale } { key-musical-base-out-of-bounds }
\l__fontscale_musical_base_dim
\prg_break:
}
\fp_compare:nNnF \l__fontscale_musical_ratio_fp > \c_one_fp
{
\msg_error:nne { fontscale } { key-musical-ratio-out-of-bounds }
{ \fp_use:N \l__fontscale_musical_ratio_fp }
\prg_break:
}
\int_compare:nNnF \l__fontscale_musical_notes_int > 0
{
\msg_error:nnV { fontscale } { key-musical-notes-out-of-bounds }
\l__fontscale_musical_notes_int
\prg_break:
}
}
% Sets the font size and font baselineskip of \normalsize.
\cs_new_protected:Npn \__fontscale_keys_process_normalsize:
{
\quark_if_no_value:NTF \l__fontscale_normalsize_size_tl
{
\dim_set:Nn \l_fontscale_normalsize_size_dim
{
\str_case:Vn \l__fontscale_typographic_scale_str
{
{ classic-10pt } { 10pt }
{ classic-11pt } { 11pt }
{ classic-12pt } { 12pt }
{ musical } { \l__fontscale_musical_base_dim }
}
}
}
{
\__fontscale_dim_set_default_pt:Nn \l_fontscale_normalsize_size_dim
{ \l__fontscale_normalsize_size_tl }
\dim_compare:nNnF \l_fontscale_normalsize_size_dim > \c_zero_dim
{
\msg_error:nnVn { fontscale } { key-font-size-out-of-bounds }
\l_fontscale_normalsize_size_dim { normalsize }
\prg_break:
}
}
\fp_set:Nn \l__fontscale_normalsize_size_fp
{ \l_fontscale_normalsize_size_dim }
\quark_if_no_value:NTF \l__fontscale_normalsize_baselineskip_tl
{
\skip_set:Nn \l_fontscale_normalsize_baselineskip_skip
{
\fp_to_dim:n
{
\l__fontscale_normalsize_size_fp
* \l__fontscale_baselineskip_size_ratio_fp
}
}
}
{
\__fontscale_skip_set_default_pt:Nn
\l_fontscale_normalsize_baselineskip_skip
{ \l__fontscale_normalsize_baselineskip_tl }
}
}
% Auxiliary functions that expand to the font size depending on the name of the
% font size command.
\cs_new:Npn \__fontscale_keys_process_other_classic_xpt:n #1
{
\str_case:nn {#1}
{
{ tiny } { 6pt }
{ scriptsize } { 7pt }
{ footnotesize } { 8pt }
{ small } { 9pt }
{ large } { 11pt }
{ Large } { 12pt }
{ LARGE } { 14pt }
{ huge } { 16pt }
{ Huge } { 18pt }
}
}
\cs_new:Npn \__fontscale_keys_process_other_classic_xipt:n #1
{
\str_case:nn {#1}
{
{ tiny } { 7pt }
{ scriptsize } { 8pt }
{ footnotesize } { 9pt }
{ small } { 10pt }
{ large } { 12pt }
{ Large } { 14pt }
{ LARGE } { 16pt }
{ huge } { 18pt }
{ Huge } { 21pt }
}
}
\cs_new:Npn \__fontscale_keys_process_other_classic_xiipt:n #1
{
\str_case:nn {#1}
{
{ tiny } { 8pt }
{ scriptsize } { 9pt }
{ footnotesize } { 10pt }
{ small } { 11pt }
{ large } { 14pt }
{ Large } { 16pt }
{ LARGE } { 18pt }
{ huge } { 21pt }
{ Huge } { 24pt }
}
}
\cs_new:Npn \__fontscale_keys_process_other_musical:n #1
{
\fp_to_dim:n
{
\l__fontscale_musical_base_fp * \l__fontscale_musical_ratio_fp
^ ( \use:c { c_fontscale_#1_step_fp }
/ \l__fontscale_musical_notes_fp )
}
}
% Sets the font size, font scale, and font baselineskip of the other font size
% commands.
\cs_new_protected:Npn \__fontscale_keys_process_other:
{
\str_case:Vn \l__fontscale_typographic_scale_str
{
{ classic-10pt }
{
\cs_set_eq:NN \__fontscale_keys_process_other_fn_aux:n
\__fontscale_keys_process_other_classic_xpt:n
}
{ classic-11pt }
{
\cs_set_eq:NN \__fontscale_keys_process_other_fn_aux:n
\__fontscale_keys_process_other_classic_xipt:n
}
{ classic-12pt }
{
\cs_set_eq:NN \__fontscale_keys_process_other_fn_aux:n
\__fontscale_keys_process_other_classic_xiipt:n
}
{ musical }
{
\cs_set_eq:NN \__fontscale_keys_process_other_fn_aux:n
\__fontscale_keys_process_other_musical:n
\fp_set:Nn \l__fontscale_musical_base_fp
{ \l__fontscale_musical_base_dim }
\fp_set:Nn \l__fontscale_musical_notes_fp
{ \l__fontscale_musical_notes_int }
}
}
\tl_map_function:nN
{
{tiny} {scriptsize} {footnotesize} {small}
{large} {Large} {LARGE} {huge} {Huge}
}
\__fontscale_keys_process_other_fn:n
}
\cs_new_protected:Npn \__fontscale_keys_process_other_fn:n #1
{
\quark_if_no_value:cF { l__fontscale_#1_scale_tl }
{
\dim_set:cn { l_fontscale_#1_size_dim }
{
\fp_to_dim:n
{
\l__fontscale_normalsize_size_fp
* ( \use:c { l__fontscale_#1_scale_tl } )
}
}
\dim_compare:nNnF { \use:c { l_fontscale_#1_size_dim } } > \c_zero_dim
{
\tl_map_break:n
{
\msg_error:nnen { fontscale } { key-font-scale-out-of-bounds }
{ \fp_eval:n { \use:c { l__fontscale_#1_scale_tl } } } {#1}
\prg_break:
}
}
\quark_if_no_value:cT { l__fontscale_#1_size_tl } { \prg_break: }
}
\quark_if_no_value:cF { l__fontscale_#1_size_tl }
{
\__fontscale_dim_set_default_pt:cn { l_fontscale_#1_size_dim }
{ \use:c { l__fontscale_#1_size_tl } }
\dim_compare:nNnF { \use:c { l_fontscale_#1_size_dim } } > \c_zero_dim
{
\tl_map_break:n
{
\msg_error:nnvn { fontscale } { key-font-size-out-of-bounds }
{ l_fontscale_#1_size_dim } {#1}
\prg_break:
}
}
\quark_if_no_value:cF { l__fontscale_#1_scale_tl }
{
\msg_warning:nnn { fontscale } { key-font-scale-overwritten } {#1}
}
\prg_break:
}
\dim_set:cn { l_fontscale_#1_size_dim }
{ \__fontscale_keys_process_other_fn_aux:n {#1} }
\prg_break:
\prg_break_point:
\fp_set:cn { l_fontscale_#1_scale_fp }
{ \use:c { l_fontscale_#1_size_dim } / \l__fontscale_normalsize_size_fp }
\quark_if_no_value:cTF { l__fontscale_#1_baselineskip_tl }
{
\skip_set:cn { l_fontscale_#1_baselineskip_skip }
{
\fp_to_dim:n
{
\use:c { l_fontscale_#1_size_dim }
* \l__fontscale_baselineskip_size_ratio_fp
}
}
}
{
\__fontscale_skip_set_default_pt:cn
{ l_fontscale_#1_baselineskip_skip }
{ \use:c { l__fontscale_#1_baselineskip_tl } }
}
}
% Issues a warning if the font sizes are not in the correct order.
\cs_new_protected:Npn \__fontscale_keys_process_check_order:
{
\dim_compare:nF
{
\l_fontscale_tiny_size_dim
< \l_fontscale_scriptsize_size_dim
< \l_fontscale_footnotesize_size_dim
< \l_fontscale_small_size_dim
< \l_fontscale_normalsize_size_dim
< \l_fontscale_large_size_dim
< \l_fontscale_Large_size_dim
< \l_fontscale_LARGE_size_dim
< \l_fontscale_huge_size_dim
< \l_fontscale_Huge_size_dim
}
{ \msg_warning:nn { fontscale } { font-sizes-out-of-order } }
}
% DOCUMENT COMMANDS
% Defines the standard LaTeX font size commands from \tiny to \Huge and
% initializes to \normalsize. The corresponding internal functions are not used
% elsewhere in the code for compatibility with hooks such as
% \AddToHook{cmd/<font size command>/after}{<code>}.
\DeclareDocumentCommand \tiny { }
{
\mode_if_math:TF
{
\msg_warning:nne { fontscale } { math-mode-warning }
{ \token_to_str:N \tiny }
}
{ \__fontscale_tiny: }
}
\cs_new_protected:Npn \__fontscale_tiny:
{
\__fontscale_fontsize:NNN \tiny \l_fontscale_tiny_size_dim
\l_fontscale_tiny_baselineskip_skip
}
\DeclareDocumentCommand \scriptsize { }
{
\mode_if_math:TF
{
\msg_warning:nne { fontscale } { math-mode-warning }
{ \token_to_str:N \scriptsize }
}
{ \__fontscale_scriptsize: }
}
\cs_new_protected:Npn \__fontscale_scriptsize:
{
\__fontscale_fontsize:NNN \scriptsize \l_fontscale_scriptsize_size_dim
\l_fontscale_scriptsize_baselineskip_skip
}
\DeclareDocumentCommand \footnotesize { }
{
\mode_if_math:TF
{
\msg_warning:nne { fontscale } { math-mode-warning }
{ \token_to_str:N \footnotesize }
}
{ \__fontscale_footnotesize: }
}
\cs_new_protected:Npn \__fontscale_footnotesize:
{
\__fontscale_fontsize:NNN \footnotesize \l_fontscale_footnotesize_size_dim
\l_fontscale_footnotesize_baselineskip_skip
}
\DeclareDocumentCommand \small { }
{
\mode_if_math:TF
{
\msg_warning:nne { fontscale } { math-mode-warning }
{ \token_to_str:N \small }
}
{ \__fontscale_small: }
}
\cs_new_protected:Npn \__fontscale_small:
{
\__fontscale_fontsize:NNN \small \l_fontscale_small_size_dim
\l_fontscale_small_baselineskip_skip
}
\DeclareDocumentCommand \normalsize { }
{
\mode_if_math:TF
{
\msg_warning:nne { fontscale } { math-mode-warning }
{ \token_to_str:N \normalsize }
}
{ \__fontscale_normalsize: }
}
\cs_new_protected:Npn \__fontscale_normalsize:
{
\__fontscale_fontsize:NNN \normalsize \l_fontscale_normalsize_size_dim
\l_fontscale_normalsize_baselineskip_skip
}
\DeclareDocumentCommand \large { }
{
\mode_if_math:TF
{
\msg_warning:nne { fontscale } { math-mode-warning }
{ \token_to_str:N \large }
}
{ \__fontscale_large: }
}
\cs_new_protected:Npn \__fontscale_large:
{
\__fontscale_fontsize:NNN \large \l_fontscale_large_size_dim
\l_fontscale_large_baselineskip_skip
}
\DeclareDocumentCommand \Large { }
{
\mode_if_math:TF
{
\msg_warning:nne { fontscale } { math-mode-warning }
{ \token_to_str:N \Large }
}
{ \__fontscale_Large: }
}
\cs_new_protected:Npn \__fontscale_Large:
{
\__fontscale_fontsize:NNN \Large \l_fontscale_Large_size_dim
\l_fontscale_Large_baselineskip_skip
}
\DeclareDocumentCommand \LARGE { }
{
\mode_if_math:TF
{
\msg_warning:nne { fontscale } { math-mode-warning }
{ \token_to_str:N \LARGE }
}
{ \__fontscale_LARGE: }
}
\cs_new_protected:Npn \__fontscale_LARGE:
{
\__fontscale_fontsize:NNN \LARGE \l_fontscale_LARGE_size_dim
\l_fontscale_LARGE_baselineskip_skip
}
\DeclareDocumentCommand \huge { }
{
\mode_if_math:TF
{
\msg_warning:nne { fontscale } { math-mode-warning }
{ \token_to_str:N \huge }
}
{ \__fontscale_huge: }
}
\cs_new_protected:Npn \__fontscale_huge:
{
\__fontscale_fontsize:NNN \huge \l_fontscale_huge_size_dim
\l_fontscale_huge_baselineskip_skip
}
\DeclareDocumentCommand \Huge { }
{
\mode_if_math:TF
{
\msg_warning:nne { fontscale } { math-mode-warning }
{ \token_to_str:N \Huge }
}
{ \__fontscale_Huge: }
}
\cs_new_protected:Npn \__fontscale_Huge:
{
\__fontscale_fontsize:NNN \Huge \l_fontscale_Huge_size_dim
\l_fontscale_Huge_baselineskip_skip
}
\normalsize
\NewExpandableDocumentCommand \CurrentFontStep { } { \__fontscale_step: }
\cs_new:Npn \__fontscale_step:
{
\dim_case:nnF { \f@size pt }
{
{ \l_fontscale_tiny_size_dim } { -4 }
{ \l_fontscale_scriptsize_size_dim } { -3 }
{ \l_fontscale_footnotesize_size_dim } { -2 }
{ \l_fontscale_small_size_dim } { -1 }
{ \l_fontscale_normalsize_size_dim } { 0 }
{ \l_fontscale_large_size_dim } { 1 }
{ \l_fontscale_Large_size_dim } { 2 }
{ \l_fontscale_LARGE_size_dim } { 3 }
{ \l_fontscale_huge_size_dim } { 4 }
{ \l_fontscale_Huge_size_dim } { 5 }
}
{
\str_if_eq:VnT \l__fontscale_typographic_scale_str { musical }
{
\fp_eval:n
{
\l__fontscale_musical_notes_fp
* ln ( \f@size / \l__fontscale_musical_base_fp )
/ ln ( \l__fontscale_musical_ratio_fp )
}
}
}
}
\NewExpandableDocumentCommand \CurrentFontScale { } { \__fontscale_scale: }
\cs_new:Npn \__fontscale_scale:
{ \fp_eval:n { \f@size / \l__fontscale_normalsize_size_fp } }
\NewExpandableDocumentCommand \CurrentFontSize { } { \__fontscale_size: }
\cs_new:Npn \__fontscale_size: { \f@size pt }
\NewExpandableDocumentCommand \CurrentFontBaselineskip { }
{ \__fontscale_baselineskip: }
\cs_new:Npn \__fontscale_baselineskip: { \f@baselineskip }
\NewExpandableDocumentCommand \CurrentFontSizeCommand { }
{ \__fontscale_name: }
\cs_new:Npn \__fontscale_name:
{
\dim_case:nn { \f@size pt }
{
{ \l_fontscale_tiny_size_dim }
{
\skip_if_eq:nnT { \l_fontscale_tiny_baselineskip_skip }
{ \f@baselineskip } { tiny }
}
{ \l_fontscale_scriptsize_size_dim }
{
\skip_if_eq:nnT { \l_fontscale_scriptsize_baselineskip_skip }
{ \f@baselineskip } { scriptsize }
}
{ \l_fontscale_footnotesize_size_dim }
{
\skip_if_eq:nnT { \l_fontscale_footnotesize_baselineskip_skip }
{ \f@baselineskip } { footnotesize }
}
{ \l_fontscale_small_size_dim }
{
\skip_if_eq:nnT { \l_fontscale_small_baselineskip_skip }
{ \f@baselineskip } { small }
}
{ \l_fontscale_normalsize_size_dim }
{
\skip_if_eq:nnT { \l_fontscale_normalsize_baselineskip_skip }
{ \f@baselineskip } { normalsize }
}
{ \l_fontscale_large_size_dim }
{
\skip_if_eq:nnT { \l_fontscale_large_baselineskip_skip }
{ \f@baselineskip } { large }
}
{ \l_fontscale_Large_size_dim }
{
\skip_if_eq:nnT { \l_fontscale_Large_baselineskip_skip }
{ \f@baselineskip } { Large }
}
{ \l_fontscale_LARGE_size_dim }
{
\skip_if_eq:nnT { \l_fontscale_LARGE_baselineskip_skip }
{ \f@baselineskip } { LARGE }
}
{ \l_fontscale_huge_size_dim }
{
\skip_if_eq:nnT { \l_fontscale_huge_baselineskip_skip }
{ \f@baselineskip } { huge }
}
{ \l_fontscale_Huge_size_dim }
{
\skip_if_eq:nnT { \l_fontscale_Huge_baselineskip_skip }
{ \f@baselineskip } { Huge }
}
}
}
\NewDocumentCommand \SetFontStep { s m }
{
\mode_if_math:TF
{
\msg_warning:nne { fontscale } { math-mode-warning }
{ \token_to_str:N \SetFontStep }
}
{
\IfBooleanTF #1
{ \__fontscale_add_font_step:n {#2} }
{ \__fontscale_set_font_step:n {#2} }
}
}
% Using \str_case: here is significantly faster (and easier to write) than
% repeatedly testing \fp_compare:.
\cs_new_protected:Npn \__fontscale_set_font_step:n #1
{
\str_case:enF { \fp_eval:n {#1} }
{
{ -4 } { \tiny }
{ -3 } { \scriptsize }
{ -2 } { \footnotesize }
{ -1 } { \small }
{ 0 } { \normalsize }
{ 1 } { \large }
{ 2 } { \Large }
{ 3 } { \LARGE }
{ 4 } { \huge }
{ 5 } { \Huge }
}
{
\str_if_eq:VnTF \l__fontscale_typographic_scale_str { musical }
{
\__fontscale_fontsize:n
{
\fp_to_dim:n
{
\l__fontscale_musical_base_fp
* \l__fontscale_musical_ratio_fp
^ ( (#1) / \l__fontscale_musical_notes_fp )
}
}
}
{
\msg_error:nne { fontscale } { font-step-out-of-bounds }
{ \fp_eval:n {#1} }
}
}
}
\cs_new_protected:Npn \__fontscale_add_font_step:n #1
{
\tl_set:Ne \l__fontscale_tmp_tl { \__fontscale_step: }
\tl_if_empty:NTF \l__fontscale_tmp_tl
{ \msg_error:nn { fontscale } { current-font-step-out-of-bounds } }
{ \__fontscale_add_font_step_aux:n { (#1) + \l__fontscale_tmp_tl } }
}
\cs_new_eq:NN \__fontscale_add_font_step_aux:n \__fontscale_set_font_step:n
\NewDocumentCommand \SetFontScale { s m }
{
\mode_if_math:TF
{
\msg_warning:nne { fontscale } { math-mode-warning }
{ \token_to_str:N \SetFontScale }
}
{
\IfBooleanTF #1
{ \__fontscale_add_font_scale:n {#2} }
{ \__fontscale_set_font_scale:n {#2} }
}
}
\cs_new_protected:Npn \__fontscale_set_font_scale:n #1
{
\__fontscale_fontsize:n
{ \fp_to_dim:n { \l__fontscale_normalsize_size_fp * (#1) } }
}
\cs_new_protected:Npn \__fontscale_add_font_scale:n #1
{
\__fontscale_fontsize:n
{ \fp_to_dim:n { \l__fontscale_normalsize_size_fp * (#1) + \f@size } }
}
\NewDocumentCommand \SetFontSize { s m }
{
\mode_if_math:TF
{
\msg_warning:nne { fontscale } { math-mode-warning }
{ \token_to_str:N \SetFontSize }
}
{
\IfBooleanTF #1
{ \__fontscale_add_font_size:n {#2} }
{ \__fontscale_set_font_size:n {#2} }
}
}
\cs_new_eq:NN \__fontscale_set_font_size:n \__fontscale_fontsize:n
\cs_new_protected:Npn \__fontscale_add_font_size:n #1
{
\__fontscale_dim_set_default_pt:Nn \l__fontscale_tmp_dim {#1}
\__fontscale_fontsize:n { \l__fontscale_tmp_dim + \f@size pt }
}
\NewDocumentCommand \ScaleFont { m }
{
\mode_if_math:TF
{
\msg_warning:nne { fontscale } { math-mode-warning }
{ \token_to_str:N \ScaleFont }
}
{ \__fontscale_scale_font:n {#1} }
}
\cs_new_protected:Npn \__fontscale_scale_font:n #1
{
\fp_set:Nn \l__fontscale_tmp_fp {#1}
\__fontscale_fontsize:nn
{ \fp_to_dim:n { \f@size * \l__fontscale_tmp_fp } }
{
\fp_to_dim:n
{ \dim_to_fp:n { \f@baselineskip } * \l__fontscale_tmp_fp }
}
}
\NewDocumentCommand \SetFontSizeBaselineskip { m m }
{
\mode_if_math:TF
{
\msg_warning:nne { fontscale } { math-mode-warning }
{ \token_to_str:N \SetFontSizeBaselineskip }
}
{ \__fontscale_set_font_size_baselineskip:nn {#1} {#2} }
}
\cs_new_eq:NN \__fontscale_set_font_size_baselineskip:nn
\__fontscale_fontsize:nn
\NewDocumentCommand \SetFontBaselineskip { s m }
{
\mode_if_math:TF
{
\msg_warning:nne { fontscale } { math-mode-warning }
{ \token_to_str:N \SetFontBaselineskip }
}
{
\IfBooleanTF #1
{ \__fontscale_add_font_baselineskip:n {#2} }
{ \__fontscale_set_font_baselineskip:n {#2} }
}
}
\cs_new_protected:Npn \__fontscale_set_font_baselineskip:n
{ \__fontscale_fontsize:nn { \f@size pt } }
\cs_new_protected:Npn \__fontscale_add_font_baselineskip:n #1
{
\__fontscale_skip_set_default_pt:Nn \l__fontscale_tmp_skip {#1}
\__fontscale_fontsize:nn { \f@size pt }
{ \l__fontscale_tmp_skip + \f@baselineskip }
}
\NewDocumentCommand \PrintFontSizeParameters { }
{ \__fontscale_print_font_size_parameters: }
\cs_new_protected:Npn \__fontscale_print_font_size_parameters:
{
step ~=~ \__fontscale_step: ,~
scale ~=~ \__fontscale_scale: ,~
size ~=~ \__fontscale_size: ,~
baselineskip ~=~ \__fontscale_baselineskip:
}
\NewDocumentCommand \PrintAllFontSizeParameters { }
{
\mode_if_math:TF
{
\msg_error:nne { fontscale } { math-mode-error }
{ \token_to_str:N \PrintAllFontSizeParameters }
}
{ \__fontscale_print_all_font_size_parameters: }
}
\cs_new_protected:Npn \__fontscale_print_all_font_size_parameters:
{
\tl_map_inline:nn
{
{tiny} {scriptsize} {footnotesize} {small} {normalsize}
{large} {Large} {LARGE} {huge} {Huge}
}
{
\token_to_str:c {##1} \@ \c_colon_str \c_space_tl
step~ =~ \fp_use:c { c_fontscale_##1_step_fp } ,~
scale~ =~ \str_if_eq:nnTF {##1} { normalsize }
{ 1 } { \fp_use:c { l_fontscale_##1_scale_fp } } ,~
size~ =~ \dim_use:c { l_fontscale_##1_size_dim } ,~
baselineskip~ =~ \skip_use:c { l_fontscale_##1_baselineskip_skip }
\str_if_eq:nnF {##1} { Huge } { \newline }
}
}
\NewDocumentCommand \PrintSampleText { s +m }
{
\mode_if_math:TF
{
\msg_error:nne { fontscale } { math-mode-error }
{ \token_to_str:N \PrintSampleText }
}
{
\group_begin:
\IfBooleanTF #1
{ \__fontscale_print_sample_text_descending_order:n {#2} }
{ \__fontscale_print_sample_text_ascending_order:n {#2} }
\group_end:
}
}
\cs_new_protected:Npn \__fontscale_print_sample_text_ascending_order:n #1
{
\tl_map_inline:nn
{
\tiny \scriptsize \footnotesize \small \normalsize
\large \Large \LARGE \huge \Huge
}
{ ##1 #1 \par }
}
\cs_new_protected:Npn \__fontscale_print_sample_text_descending_order:n #1
{
\tl_map_inline:nn
{
\Huge \huge \LARGE \Large \large
\normalsize \small \footnotesize \scriptsize \tiny
}
{ ##1 #1 \par }
}
\NewDocumentCommand \PrintFontSizeCommand { }
{
\mode_if_math:TF
{
\msg_error:nne { fontscale } { math-mode-error }
{ \token_to_str:N \PrintFontSizeCommand }
}
{ \__fontscale_print_name: }
}
\cs_new_protected:Npn \__fontscale_print_name:
{
\str_set:Ne \l__fontscale_tmp_str { \__fontscale_name: }
\str_if_empty:NTF \l__fontscale_tmp_str
{ \token_to_str:N \undefined }
{ \c_backslash_str \l__fontscale_tmp_str \@ }
}
% TEXT PURIFY
\NewExpandableDocumentCommand \__fontscale_use_none_sm:w { s m } { }
\tl_map_inline:nn
{
\fontscalesetup \SetFontStep \SetFontScale \SetFontSize
\SetFontBaselineskip
}
{ \text_declare_purify_equivalent:Nn #1 { \__fontscale_use_none_sm:w } }
\text_declare_purify_equivalent:Nn \ScaleFont { \use_none:n }
\text_declare_purify_equivalent:Nn \SetFontSizeBaselineskip { \use_none:nn }