               (proxy-super processKeyBinding ks e condition pressed)))
       (.setAntiAliasingEnabled true)
       (set-theme! "dark.xml")
-      (.setOpaque false)))
+      (.setPreferredSize (Dimension. editor-width window-height))))
   ([path]
     (doto (create-text-area)
       (.load (FileLocation/create path) nil)

            [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))
