From 519c0c0c71cdf7ce3dfc64b9781ab826760b3d94 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 14 Jun 2021 18:33:54 -0400
Subject: Extracted Licentia out of the standard library.

---
 stdlib/source/program/licentia/license/notice.lux | 32 -----------------------
 1 file changed, 32 deletions(-)
 delete mode 100644 stdlib/source/program/licentia/license/notice.lux

(limited to 'stdlib/source/program/licentia/license/notice.lux')

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)))
-- 
cgit v1.2.3