From 3ca50e771387fb78659a01508c990f66b17a3913 Mon Sep 17 00:00:00 2001
From: Noah Tilton <noahktilton@gmail.com>
Date: Thu, 7 Nov 2013 09:56:03 -0600
Subject: [PATCH] updating email; making unicode-points-only configurable

---
 font | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/font b/font
index f9faa84..38632b7 100755
--- a/font
+++ b/font
@@ -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;