From 644b8c7fc065bf7f0a3ce83ea8ab6fb8afddccd3 Mon Sep 17 00:00:00 2001
From: Noah Tilton <noahktilton@gmail.com>
Date: Tue, 19 Feb 2013 10:04:54 -0600
Subject: [PATCH] arrrrrgh

---
 font | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/font b/font
index 210371a..703e1b0 100755
--- a/font
+++ b/font
@@ -48,7 +48,7 @@ sub _resize_xft_string
   foreach my $piece (@pieces)
   {
     # Assumption: xft:fontname comes before pixelsize=whatever
-    $monaco ||= $piece =~ /^Monaco$/i;
+    $monaco ||= $piece =~ /^Monaco/i;
 
     # matching string
     if ($piece =~ /pixelsize=(\d*)/)
@@ -59,6 +59,7 @@ sub _resize_xft_string
       # monaco font
       if ($monaco)
       {
+        print "yes";
         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;}