diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/licentia/license/commercial.lux | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/stdlib/source/program/licentia/license/commercial.lux b/stdlib/source/program/licentia/license/commercial.lux new file mode 100644 index 000000000..a80ccbde2 --- /dev/null +++ b/stdlib/source/program/licentia/license/commercial.lux @@ -0,0 +1,30 @@ +(.module: + [lux #* + [data + ["." text + format] + [collection + [list ("list/." monoid)]]]] + ["." // (#+ Commercial) + ["_" term] + [// + ["$" document]]]) + +(def: #export cannot-sell + (let [preamble (format "Without limiting other conditions in " _.license) + condition (format "the grant of rights under " _.license + " will not include, and " _.license + " does not grant to " _.recipient + ", the right to " _.sell " " _.work)] + ($.sentence (format preamble ", " condition)))) + +(def: #export require-contributor-attribution + ($.sentence (format "All advertising materials mentioning features or use of " _.work + " must include an acknowledgement of the authorship of every " _.contributor))) + +(def: #export disallow-contributor-endorsement + (let [subject (format "The name of no " _.contributor) + capability "endorse or promote products" + source (format "any " _.extension) + condition "specific prior written permission"] + ($.sentence (format subject " may be used to " capability " derived from " source " without " condition)))) |