From 893c76ad530ca0e81cd84602543c3114407f4592 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 9 Dec 2020 20:42:37 -0400
Subject: Added support for "Commons Clause" to Licentia.

---
 .../source/program/licentia/license/addendum.lux   | 28 ++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 stdlib/source/program/licentia/license/addendum.lux

(limited to 'stdlib/source/program/licentia/license/addendum.lux')

diff --git a/stdlib/source/program/licentia/license/addendum.lux b/stdlib/source/program/licentia/license/addendum.lux
new file mode 100644
index 000000000..7e467c630
--- /dev/null
+++ b/stdlib/source/program/licentia/license/addendum.lux
@@ -0,0 +1,28 @@
+(.module:
+  [lux #*
+   [data
+    [text
+     ["%" format (#+ format)]]]]
+  ["." // (#+ Addendum)
+   [//
+    ["$" document]]])
+
+## https://commonsclause.com/
+(def: #export commons-clause
+  Text
+  (format ($.block "The Software is provided to you by the Licensor under the License, as defined below, subject to the following condition.")
+          ($.block "Without limiting other conditions in the License, the grant of rights under the License will not include, and the License does not grant to you, the right to Sell the Software.")
+          ($.block "For purposes of the foregoing, “Sell” means practicing any or all of the rights granted to you under the License to provide to third parties, for a fee or other consideration (including without limitation fees for hosting or consulting/ support services related to the Software), a product or service whose value derives, entirely or substantially, from the functionality of the Software. Any license notice or attribution required by the License must also include this Commons Clause License Condition notice.")))
+
+(def: #export (output value)
+  (-> Addendum Text)
+  (`` (format (~~ (template [<title> <condition> <content>]
+                    [(if <condition>
+                       ($.block ($.section {#$.title <title>
+                                            #$.content <content>}))
+                       "")]
+
+                    ["“Commons Clause” License Condition v1.0"
+                     (get@ #//.commons-clause? value)
+                     ..commons-clause]
+                    )))))
-- 
cgit v1.2.3