gryf/urxvt-font
1
0
Fork 0
mirror of https://github.com/gryf/urxvt-font.git synced 2026-04-02 00:23:32 +02: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 # On-the-fly urxvt font resizing. Like ⌘{+,-}, on mac computers, just
# way more complicated. # way more complicated.
# #
# Noah K. Tilton <noahktilton@gmail.com> # Noah K. Tilton <lists@tilton.co>
# #
# What it does: # What it does:
# #
@@ -37,6 +37,9 @@ use List::Util qw(first);
use constant X_RESOURCES => "~/.config/xresources/fonts"; 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 sub _resize_xft_string
{ {
@@ -59,10 +62,13 @@ sub _resize_xft_string
# monaco font # monaco font
if ($monaco) if ($monaco)
{ {
my (@monaco_unicode_sizes) = (8, 9, 10, 11, 13, 15, 16, 18, 21, 22, 28); my (@monaco_unicode_sizes) = UNICODE_ONLY
my ($monaco_default_size) = &{ sub { my @a = sort { $a <=> $b } @_; ? (8, 9, 10, 11, 13, 15, 16, 18, 21, 22, 28)
return ($a[$#a/2] + $a[@a/2]) / 2;} : (1 .. 72) ;
}(@monaco_unicode_sizes); # median ...
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 { my ($old_size_index) = first {
$monaco_unicode_sizes[$_] eq $old_size } 0..$#monaco_unicode_sizes; $monaco_unicode_sizes[$_] eq $old_size } 0..$#monaco_unicode_sizes;