aboutsummaryrefslogtreecommitdiff
path: root/licentia/source/program/licentia/license/submission.lux
blob: 367839be341973bf6af9a970266ab16a3ddf0e67 (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
27
(.using
 [library
  [lux "*"
   [data
    ["[0]" text
     ["%" format (.only format)]]]]]
 [//
  ["_" term]
  [//
   ["$" document]]])

(def: .public contribution
  (let [on-submissions (let [exception (format "Unless " _.recipient " explicitly states otherwise")
                             general-case (format "any intentional " _.submission " of a " _.contribution
                                                  " for inclusion in " _.licensed_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))))