From 032aa700f6a5cc2730dc9ddae4e22c60903c8bf8 Mon Sep 17 00:00:00 2001
From: Noah Tilton <noaht@wolfram.com>
Date: Fri, 9 Nov 2012 12:01:08 -0600
Subject: [PATCH] bugfix:  font string comparisons should be case-insensitive

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

diff --git a/font b/font
index c65be35..147612c 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/;
+    $monaco ||= $piece =~ /Monaco/i;
 
     # matching string
     if ($piece =~ /pixelsize=(\d*)/)