 (ns nightcode.utils
   (:require [clojure.java.io :as java.io]
             [clojure.xml :as xml]
-            [seesaw.core :as s])
+            [seesaw.core :as s]
+            [clojure.edn :as edn])
   (:import [bsh.util JConsole]
            [clojure.lang LineNumberingPushbackReader]
            [com.camick WrapLayout]

(defn read-pref
  [k]
  (when-let [string (.get prefs (name k) nil)]
    (read-string string)))

; language


  []
  (let [project-clj (-> (java.io/resource "project.clj")
                        (slurp)
                        (edn/read-string))]
    (if (= (name (nth project-clj 1)) "nightcode")
      (nth project-clj 2)
      "beta")))
