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/document.lux | 47 -----------------------------
 1 file changed, 47 deletions(-)
 delete mode 100644 stdlib/source/program/licentia/document.lux

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

diff --git a/stdlib/source/program/licentia/document.lux b/stdlib/source/program/licentia/document.lux
deleted file mode 100644
index b1bc20cce..000000000
--- a/stdlib/source/program/licentia/document.lux
+++ /dev/null
@@ -1,47 +0,0 @@
-(.module:
-  [lux (#- or and)
-   [data
-    ["." text
-     ["%" format (#+ format)]]
-    [collection
-     ["." list ("#\." functor)]]]])
-
-(def: #export (quote text)
-  (-> Text Text)
-  (format text.double-quote text text.double-quote))
-
-(def: #export (block content)
-  (-> Text Text)
-  (format content text.new-line text.new-line))
-
-(def: #export (plural singular)
-  (-> Text Text)
-  (format singular "(s)"))
-
-(def: #export (sentence content)
-  (-> Text Text)
-  (format content "."))
-
-(def: #export paragraph
-  (-> (List Text) Text)
-  (|>> (list\map ..sentence)
-       (text.join-with text.new-line)))
-
-(template [<name> <word>]
-  [(def: #export <name>
-     (-> (List Text) Text)
-     (text.join-with (format ", " <word> " ")))]
-
-  [or     "or"]
-  [and    "and"]
-  [and/or "and/or"]
-  )
-
-(type: #export Section
-  {#title Text
-   #content Text})
-
-(def: #export (section value)
-  (-> Section Text)
-  (format (block (get@ #title value))
-          (get@ #content value)))
-- 
cgit v1.2.3