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

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

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