]> gitweb.factorcode.org Git - factor.git/commitdiff
projects / factor.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: dbb63d4)
html5: make it load
authorDoug Coleman <doug.coleman@gmail.com>
Tue, 11 Aug 2020 23:54:06 +0000 (18:54 -0500)
committerDoug Coleman <doug.coleman@gmail.com>
Fri, 10 Jun 2022 17:44:40 +0000 (12:44 -0500)
basis/html5/html5-tests.factor patch | blob | history
basis/html5/html5.factor patch | blob | history

diff --git a/basis/html5/html5-tests.factor b/basis/html5/html5-tests.factor
index 9ac4b7f2b06b7f0dca53e9328719eaefca33713f..f5a2e86086bc3f7ac182d3d72397308b15649596 100644 (file)
--- a/basis/html5/html5-tests.factor
+++ b/basis/html5/html5-tests.factor
@@ -3,9 +3,21 @@
 USING: multiline tools.test html5 ;
 IN: html5.tests
 
-![[
+![===[
 { } [ "&" parse-html5 ] unit-test
 
 
+[[ <!DOCTYPE html>
+<html>
+<head>
+<title>Title</title>
+</head>
 
-]]
\ No newline at end of file
+<body>
+The content
+</body>
+
+</html>]] parse-html5
+
+
+]===]
\ No newline at end of file
diff --git a/basis/html5/html5.factor b/basis/html5/html5.factor
index 2486e90a5cff2637d64a63a6db3993293626b340..1b495e770c6bc5efb421a8297889d543de4fea6e 100644 (file)
--- a/basis/html5/html5.factor
+++ b/basis/html5/html5.factor
@@ -389,12 +389,6 @@ MEMO: entities-suffix-array ( -- assoc )
     [ entities-suffix-array query f like ]
     [ last CHAR: ; = ] bi ;
 
-: temporary-buffer-attribute-on ( document -- )
-    t >>temporary-buffer-attribute? drop ;
-
-: temporary-buffer-attribute-off ( document -- )
-    f >>temporary-buffer-attribute? drop ;
-
 ERROR: unknown-named-entity entity ;
 : take-named-character ( document -- )
     dup
Factor programming language