kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

tig-spy lix compatibility

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-05-05 15:11:13 -06:00
parent 0621df5d9c
commit 882ae706c3
18 changed files with 80 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
projects/_standalone/tig-spy/src/tig_spy/Background.hx
View File

@@ -6,4 +6,8 @@ import haxe.Constraints;
import tig_spy.Message;
@:build(kiss.Kiss.build())
class Background {}
class Background {
static function main() {
_main();
}
}

25
projects/_standalone/tig-spy/src/tig_spy/Background.kiss
View File

@@ -8,15 +8,16 @@
(API.browser.tabs.sendMessage id (object type "nextPage" data [(pages.shift)]))
(API.browser.tabs.sendMessage id (object type "authorList" data collectedAuthors)))))
(API.browser.runtime.onMessage.addListener ->[:Message message sender sendResponse]
(let [:Function sendResponse sendResponse]
(case message
((object type "authors" data authors)
(set collectedAuthors (collectedAuthors.concat authors))
(sendNextPage sendResponse))
((object type "pages" data pageUrls)
(set collectedAuthors [])
(set pages pageUrls)
(sendResponse ""))
(never otherwise))
true))
(function _main []
(API.browser.runtime.onMessage.addListener ->[:Message message sender sendResponse]
(let [:Function sendResponse sendResponse]
(case message
((object type "authors" data authors)
(set collectedAuthors (collectedAuthors.concat authors))
(sendNextPage sendResponse))
((object type "pages" data pageUrls)
(set collectedAuthors [])
(set pages pageUrls)
(sendResponse ""))
(never otherwise))
true)))