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

fix source/sourceUrl in asset license warning

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-10-13 12:05:42 -06:00
parent 11498def32
commit 36b0340c7f
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/hollywoo/Movie.kiss
View File

@@ -452,7 +452,8 @@
// If an asset's source is neither pixabay or unsplash (public domain),
// make some noise if you forgot to include its license in a file:
(let [content (sys.io.File.getContent file)
source (.pop (content.split "\t"))]
source (.shift (content.split "\t"))
sourceUrl (.pop (content.split "\t"))]
(case source
("pixabay.com" null)
("unsplash.com" null)
@@ -461,7 +462,7 @@
(otherwise
(#when debug
(unless (sys.FileSystem.exists "${noExt}.LICENSE.txt")
(print "Warning! License file may be required for redistributing $file from $source")))))))
(print "Warning! License file may be required for redistributing $file from $sourceUrl")))))))
(true
(doFor [ending extension] (intersect overrideEndings overrideExtensions)
(let [possibleOverride "${noExt}${ending}.${extension}"]