no duplicate addEventListener

haxe_libraries/kiss.hxml

@@ -1,12 +1,12 @@
-# @install: lix --silent download "gh://github.com/kiss-lang/kiss#91b1fc7b32b4fc0fb83b27e160f74525f54f81a3" into kiss/0.0.1/github/91b1fc7b32b4fc0fb83b27e160f74525f54f81a3
-# @run: haxelib run-dir kiss "${HAXE_LIBCACHE}/kiss/0.0.1/github/91b1fc7b32b4fc0fb83b27e160f74525f54f81a3"
+# @install: lix --silent download "gh://github.com/kiss-lang/kiss#fb34feb6103e45cc1f408db59e4f277bbfaa97f1" into kiss/0.0.1/github/fb34feb6103e45cc1f408db59e4f277bbfaa97f1
+# @run: haxelib run-dir kiss "${HAXE_LIBCACHE}/kiss/0.0.1/github/fb34feb6103e45cc1f408db59e4f277bbfaa97f1"
 -lib haxe-strings
 -lib hscript
 -lib tink_json
 -lib tink_macro
 -lib tink_syntaxhub
 -lib uuid
--cp ${HAXE_LIBCACHE}/kiss/0.0.1/github/91b1fc7b32b4fc0fb83b27e160f74525f54f81a3/src
+-cp ${HAXE_LIBCACHE}/kiss/0.0.1/github/fb34feb6103e45cc1f408db59e4f277bbfaa97f1/src
 -D kiss=0.0.1
 -w -WUnusedPattern
 --macro kiss.KissFrontend.use()

src/kiss_firefox/Util.kiss

@@ -11,11 +11,13 @@
     `(onMessageCase (_ ,type [,@dataList] ,@body)))
 
 (defReaderMacro &eof "" [stream]
-    (let [onMessageCases (getCollectedExps "onMessageCase")]
-        `(API.browser.runtime.onMessage.addListener ->[:Message message sender :Function sendResponse]
-            (case message
-                ,@(for messageCase onMessageCases
-                    `((object type ,(first (Prelude.callArgs messageCase)) data ,(second (Prelude.callArgs messageCase)))
-                        ,@(.slice (Prelude.callArgs messageCase) 2)))
-                (otherwise
-                    (print "Message not handled: ${message}"))))))
+    (if (= kissFile mainKissFile)
+            (let [onMessageCases (getCollectedExps "onMessageCase")]
+                `(API.browser.runtime.onMessage.addListener ->[:Message message sender :Function sendResponse]
+                        (case message
+                            ,@(for messageCase onMessageCases
+                                `((object type ,(first (Prelude.callArgs messageCase)) data ,(second (Prelude.callArgs messageCase)))
+                                    ,@(.slice (Prelude.callArgs messageCase) 2)))
+                            (otherwise
+                                (print "Message not handled: ${message}")))))
+        `{}))

template/src/template/Background_.kiss

@@ -1,3 +1,4 @@
+(defMacroVar mainKissFile kissFile)
 (loadFrom "kiss-firefox" "src/kiss_firefox/Util.kiss")
 (loadFrom "kiss-firefox" "src/kiss_firefox/BackgroundUtil.kiss")
 

template/src/template/Main_.kiss

@@ -1,3 +1,4 @@
+(defMacroVar mainKissFile kissFile)
 (loadFrom "kiss-firefox" "src/kiss_firefox/Util.kiss")
 
 (set js.Lib.global.document.body.style.border "5px solid red")