aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/licentia/license/notice.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/licentia/license/notice.lux')
-rw-r--r--stdlib/source/program/licentia/license/notice.lux32
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)))