Files
hollywoo-sourcer/src/hollywoo_sourcer/OpenGameArtMain_.kiss

33 lines
2.0 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

(import kiss_firefox.API)
(import js.lib.Promise)
(importAs js.html.XMLHttpRequest XHR)
(import js.html.HTMLCollection)
(import hollywoo_sourcer.Message)
(var :Dynamic document js.Lib.global.document)
(var :Dynamic window js.Lib.global.window)
(API.browser.runtime.onMessage.addListener
->[:Message message sender sendResponse]
(case message
((object type "requestSource")
(let [sourceUrl window.location.href
fieldLabelDivs (document.getElementsByClassName "field-label")
getCreditsHeadingDiv ->{
(doFor i (range fieldLabelDivs.length)
(when (= "Copyright/Attribution Notice: " .innerText (fieldLabelDivs.item i))
(return (fieldLabelDivs.item i))))
// If there is no explicit Copyright notice, get the author:
(doFor i (range fieldLabelDivs.length)
(when (= "Author: " .innerText (fieldLabelDivs.item i))
(return (fieldLabelDivs.item i))))
null
}
creditsHeadingDiv (getCreditsHeadingDiv)
creditsDiv (creditsHeadingDiv.parentElement.childNodes.item 1)
credit creditsDiv.innerText
fileSpans (document.getElementsByClassName "file")
fileUrls (for i (range fileSpans.length)
(Reflect.field (.item .childNodes (fileSpans.item i) 2) "href"))]
(awaitLet [response (API.browser.runtime.sendMessage (object type "downloadOpenGameArt" data [fileUrls credit sourceUrl]))]
(print response))))
(otherwise)))