blob: 155472cd15b1291dfc81fbad8d35bcf862b672da (
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
|
(.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)))))
|
