Folded license-making program (legislator) into the Lux project proper (as licentia).

1 files changed, 25 insertions, 0 deletions

diff --git a/stdlib/source/program/licentia/license/assurance.lux b/stdlib/source/program/licentia/license/assurance.lux
new file mode 100644
index 000000000..c75598962
--- /dev/null
+++ b/stdlib/source/program/licentia/license/assurance.lux
@@ -0,0 +1,25 @@
+(.module:
+  [lux #*
+   [data
+    ["." text
+     format]]]
+  [//
+   ["_" term]
+   [//
+    ["$" document]]])
+
+(def: #export representation
+  ($.sentence (format "Each " _.contributor
+                      " represents that the " _.contributor
+                      " believes its " ($.plural _.contribution)
+                      " are its original creation(s) or it has sufficient rights to grant the rights to its " ($.plural _.contribution)
+                      " conveyed by " _.license)))
+
+(def: #export fair-use
+  (let [copyright-doctrines (: (List Text)
+                               (list "fair use"
+                                     "fair dealing"
+                                     "other equivalents"))]
+    ($.sentence (format _.license
+                        " is not intended to limit any rights " _.recipient
+                        " has under applicable copyright doctrines of " ($.or copyright-doctrines)))))