aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/licentia/license/submission.lux
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))))