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

add a warning for assets that may need a license file

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-10-02 19:31:35 -06:00
parent f76609e6fe
commit a50c5b0781
1 changed files with 21 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/hollywoo/Movie.kiss
View File

@@ -447,14 +447,27 @@
] ]
overridePath file] overridePath file]
{ {
(unless (= ext "tsv") (cond
((= ext "tsv")
// 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 (.shift (content.split "\t"))]
(case source
("pixabay.com" null)
("unsplash.com" null)
(otherwise
(#when debug
(unless (sys.FileSystem.exists "${noExt}.LICENSE.txt")
(print "Warning! License file may be required for redistributing $file")))))))
(true
(doFor [ending extension] (intersect overrideEndings overrideExtensions) (doFor [ending extension] (intersect overrideEndings overrideExtensions)
(let [possibleOverride "${noExt}${ending}.${extension}"] (let [possibleOverride "${noExt}${ending}.${extension}"]
(when (sys.FileSystem.exists possibleOverride) (when (sys.FileSystem.exists possibleOverride)
(#when debug (#when debug
(print "$file overridden by $possibleOverride")) (print "$file overridden by $possibleOverride"))
(set overridePath possibleOverride) (set overridePath possibleOverride)
(break))))) (break))))))
(doFor dir dirs (doFor dir dirs
(dictSet (dictGet assetPaths dir) basename overridePath)) (dictSet (dictGet assetPaths dir) basename overridePath))
} }