steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add DOCTYPE html in most places. 

4ef4235 started it. This is also good for html emails like in
extra/webapps/mason/backend/watchdog/watchdog.factor .

I just grepped for "<html>".
char-rename
Jon Harper 2017-01-05 17:14:33 +01:00 committed by John Benediktsson
parent 97a57f4041
commit 5af166b8f5
23 changed files with 27 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/furnace/recaptcha/example/example.xml
View File

@ -1,4 +1,5 @@
<?xml version='1.0' ?> <?xml version='1.0' ?>
<!DOCTYPE html>
<t:chloe xmlns:t="http://factorcode.org/chloe/1.0"> <t:chloe xmlns:t="http://factorcode.org/chloe/1.0">
<html><body><t:form t:action=""><t:recaptcha/></t:form></body></html> <html><body><t:form t:action=""><t:recaptcha/></t:form></body></html>
</t:chloe> </t:chloe>

1
basis/furnace/recaptcha/recaptcha.xml
View File

@ -1,4 +1,5 @@
<?xml version='1.0' ?> <?xml version='1.0' ?>
<!DOCTYPE html>
<t:chloe xmlns:t="http://factorcode.org/chloe/1.0"> <t:chloe xmlns:t="http://factorcode.org/chloe/1.0">
<html> <html>
<body><t:recaptcha/> <body><t:recaptcha/>

4
basis/html/components/components-tests.factor
View File

@ -145,10 +145,10 @@ M: link-test link-href drop "http://www.apple.com/foo&bar" ;
] unit-test ] unit-test
{ } [ { } [
"<html>arbitrary <b>markup</b> for the win!</html>" "html" set-value "<!DOCTYPE html><html>arbitrary <b>markup</b> for the win!</html>" "html" set-value
] unit-test ] unit-test
{ "<html>arbitrary <b>markup</b> for the win!</html>" } [ { "<!DOCTYPE html><html>arbitrary <b>markup</b> for the win!</html>" } [
[ "html" html render ] with-string-writer [ "html" html render ] with-string-writer
] unit-test ] unit-test

2
basis/html/templates/chloe/chloe-tests.factor
View File

