diff options
author | Eduardo Julian | 2021-06-14 18:33:54 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-06-14 18:33:54 -0400 |
commit | 519c0c0c71cdf7ce3dfc64b9781ab826760b3d94 (patch) | |
tree | 75fa0672afceff129e5e75afb7a5fed197ce1773 /stdlib/source/program/licentia/license/notice.lux | |
parent | af3e6e2cb011dc2ad9204440990731a2f272716d (diff) |
Extracted Licentia out of the standard library.
Diffstat (limited to '')
-rw-r--r-- | licentia/source/program/licentia/license/notice.lux (renamed from stdlib/source/program/licentia/license/notice.lux) | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/stdlib/source/program/licentia/license/notice.lux b/licentia/source/program/licentia/license/notice.lux index 219af97f4..7ee61397a 100644 --- a/stdlib/source/program/licentia/license/notice.lux +++ b/licentia/source/program/licentia/license/notice.lux @@ -1,12 +1,13 @@ (.module: [lux #* [data - [number - ["n" nat]] ["." text ["%" format (#+ format)]] [collection - ["." list ("#\." functor)]]]] + ["." list ("#\." functor)]]] + [math + [number + ["n" nat]]]] ["." // #_ ["#." time] ["#." copyright] @@ -14,19 +15,19 @@ [// ["$" document]]]) -(def: #export end-of-license +(def: #export end_of_license ($.sentence "END OF TERMS AND CONDITIONS")) -(def: #export (copyright-holder holder) +(def: #export (copyright_holder holder) (-> //copyright.Holder Text) (let [(^slots [#//time.start #//time.end]) (get@ #//copyright.period holder) - single-year? (n.= start end) - period-section (if single-year? + single_year? (n.= start end) + period_section (if single_year? (%.nat start) (format (%.nat start) "-" (%.nat end)))] - (format "Copyright (C) " period-section " " (get@ #//copyright.name holder)))) + (format "Copyright (C) " period_section " " (get@ #//copyright.name holder)))) (def: #export copyright (-> (List //copyright.Holder) Text) - (|>> (list\map ..copyright-holder) - (text.join-with text.new-line))) + (|>> (list\map ..copyright_holder) + (text.join_with text.new_line))) |