FontsForHTML5.ns

Newspeak3
'Root'
class FontsForHTML5 usingPlatform: p
(* :exemplar: platform fonts *)
 = Object new (
	(* Font support for Newspeak.

Copyright Gene Z. Ragan 2021 *)
	
	|
		private Map = p collections Map.
		private DefaultSize <Float> = 12.0.
	|
) (
	public class FontConfig new = Object new (
		|
			public designs <Map[Symbol, Strings]> = computeDesignMap.
			public leading <Map[Symbol, Strings]> = computeLeadingMap.
			public weights <Map[Symbol, Integer]> = computeWeightMap.
		|
	) (
		private computeDesignMap ^<Map[Symbol, String]> = (
			^Map new at: #default put: 'system, -apple-system, sans-serif';
				at: #serif put: 'Cambria, Utopia, Times, Times New Roman, serif';
				at: #monospaced put: 'Consolas, Monaco, Courier, monospace';
				yourself
		)
		private computeLeadingMap ^<Map[Symbol, String]> = (
			^Map new at: #standard put: 'normal';
				at: #tight put: '0.5';
				at: #loose put: '1.5';
				yourself
		)
		private computeWeightMap ^<Map[Symbol, Integer]> = (
			^Map new at: #ultralight put: 100;
				at: #thin put: 200;
				at: #light put: 300;
				at: #regular put: 400;
				at: #medium put: 500;
				at: #semibold put: 600;
				at: #bold put: 700;
				at: #heavy put: 800;
				at: #black put: 900;
				yourself
		)
	) : ()
	public class Font config: c <FontConfig>
	(* :exemplar: Font config: FontConfig new *)
	 = Object new (
		|
			public size <Float> ::= DefaultSize.
			public design <Symbol> ::= #default.
			public weight <Symbol> ::= #regular.
			public style <Symbol> ::= #normal.
			public decoration <Symbol> ::= #none.
			public leading <Symbol> ::= #standard.
			public smallCaps <Boolean>
			public monospaceDigits <Boolean>
			config <FontConfig> = c.
		|
	) (
		public applyStyle: element <Alien[HTMLElement]> = (
			| css = element at: 'style'. |
			css at: 'font-style' put: style asString;
				at: 'font-weight' put: (config weights at: weight);
				at: 'line-height' put: (config leading at: leading).
			#linethrough = decoration ifTrue: [
					css at: 'text-decoration' put: 'line-through'
				]
				ifFalse: [ css at: 'text-decoration' put: decoration asString ]
		)
	) : ()
) : ()