   (let [font-file ^File (clojure.java.io/as-file name-or-path)]
     (if (.exists font-file)
       ;; Load font from file
-      (.deriveFont (Font/createFont Font/TRUETYPE_FONT font-file) (int style) (float size))
+      (do
+        (log/info "Loading font from file" name-or-path)
+        (.deriveFont (Font/createFont Font/TRUETYPE_FONT font-file) (int style) (float size)))
       ;; Load font from font registry
-      (Font. name-or-path style size))))
+      (do
+        (log/info "Loading font by name")
+        (Font. name-or-path style size)))))
 
 (defn next-pow-2 [v]
   (int (Math/pow 2 (inc (Math/floor (/ (Math/log v) (Math/log 2)))))))

;; Functions for rendering characters to screen
(ns zaffre.glterminal
  (:require [zaffre.aterminal :as zat]
            [zaffre.util :as zutil]

                                                                      [screen-width screen-height 1.0])
                            :character-width character-width
                            :character-height character-height
                            :character->col-row (character->col-row (character-idxs character-width (displayable-characters @normal-font)))
                            :buffers {:vertices-vbo-id vertices-vbo-id
                                      :vertices-count vertices-count
                                      :texture-coords-vbo-id texture-coords-vbo-id}
