gryf/urxvt-font
1
0
Fork 0
mirror of https://github.com/gryf/urxvt-font.git synced 2026-03-18 20:33:33 +01:00
Code Issues Projects Releases Wiki Activity

updating email; making unicode-points-only configurable

Browse Source
This commit is contained in:
Noah Tilton
2013-11-07 09:56:03 -06:00
parent 888bc268f7
commit 3ca50e7713
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
font
View File

@@ -7,7 +7,7 @@ use List::Util qw(first);
# On-the-fly urxvt font resizing. Like ⌘{+,-}, on mac computers, just
# way more complicated.
#
# Noah K. Tilton <noahktilton@gmail.com>
# Noah K. Tilton <lists@tilton.co>
#
# What it does:
#
@@ -37,6 +37,9 @@ use List::Util qw(first);
use constant X_RESOURCES => "~/.config/xresources/fonts";
# Whether to restrict Monaco to using only point sizes that support
# unicode.
use constant UNICODE_ONLY => 0;
sub _resize_xft_string
{
@@ -59,10 +62,13 @@ sub _resize_xft_string
# monaco font
if ($monaco)
{
my (@monaco_unicode_sizes) = (8, 9, 10, 11, 13, 15, 16, 18, 21, 22, 28);
my ($monaco_default_size) = &{ sub { my @a = sort { $a <=> $b } @_;
return ($a[$#a/2] + $a[@a/2]) / 2;}
}(@monaco_unicode_sizes); # median ...
my (@monaco_unicode_sizes) = UNICODE_ONLY
? (8, 9, 10, 11, 13, 15, 16, 18, 21, 22, 28)
: (1 .. 72) ;
my ($monaco_default_size) = &{ sub { my @a = sort { $a <=> $b } @_;
return ($a[$#a/2] + $a[@a/2]) / 2;}
}(@monaco_unicode_sizes); # median ...
my ($old_size_index) = first {
$monaco_unicode_sizes[$_] eq $old_size } 0..$#monaco_unicode_sizes;