aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/data/format/html.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/library/lux/data/format/html.lux28
1 files changed, 14 insertions, 14 deletions
diff --git a/stdlib/source/library/lux/data/format/html.lux b/stdlib/source/library/lux/data/format/html.lux
index b6021695d..96de4515b 100644
--- a/stdlib/source/library/lux/data/format/html.lux
+++ b/stdlib/source/library/lux/data/format/html.lux
@@ -15,7 +15,7 @@
[target
["[0]" js]]
[type
- abstract]
+ [abstract {"-" pattern}]]
[world
[net {"+" URL}]]]]
[//
@@ -121,21 +121,21 @@
(def: .public html
(-> Document Text)
- (|>> :representation))
+ (|>> representation))
(def: .public (and pre post)
(All (_ brand) (-> (HTML brand) (HTML brand) (HTML brand)))
- (:abstraction (format (:representation pre) (:representation post))))
+ (abstraction (format (representation pre) (representation post))))
(def: .public (comment content node)
(All (_ brand) (-> Text (HTML brand) (HTML brand)))
- (:abstraction
+ (abstraction
(format (text.enclosed ["<!--" "-->"] content)
- (:representation node))))
+ (representation node))))
(def: (empty name attributes)
(-> Tag Attributes HTML)
- (:abstraction
+ (abstraction
(format (..open name attributes)
(..close name))))
@@ -143,18 +143,18 @@
(-> Tag Attributes HTML)
(|> attributes
(..open tag)
- :abstraction))
+ abstraction))
(def: (tag name attributes content)
(-> Tag Attributes (HTML Any) HTML)
- (:abstraction
+ (abstraction
(format (..open name attributes)
- (:representation content)
+ (representation content)
(..close name))))
(def: (raw tag attributes content)
(-> Text Attributes Text HTML)
- (:abstraction
+ (abstraction
(format (..open tag attributes)
content
(..close tag))))
@@ -197,7 +197,7 @@
(def: .public text
(-> Text Content)
(|>> ..safe
- :abstraction))
+ abstraction))
(.template [<tag> <alias> <name>]
[(def: .public <name>
@@ -550,7 +550,7 @@
content
{.#Some caption}
- (..and (:as HTML caption)
+ (..and (as HTML caption)
content))]
(..tag "table" attributes
content)))
@@ -561,9 +561,9 @@
(let [doc_type <doc_type>]
(function (_ head body)
(|> (..tag "html" (list) (..and head body))
- :representation
+ representation
(format doc_type)
- :abstraction))))]
+ abstraction))))]
[html/5 "<!DOCTYPE html>"]
[html/4_01 (format "<!DOCTYPE HTML PUBLIC " text.double_quote "-//W3C//DTD HTML 4.01//EN" text.double_quote " " text.double_quote "http://www.w3.org/TR/html4/strict.dtd" text.double_quote ">")]