diff options
author | Eduardo Julian | 2021-06-14 18:33:54 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-06-14 18:33:54 -0400 |
commit | 519c0c0c71cdf7ce3dfc64b9781ab826760b3d94 (patch) | |
tree | 75fa0672afceff129e5e75afb7a5fed197ce1773 /stdlib/source/program/licentia/license/commercial.lux | |
parent | af3e6e2cb011dc2ad9204440990731a2f272716d (diff) |
Extracted Licentia out of the standard library.
Diffstat (limited to '')
-rw-r--r-- | licentia/source/program/licentia/license/commercial.lux (renamed from stdlib/source/program/licentia/license/commercial.lux) | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/program/licentia/license/commercial.lux b/licentia/source/program/licentia/license/commercial.lux index e044baa43..a17acdbb3 100644 --- a/stdlib/source/program/licentia/license/commercial.lux +++ b/licentia/source/program/licentia/license/commercial.lux @@ -8,21 +8,21 @@ [// ["$" document]]]) -(def: #export cannot-sell +(def: #export cannot_sell (let [preamble (format "Without limiting other conditions in " _.license) - direct-condition (format "the grant of rights under " _.license + direct_condition (format "the grant of rights under " _.license " will not include, and does not grant to " _.recipient ", the right to " _.sell " " _.work) - derivative-condition (format "or any " _.derivative-work)] + derivative_condition (format "or any " _.derivative_work)] ($.sentence (format preamble - ", " direct-condition - ", " derivative-condition)))) + ", " direct_condition + ", " derivative_condition)))) -(def: #export require-contributor-attribution +(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 +(def: #export disallow_contributor_endorsement (let [subject (format "The name of no " _.contributor) capability "endorse or promote products" source (format "any " _.extension) |