       io/resource
       io/input-stream
       Theme/load
-      (.apply text-area))
-  (when-let [c (.getBackground text-area)]
-    (.setBackground text-area
-      (Color. (.getRed c) (.getGreen c) (.getBlue c) 128))))
+      (.apply text-area)))
 
 (defn create-text-area
   ([]

            [nightmod.core :refer :all]
            [seesaw.core :as s])
  (:import [com.badlogic.gdx.backends.lwjgl LwjglApplication]
           [java.awt BorderLayout Canvas Color Panel]
           [org.fife.ui.rsyntaxtextarea FileLocation SyntaxConstants
            TextEditorPane Theme]
           [org.lwjgl.input Keyboard])
  (:gen-class))

(defn set-theme!
  [text-area path]

  []
  (s/invoke-later
    (doto (s/frame :title "Nightmod"
                   :width window-width
                   :height window-height
                   :on-close :exit)
      (-> .getContentPane (.add (create-canvas)))
      (-> .getGlassPane (doto
                          (.setLayout (BorderLayout.))
                          (.add (create-text-area) BorderLayout/EAST)
                          (.setVisible true)))
      s/show!))
  (Keyboard/enableRepeatEvents true))
