diff options
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))) |