diff options
author | Eduardo Julian | 2019-02-05 20:30:13 -0400 |
---|---|---|
committer | Eduardo Julian | 2019-02-05 20:30:13 -0400 |
commit | 60430ee6dfffbeb220a3e8fee7336d54313467bc (patch) | |
tree | e00b48c2af5354392f514347547340f67f71e708 /stdlib/source/program/licentia/license/commercial.lux | |
parent | c542e618266c2f321704bef381b14213c30cc2e0 (diff) |
Folded license-making program (legislator) into the Lux project proper (as licentia).
Diffstat (limited to 'stdlib/source/program/licentia/license/commercial.lux')
-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)))) |