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 'stdlib/source/program/licentia/license/notice.lux')
-rw-r--r-- | stdlib/source/program/licentia/license/notice.lux | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/stdlib/source/program/licentia/license/notice.lux b/stdlib/source/program/licentia/license/notice.lux deleted file mode 100644 index 219af97f4..000000000 --- a/stdlib/source/program/licentia/license/notice.lux +++ /dev/null @@ -1,32 +0,0 @@ -(.module: - [lux #* - [data - [number - ["n" nat]] - ["." text - ["%" format (#+ format)]] - [collection - ["." list ("#\." functor)]]]] - ["." // #_ - ["#." time] - ["#." copyright] - ["_" term] - [// - ["$" document]]]) - -(def: #export end-of-license - ($.sentence "END OF TERMS AND CONDITIONS")) - -(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? - (%.nat start) - (format (%.nat start) "-" (%.nat end)))] - (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))) |