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

update freesound-sourcer for html changes

Browse Source
This commit is contained in:
Nat Quayle Nelson
2024-02-13 09:38:38 -07:00
parent a52fceddc2
commit 039d0722f4
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/hollywoo_sourcer/FreesoundMain_.kiss
View File

@@ -6,13 +6,13 @@
(var :Dynamic window js.Lib.global.window) (var :Dynamic window js.Lib.global.window)
(API.browser.runtime.onMessage.addListener (API.browser.runtime.onMessage.addListener
->[:Message message sender sendResponse] ->[:Message message sender sendResponse]
(case message (case message
((object type "requestSource") ((object type "requestSource")
(let [:String url window.location.href (let [:String url window.location.href
:kiss.List<String> parts (url.split "/") :kiss.List<String> parts (url.split "/")
creator (nth parts -4) creator (nth parts -4)
downloadLink (document.getElementById "download_button") downloadLink (.item (document.getElementsByClassName "sound-download-button") 0)
dlUrl .href downloadLink dlUrl .href downloadLink
filename (.pop (url.split "/"))] filename (.pop (url.split "/"))]
(awaitLet [response (API.browser.runtime.sendMessage (object type "downloadFreesound" data [filename creator dlUrl url]))] (awaitLet [response (API.browser.runtime.sendMessage (object type "downloadFreesound" data [filename creator dlUrl url]))]