aboutsummaryrefslogtreecommitdiff
path: root/licentia/source/program/licentia/license/assurance.lux
blob: a36b38dcf0c2057baedd3edc6773c88e7a58cf20 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
(.using
 [library
  [lux "*"
   [data
    ["[0]" text
     ["%" format {"+" format}]]]]]
 [//
  ["_" term]
  [//
   ["$" document]]])

(def: .public 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: .public fair_use
  (let [copyright_doctrines (is (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)))))