@ -32,7 +32,7 @@ IN: html.templates.chloe.tests
] with-scope ] with-scope
] unit-test ] unit-test
{ "<html><head><title>Hello world</title></head><body>Blah blah</body></html>" } [ { "<!DOCTYPE html><html><head><title>Hello world</title></head><body>Blah blah</body></html>" } [
[ [
[ [
"test2" test-template call-template "test2" test-template call-template

2
basis/html/templates/chloe/test/test3.xml
View File

@ -1,5 +1,5 @@
<?xml version='1.0' ?> <?xml version='1.0' ?>
<!DOCTYPE html>
<t:chloe xmlns:t="http://factorcode.org/chloe/1.0"> <t:chloe xmlns:t="http://factorcode.org/chloe/1.0">
<html> <html>
<head> <head>

2
basis/html/templates/fhtml/test/example.fhtml
View File

@ -1,5 +1,5 @@
<% USING: math ; %> <% USING: math ; %>
<!DOCTYPE html>
<html> <html>
<head><title>Simple Embedded Factor Example</title></head> <head><title>Simple Embedded Factor Example</title></head>
<body> <body>

3
basis/html/templates/fhtml/test/example.html
View File

@ -1,5 +1,4 @@
<!DOCTYPE html>
<html> <html>
<head><title>Simple Embedded Factor Example</title></head> <head><title>Simple Embedded Factor Example</title></head>
<body> <body>

2
basis/http/http-tests.factor
View File

@ -345,7 +345,7 @@ SYMBOL: a
<dispatcher> <dispatcher>
<action> <action>
[ a get-global "a" set-value ] >>init [ a get-global "a" set-value ] >>init
[ [ "<html>" write "a" <field> render "</html>" write ] "text/html" <content> ] >>display [ [ "<!DOCTYPE html><html>" write "a" <field> render "</html>" write ] "text/html" <content> ] >>display
[ { { "a" [ v-integer ] } } validate-params ] >>validate [ { { "a" [ v-integer ] } } validate-params ] >>validate
[ "a" value a set-global URL" " <redirect> ] >>submit [ "a" value a set-global URL" " <redirect> ] >>submit
<conversations> <conversations>

1
basis/http/server/responses/responses.factor
View File

@ -20,6 +20,7 @@ IN: http.server.responses
: trivial-response-body ( code message -- ) : trivial-response-body ( code message -- )
<XML <XML
<!DOCTYPE html>
<html> <html>
<body> <body>
<h1><-> <-></h1> <h1><-> <-></h1>

2
basis/http/test/foo.html
View File

@ -1 +1 @@
<html><head><title>Hello</title></head><body>HTTPd test</body></html> <!DOCTYPE html><html><head><title>Hello</title></head><body>HTTPd test</body></html>

1
basis/lists/lazy/old-doc.html
View File

@ -1,3 +1,4 @@
<!DOCTYPE html>
<html> <html>
<head> <head>
<title>Lazy Evaluation</title> <title>Lazy Evaluation</title>

3
basis/xml/writer/writer-docs.factor
View File

@ -56,10 +56,11 @@ HELP: indenter
HELP: sensitive-tags HELP: sensitive-tags
{ $var-description "Contains a sequence of " { $link name } "s where whitespace should be considered significant for prettyprinting purposes. The sequence can contain " { $link string } "s in place of names. For example, to preserve whitespace inside a " { $snippet "pre" } " tag:" } { $var-description "Contains a sequence of " { $link name } "s where whitespace should be considered significant for prettyprinting purposes. The sequence can contain " { $link string } "s in place of names. For example, to preserve whitespace inside a " { $snippet "pre" } " tag:" }
{ $example "USING: xml.syntax xml.writer namespaces ; { $example "USING: xml.syntax xml.writer namespaces ;
[XML <html> <head> <title> something</title></head><body><pre>bing [XML <!DOCTYPE html> <html> <head> <title> something</title></head><body><pre>bing
bang bang
bong</pre></body></html> XML] { \"pre\" } sensitive-tags [ pprint-xml ] with-variable" bong</pre></body></html> XML] { \"pre\" } sensitive-tags [ pprint-xml ] with-variable"
" "
<!DOCTYPE html>
<html> <html>
<head> <head>
<title> <title>

2
basis/xmode/code2html/code2html.factor
View File

@ -28,7 +28,7 @@ IN: xmode.code2html
[ "" ] [ path over first find-mode htmlize-lines ] [ "" ] [ path over first find-mode htmlize-lines ]
if-empty :> input if-empty :> input
default-stylesheet :> stylesheet default-stylesheet :> stylesheet
<XML <html> <XML <!DOCTYPE html> <html>
<head> <head>
<-stylesheet-> <-stylesheet->
<title><-path-></title> <title><-path-></title>

4
extra/codebook/codebook.factor
View File

@ -96,7 +96,7 @@ TUPLE: code-file
file mode>> load-mode :> rules file mode>> load-mode :> rules
f lines [| l i | l rules tokenize-line i 1 + line#len line#>string htmlize-tokens ] f lines [| l i | l rules tokenize-line i 1 + line#len line#>string htmlize-tokens ]
map-index concat nip :> html-lines map-index concat nip :> html-lines
<XML <html> <XML <!DOCTYPE html> <html>
<head> <head>
<title><-name-></title> <title><-name-></title>
<meta http-equiv="Content-type" content="text/html; charset=utf-8" /> <meta http-equiv="Content-type" content="text/html; charset=utf-8" />
@ -116,7 +116,7 @@ TUPLE: code-file
dir [ dir [
files toc-list :> toc files toc-list :> toc
<XML <html> <XML <!DOCTYPE html> <html>
<head> <head>
<title><-name-></title> <title><-name-></title>
<meta http-equiv="Content-type" content="text/html; charset=utf-8" /> <meta http-equiv="Content-type" content="text/html; charset=utf-8" />

2
extra/html/parser/analyzer/analyzer-tests.factor
View File

@ -32,7 +32,7 @@ IN: html.parser.analyzer.tests
T{ tag f text f "foo" f } T{ tag f text f "foo" f }
} }
} [ } [
"<html><head><title>foo</title></head></html>" parse-html "<!DOCTYPE html><html><head><title>foo</title></head></html>" parse-html
"title" find-between-first "title" find-between-first
] unit-test ] unit-test

2
extra/mason/report/report.factor
View File

@ -32,7 +32,7 @@ IN: mason.report
'[ '[
common-report common-report
_ call( -- xml ) _ call( -- xml )
[XML <html><body><-><-></body></html> XML] [XML <!DOCTYPE html><html><body><-><-></body></html> XML]
write-xml write-xml
] with-file-writer ; inline ] with-file-writer ; inline

1
extra/parser-combinators/parser-combinators.html
View File

@ -1,3 +1,4 @@
<!DOCTYPE html>
<html> <html>
<head> <head>
<title>Parser Combinators</title> <title>Parser Combinators</title>

2
extra/webapps/imagebin/upload-image.xml
View File

@ -1,4 +1,4 @@
<?xml version='1.0' ?> <!DOCTYPE html>
<html> <html>
<head><title>Upload</title></head> <head><title>Upload</title></head>
<body> <body>

2
extra/webapps/imagebin/uploaded-image.xml
View File

@ -1,4 +1,4 @@
<?xml version='1.0' ?> <!DOCTYPE html>
<html> <html>
<head><title>Uploaded</title></head> <head><title>Uploaded</title></head>
<body> <body>

1
extra/webapps/mason/backend/watchdog/watchdog.factor
View File

@ -7,6 +7,7 @@ IN: webapps.mason.backend.watchdog
: crashed-builder-body ( crashed-builders -- string content-type ) : crashed-builder-body ( crashed-builders -- string content-type )
[ os/cpu [XML <li><-></li> XML] ] map [ os/cpu [XML <li><-></li> XML] ] map
<XML <XML
<!DOCTYPE html>
<html> <html>
<body> <body>
<p>Machines which are not sending heartbeats:</p> <p>Machines which are not sending heartbeats:</p>

2
extra/webapps/site-watcher/common/site-watcher.xml
View File

@ -1,5 +1,5 @@
<?xml version='1.0' ?> <?xml version='1.0' ?>
<!DOCTYPE html>
<t:chloe xmlns:t="http://factorcode.org/chloe/1.0"> <t:chloe xmlns:t="http://factorcode.org/chloe/1.0">
<html> <html>

1
unmaintained/tangle/resources/weave.html
View File

@ -1,3 +1,4 @@
<!DOCTYPE html>
<html> <html>
<head> <head>
<script type="text/javascript" src="jquery-1.2.3.min.js"></script> <script type="text/javascript" src="jquery-1.2.3.min.js"></script>

2
unmaintained/webapps/numbers/numbers.factor
View File

@ -40,6 +40,7 @@ IN: webapps.numbers
! Display the string in a web page. ! Display the string in a web page.
[ [
swap dup swap dup
"<!DOCTYPE html>" print
<html> <html>
<head> <title> write </title> </head> <head> <title> write </title> </head>
<body> <body>
@ -51,6 +52,7 @@ IN: webapps.numbers
: read-number ( -- ) : read-number ( -- )
[ [
"<!DOCTYPE html>" print
<html> <html>
<head> <title> "Enter a number" write </title> </head> <head> <title> "Enter a number" write </title> </head>
<body> <body>