From 519c0c0c71cdf7ce3dfc64b9781ab826760b3d94 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Mon, 14 Jun 2021 18:33:54 -0400 Subject: Extracted Licentia out of the standard library. --- .../source/program/licentia/license/assurance.lux | 25 ---------------------- 1 file changed, 25 deletions(-) delete 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 deleted file mode 100644 index 155472cd1..000000000 --- a/stdlib/source/program/licentia/license/assurance.lux +++ /dev/null @@ -1,25 +0,0 @@ -(.module: - [lux #* - [data - ["." text - ["%" format (#+ 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