fixed bug with clicking window.open

project.clj

@@ -1,4 +1,4 @@
-(defproject flyer "1.0.1"
+(defproject flyer "1.0.2"
   :description "Clojurescript + Javascript Broadcast Messaging between
   iFrames, Framesets, and Windows"
   :url "https://github.com/benzap/flyer.js"

src-cljs/flyer/storage.cljs

@@ -10,6 +10,10 @@
 (defn get-window-refs []
   (aget storage window-list-key))
 
+(defn has-window-ref? [window]
+  (let [winref (get-window-refs)]
+    (some #{window} winref)))
+
 (defn insert-window-ref! [window]
   (aset storage window-list-key
         (conj (get-window-refs) window)))

src-cljs/flyer/window.cljs

@@ -34,7 +34,10 @@ external windows that are opened using the 'open' function"
                      :else
                      (apply gen-window-options options))
         window (.open this-window url name options-str)]
-    (storage/insert-window-ref! window)
+    ;;only add the window to our window references if it didn't exist previously
+    ;;fixes issue with IE when trying to re-open a window
+    (when (not (storage/has-window-ref? window))
+      (storage/insert-window-ref! window))
     (events/listen
      window (.-BEFOREUNLOAD events/EventType)
      (fn [event]