gistfile1.txt

(def mono-font
  (if (is-mac)
    (agent (Font. "Monaco" Font/PLAIN default-font-size))
    (agent (Font. "Courier New" Font/PLAIN default-font-size))))

(defn change-font [myfn]
  (fn [myfont]
    (let [new-font (Font. "Monaco" Font/PLAIN (myfn (.getSize @mono-font)))]
      (send-off myfont 
        (fn [old-font] new-font))
      (do 
        (.setFont (@current-doc :doc-text-area) new-font)
        (.setFont (@current-doc :repl-out-text-area) new-font)
        (.setFont (@current-doc :doc-in-text-area) new-font)))))

(def inc-font (change-font inc))
(def dec-font (change-font dec))