         (if (not (empty? r))
           (recur r (+ xp w))
           [(+ xp w x) y])))))
+
+
+;; install the installer??
+(install-google-webfont-script!)

     :font font
    }))

(defn font-text-width [font text]
  (text-width (:metrics font) text))


     el
     js/document.body)))

(defn render-row [metrics texture row y]
  (for [[i c] (partition 2 (interleave (range) row))]
    (let [tex (render-texture-char!
