   (case k
     :condensed       (Font. "Open Sans Condensed" Font/BOLD size)
     :condensed-light (Font. "Open Sans Condensed Light" style size)
+    :monospace       (Font. "Lekton" style size)
     :roboto          (Font. "Roboto" style size)
     :roboto-medium   (Font. "Roboto Medium" style size)))
 

                 (handle-pitch-bend [this message]))))

(defn- beat-adjusting-interface
  "Add an arrow showing the beat is being adjusted."
  [controller]
  (let [marker (rhythm/metro-marker (:metronome (:show controller)))
                         arrow-pos (if (in-mode? controller :shift)
                                     (dec (.indexOf marker "." (inc (.indexOf marker "."))))
                                     (dec (count marker)))]
    #_(aset (get (:next-display controller) 2) arrow-pos 0))
  true)

(defn- adjust-beat-from-encoder

                           "/public/fonts/Roboto/Roboto-Regular.ttf"
                           "/public/fonts/Roboto/Roboto-Bold.ttf"
                           "/public/fonts/Roboto/Roboto-Italic.ttf"
                           "/public/fonts/Roboto/Roboto-BoldItalic.ttf"
                           "/public/fonts/Lekton/Lekton-Regular.ttf"]]
            (.registerFont ge (java.awt.Font/createFont
                               java.awt.Font/TRUETYPE_FONT
                               (.getResourceAsStream Effect font-file))))
