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/assurance.lux  | 25 ++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 stdlib/source/program/licentia/license/assurance.lux

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

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)))))
-- 
cgit v1.2.3