diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux/data/format/html.lux | 28 |
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 ">")] |