   (let [trunc-href (truncate-url link-href)]
     (or (= file trunc-href)
         (= (truncate-url request-url) trunc-href))))
+
+#_(defn matches-file-new? [{:keys [file] } link-href]
+    (.endsWith goog.string file (truncate-url link-href)))
 
 (defn get-correct-link [f-data]
   (some (fn [l]

(defn get-meta-data-for-ns [ns]
  (get ns-meta-data ns))

(defn js-reload [{:keys [request-url namespace dependency-file meta-data] :as msg} callback]
  (swap! ns-meta-data assoc namespace meta-data)
  (print (pr-str @ns-meta-data))
  (if (and
       (or dependency-file
           (and meta-data (:figwheel-load meta-data))

(defn truncate-url [url]
  (-> (first (string/split url #"\?")) 
      (string/replace-first (str (.-protocol js/location) "//") "")
      (string/replace-first ".*://" "")
      (string/replace-first #"^//" "")         
      (string/replace-first #"[^\/]*" "")))

