download credits in TSV file

This commit is contained in:
2023-06-07 05:46:26 -06:00
parent 05e658878b
commit 8fb91bef5f

View File

@@ -13,7 +13,7 @@
dlItems (API.browser.downloads.search (object id dlItemId))]
(let [dlItem (first dlItems)
fileName dlItem.filename
txtFileName "$(Path.withoutDirectory (Path.withoutExtension fileName)).txt"
txtFileName "$(Path.withoutDirectory (Path.withoutExtension fileName)).tsv"
txtContent "pixabay.com\t${imageInfo.user}\t${imageInfo.pageURL} user id ${imageInfo.user_id}"
file (new File [txtContent] txtFileName)
txtUrl (URL.createObjectURL file)]