blob: 855141690ed455a2d53586362f3ce95752521e63 (
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
|
(.module:
[lux #*
[data
["." text
["%" format (#+ format)]]]]
[//
["_" term]
[//
["$" document]]])
(def: #export contribution
(let [on-submissions (let [exception (format "Unless " _.recipient " explicitly states otherwise")
general-case (format "any intentional " _.submission " of a " _.contribution
" for inclusion in " _.work
" by " _.recipient
" to " _.licensor
" shall be under the terms and conditions of " _.license)
guard "without any additional terms or conditions"]
(format exception ", " general-case ", " guard))
on-special-cases (let [connection "Notwithstanding the above"
prioritization (format "nothing herein shall supersede or modify the terms of any separate license agreement " _.recipient
" may have executed with " _.licensor
" regarding such " _.contribution)]
(format connection ", " prioritization))]
($.paragraph (list on-submissions
on-special-cases))))
|
