Improve retrieval of available language mappings - dynamic including

custom defined languages rather than using the constants. Currently strips off the "text/" namespace at the start of most of them, but in doing so maintains back compatibility. This means that for example "application/javascript" and "text/javascript" if they were both written might resolve to the same thing. As it stands, everything uses the text/ prefix and so it's not a problem.
clj-commons · Sep 27, 2013 · 92be67f · 92be67f
1 parent ddef2cc
commit 92be67f
Showing 1 changed file with 6 additions and 15 deletions.
diff --git a/src/seesaw/rsyntax.clj b/src/seesaw/rsyntax.clj
@@ -17,23  17,14 @@
             [seesaw.widget-options :as widget-options]
             clojure.reflect
             clojure.string)
-  (:import [org.fife.ui.rsyntaxtextarea SyntaxConstants]))
-
-(defn- normalize-style-name [s]
-  (-> (name s)
-    (clojure.string/replace "_" "-")
-    (clojure.string/lower-case)
-    (.substring (count "SYNTAX_STYLE_"))
-    keyword))
   (:import [org.fife.ui.rsyntaxtextarea AbstractTokenMakerFactory]))
 
 ;;; Go through the available syntax highlighting modes,
 ;;; e.g. "text/clojure" and then for backwards compatibility map them to
 ;;; keywords without the text/ namespace, e.g. :clojure
 (def ^{:private true} syntax-table
-  (->> (clojure.reflect/reflect SyntaxConstants)
-    :members
-    (map :name)
-    ; there's gotta be a better way
-    (map (fn [n]
-           [(normalize-style-name n) (eval `(. SyntaxConstants ~n))]))
-    (into {})))
   (let [keys (.keySet (AbstractTokenMakerFactory/getDefaultInstance))]
     (into {} (map (juxt (comp keyword name keyword) identity) keys))))
 
 (def text-area-options
   (merge