sub _best_family {
    my ($mw, $type) = @_;

    state $families = {
        sans => ['Verdana', 'DejaVu Sans', 'Helvetica'],
        serif => ['Times New Roman', 'DejaVu Serif', 'Times'],
        mono => [
            'Menlo', 'Andale Mono', 'Lucida Console',
            'Consolas', 'Courier New', 'Courier'
        ],
        emoji => ['Times New Roman', 'DejaVu Serif', 'Times'],
    };

    my $actual_family;

    for my $family ($families->{$type}->@*) {
        my $test_font = $mw->fontCreate(-family => $family);
        $actual_family = $mw->fontActual($test_font, '-family');
        last if $actual_family eq $family;
    }

    return $actual_family;
}

##</code><code>##

:root {
    --font-pref-sans-serif: "Verdana";
    --font-pref-serif:      "Times New Roman";
    --font-pref-monospace:  "Menlo", "Andale Mono", "Lucida Console", "Courier New";
    --font-manuscript-base: "Junicode";
    --font-alchemy-base:    "Newton Sans Regular";
    --font-emoji-base:      "Apple Color Emoji",
                            "Segoe UI Emoji",
                            "EmojiOne",
                            "AndroidEmoji",
                            "emojidex",
                            "fxemoji",
                            "NotoColorEmoji",
                            "Twemoji";
    --font-symbol-base:     "Symbola";
}
:root {
    --font-std-sans-serif:  var(--font-pref-sans-serif), sans-serif;
    --font-std-serif:       var(--font-pref-serif), serif;
    --font-std-monospace:   var(--font-pref-monospace), monospace;
    --font-std-cursive:     cursive;
    --font-std-fantasy:     fantasy;
}
:root {
    --font-manuscript:      var(--font-manuscript-base),
                            var(--font-std-serif);
    --font-alchemy:         var(--font-alchemy-base),
                            var(--font-std-sans-serif);
    --font-emoji:           var(--font-emoji-base),
                            var(--font-std-monospace),
                            var(--font-std-sans-serif);
    --font-symbol:          var(--font-symbol-base),
                            var(--font-std-monospace),
                            var(--font-std-sans-serif);
    --font-emoji-or-symbol: var(--font-emoji-base),
                            var(--font-std-monospace),
                            var(--font-std-sans-serif);
                            /*
                            var(--font-symbol-base);
                            */
    --font-unicode-raw:     var(--font-pref-serif),
                            var(--font-symbol-base),
                            serif,
                            var(--font-std-sans-serif),
                            var(--font-std-monospace),
                            var(--font-std-cursive),
                            var(--font-std-fantasy);
}