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;
}