aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/licentia/document.lux
diff options
context:
space:
mode:
authorEduardo Julian2021-06-14 18:33:54 -0400
committerEduardo Julian2021-06-14 18:33:54 -0400
commit519c0c0c71cdf7ce3dfc64b9781ab826760b3d94 (patch)
tree75fa0672afceff129e5e75afb7a5fed197ce1773 /stdlib/source/program/licentia/document.lux
parentaf3e6e2cb011dc2ad9204440990731a2f272716d (diff)
Extracted Licentia out of the standard library.
Diffstat (limited to 'stdlib/source/program/licentia/document.lux')
-rw-r--r--stdlib/source/program/licentia/document.lux47
1 files changed, 0 insertions, 47 deletions
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)))