Help language development. Donate to The Perl Foundation

CSS::Font::Resources cpan:WARRINGD last updated on 2021-11-05

CSS-Font-Resources-0.0.7/

[Raku CSS Project] / [CSS-Font-Resources]

CSS-Font-Resources-raku

Description

This is a light-weight font selector driven by CSS @font-face rules.

It is integrated into the CSS and CSS::Stylesheet modules, but can also be used for stand-alone font resource loading.

Classes in this distribution:

Examples

from CSS::Stylesheet

use CSS::Stylesheet;
use CSS::Font::Resources;

my CSS::Stylesheet $css .= parse: q:to<END>, :base-url<my/path/>;

    h1 {color:red}
    h2 {color:blue}

    @font-face {
      font-family: "DejaVu Sans";
      src: url("fonts/DejaVuSans.ttf");
    }
    @font-face {
      font-family: "DejaVu Sans";
      src: url("fonts/DejaVuSans-Bold.ttf");
      font-weight: bold;
    }
    @font-face {
      font-family: "DejaVu Sans";
      src: url("fonts/DejaVuSans-Oblique.ttf");
      font-style: oblique;
    }
    @font-face {
      font-family: "DejaVu Sans";
      src: url("fonts/DejaVuSans-BoldOblique.ttf");
      font-weight: bold;
      font-style: oblique;
    }
    END


my $formats = 'opentype'|'truetype'; # accept first true-type or open-type font
my $font = "bold 12pt times roman, serif";
my CSS::Font::Resources::Source @sources = $css.font-sources($font, :$formats);
my Blob $font-buf = .IO with @sources.first;

stand-alone

use CSS::Font::Resources;
use CSS::Font::Descriptor;

my @decls = q:to<END>.split: /^^'---'$$/;
font-family: "DejaVu Sans";
src: url("fonts/DejaVuSans.ttf");
---
font-family: serif;
font-weight: bold;
src: local(DejaVuSans-Bold);
END

my CSS::Font::Descriptor @font-face = @decls.map: -> $style {CSS::Font::Descriptor.new: :$font};
my $font = "bold 12pt times roman, serif";
my $formats = 'opentype'|'truetype'; # accept first true-type or open-type font
my CSS::Font::Resources $font-selector .= new: :$font, :@font-face, :base-url</my/path/>, :$formats;
# accept first true-type or open-type font
my CSS::Font::Resources::Source @sources = $font-selector.sources;
my Blob $font-buf = .Blob with @sources.first;

Methods

new

method new(
    CSS::Font:D() :$font!,
    CSS::Font::Descriptor :@font-face,
    URI() $.base-url = './',
    :$formats = 'woff'|'woff2'|'truetype'|'opentype'|'embedded-opentype'|'postscript'|'svg'|'cff',
    --> CSS::Font::Resources
)

Returns a new font selector object for the given font and font-descriptor list.

sources

multi method sources(
    CSS::Font::Resources:D:
    Bool :$fallback = True
)

multi method sources(
    CSS::Font::Resources:U:
    :$font, :@font-face, :$base-url, :$formats,
    Bool :$fallback = True,
)

Returns a list of matching fonts of type CSS::Font::Resources::Source, ordered by preference.

source

method source(|c --> CSS::Font::Resources::Source);

Returns the first matching source.