       (mapcat #(apply call-compiler-fn % fn-sym args) compiler)
       (if-let [f (get compiler fn-sym)] (apply f args)))))
 
+; =get-watch-file-extensions
+(defn get-watch-file-extensions
+  "Get extensions list to watch."
+  []
+  (map normalize-extension (distinct (call-compiler-fn :-extension))))
+
 ; =handleable-compiler?
 (defn handleable-compiler?
   [compiler file]



;; ## Compiler Functions

; =get-watch-file-extensions
(defn get-watch-file-extensions
  "Get extensions list to watch."
  []
  (map normalize-extension (distinct (call-compiler-fn :-extension))))

; =update-config
(defn update-config

        [pretty-error.core    :only [print-pretty-stack-trace]])
  (:import [java.io File]))

;; ## Util

(defn key->sym [k] (symbol (name k)))

;; ## Compiler Utilities

; =stop-compile?
(defn- stop-compile? [compile-result]
