From 60430ee6dfffbeb220a3e8fee7336d54313467bc Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 5 Feb 2019 20:30:13 -0400
Subject: Folded license-making program (legislator) into the Lux project
 proper (as licentia).

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

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

diff --git a/stdlib/source/program/licentia/license/submission.lux b/stdlib/source/program/licentia/license/submission.lux
new file mode 100644
index 000000000..d700c1c1c
--- /dev/null
+++ b/stdlib/source/program/licentia/license/submission.lux
@@ -0,0 +1,26 @@
+(.module:
+  [lux #*
+   [data
+    ["." text
+     format]]]
+  [//
+   ["_" term]
+   [//
+    ["$" document]]])
+
+(def: #export contribution
+  (let [on-submissions (let [exception (format "Unless " _.recipient " explicitly states otherwise")
+                             general-case (format "any intentional " _.submission " of a " _.contribution
+                                                  " for inclusion in " _.work
+                                                  " by " _.recipient
+                                                  " to " _.licensor
+                                                  " shall be under the terms and conditions of " _.license)
+                             guard "without any additional terms or conditions"]
+                         (format exception ", " general-case ", " guard))
+        on-special-cases (let [connection "Notwithstanding the above"
+                               prioritization (format "nothing herein shall supersede or modify the terms of any separate license agreement " _.recipient
+                                                      " may have executed with " _.licensor
+                                                      " regarding such " _.contribution)]
+                           (format connection ", " prioritization))]
+    ($.paragraph (list on-submissions
+                       on-special-cases))))
-- 
cgit v1.2.3