From: Jon Harper Date: Thu, 5 Jan 2017 16:14:33 +0000 (+0100) Subject: add DOCTYPE html in most places. X-Git-Tag: unmaintained~293 X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=5af166b8f562221905c070ccb2e914efd608ce33 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 "". --- diff --git a/basis/furnace/recaptcha/example/example.xml b/basis/furnace/recaptcha/example/example.xml index 2553b332ef..38ac6019e5 100644 --- a/basis/furnace/recaptcha/example/example.xml +++ b/basis/furnace/recaptcha/example/example.xml @@ -1,4 +1,5 @@ + diff --git a/basis/furnace/recaptcha/recaptcha.xml b/basis/furnace/recaptcha/recaptcha.xml index 6cbf795310..2aead0a592 100644 --- a/basis/furnace/recaptcha/recaptcha.xml +++ b/basis/furnace/recaptcha/recaptcha.xml @@ -1,4 +1,5 @@ + diff --git a/basis/html/components/components-tests.factor b/basis/html/components/components-tests.factor index 80409fbcd5..d8e81b78a7 100644 --- a/basis/html/components/components-tests.factor +++ b/basis/html/components/components-tests.factor @@ -145,10 +145,10 @@ M: link-test link-href drop "http://www.apple.com/foo&bar" ; ] unit-test { } [ - "arbitrary markup for the win!" "html" set-value + "arbitrary markup for the win!" "html" set-value ] unit-test -{ "arbitrary markup for the win!" } [ +{ "arbitrary markup for the win!" } [ [ "html" html render ] with-string-writer ] unit-test diff --git a/basis/html/templates/chloe/chloe-tests.factor b/basis/html/templates/chloe/chloe-tests.factor index b9144f0815..9128eef6b7 100644 --- a/basis/html/templates/chloe/chloe-tests.factor +++ b/basis/html/templates/chloe/chloe-tests.factor @@ -32,7 +32,7 @@ IN: html.templates.chloe.tests ] with-scope ] unit-test -{ "Hello worldBlah blah" } [ +{ "Hello worldBlah blah" } [ [ [ "test2" test-template call-template diff --git a/basis/html/templates/chloe/test/test3.xml b/basis/html/templates/chloe/test/test3.xml index 845dd356c9..5c6c730860 100644 --- a/basis/html/templates/chloe/test/test3.xml +++ b/basis/html/templates/chloe/test/test3.xml @@ -1,5 +1,5 @@ - + diff --git a/basis/html/templates/fhtml/test/example.fhtml b/basis/html/templates/fhtml/test/example.fhtml index 211f44af9a..f737f6d160 100644 --- a/basis/html/templates/fhtml/test/example.fhtml +++ b/basis/html/templates/fhtml/test/example.fhtml @@ -1,5 +1,5 @@ <% USING: math ; %> - + Simple Embedded Factor Example diff --git a/basis/html/templates/fhtml/test/example.html b/basis/html/templates/fhtml/test/example.html index 33829bf84c..a65c78f7d0 100644 --- a/basis/html/templates/fhtml/test/example.html +++ b/basis/html/templates/fhtml/test/example.html @@ -1,5 +1,4 @@ - - + Simple Embedded Factor Example diff --git a/basis/http/http-tests.factor b/basis/http/http-tests.factor index 444edc3157..fe70a00e39 100644 --- a/basis/http/http-tests.factor +++ b/basis/http/http-tests.factor @@ -345,7 +345,7 @@ SYMBOL: a [ a get-global "a" set-value ] >>init - [ [ "" write "a" render "" write ] "text/html" ] >>display + [ [ "" write "a" render "" write ] "text/html" ] >>display [ { { "a" [ v-integer ] } } validate-params ] >>validate [ "a" value a set-global URL" " ] >>submit diff --git a/basis/http/server/responses/responses.factor b/basis/http/server/responses/responses.factor index b4cfdbfe60..5aa59c81f5 100644 --- a/basis/http/server/responses/responses.factor +++ b/basis/http/server/responses/responses.factor @@ -20,6 +20,7 @@ IN: http.server.responses : trivial-response-body ( code message -- )

<-> <->

diff --git a/basis/http/test/foo.html b/basis/http/test/foo.html index 2638986853..78c814e29c 100644 --- a/basis/http/test/foo.html +++ b/basis/http/test/foo.html @@ -1 +1 @@ -HelloHTTPd test +HelloHTTPd test diff --git a/basis/lists/lazy/old-doc.html b/basis/lists/lazy/old-doc.html index c01ca2eeae..d4b16af1f8 100644 --- a/basis/lists/lazy/old-doc.html +++ b/basis/lists/lazy/old-doc.html @@ -1,3 +1,4 @@ + Lazy Evaluation diff --git a/basis/xml/writer/writer-docs.factor b/basis/xml/writer/writer-docs.factor index f7f9d30402..8fb155df40 100644 --- a/basis/xml/writer/writer-docs.factor +++ b/basis/xml/writer/writer-docs.factor @@ -56,10 +56,11 @@ HELP: indenter 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:" } { $example "USING: xml.syntax xml.writer namespaces ; -[XML something
bing
+[XML       something
bing
 bang
    bong
 XML] { \"pre\" } sensitive-tags [ pprint-xml ] with-variable"
 "
+
 
   
     
diff --git a/basis/xmode/code2html/code2html.factor b/basis/xmode/code2html/code2html.factor
index a4c2094da7..6938f40beb 100644
--- a/basis/xmode/code2html/code2html.factor
+++ b/basis/xmode/code2html/code2html.factor
@@ -28,7 +28,7 @@ IN: xmode.code2html
     [ "" ] [ path over first find-mode htmlize-lines ]
     if-empty :> input
     default-stylesheet :> stylesheet
-    <XML <html>
+    <XML <!DOCTYPE html> <html>
         <head>
             <-stylesheet->
             <title><-path->
diff --git a/extra/codebook/codebook.factor b/extra/codebook/codebook.factor
index 4f25ae7520..f0c48124e8 100644
--- a/extra/codebook/codebook.factor
+++ b/extra/codebook/codebook.factor
@@ -96,7 +96,7 @@ TUPLE: code-file
     file mode>> load-mode :> rules
     f lines [| l i | l rules tokenize-line i 1 + line#len line#>string htmlize-tokens ]
     map-index concat nip :> html-lines
-    
+     
         
             <-name->
             
@@ -116,7 +116,7 @@ TUPLE: code-file
     dir [
         files toc-list :> toc
 
-        
+         
             
                 <-name->
                 
diff --git a/extra/html/parser/analyzer/analyzer-tests.factor b/extra/html/parser/analyzer/analyzer-tests.factor
index 25016cd996..0c640354fd 100644
--- a/extra/html/parser/analyzer/analyzer-tests.factor
+++ b/extra/html/parser/analyzer/analyzer-tests.factor
@@ -32,7 +32,7 @@ IN: html.parser.analyzer.tests
     T{ tag f text f "foo" f }
 }
 } [
-    "foo" parse-html
+    "foo" parse-html
     "title" find-between-first
 ] unit-test
 
diff --git a/extra/mason/report/report.factor b/extra/mason/report/report.factor
index 0ee80f0c21..14978ebf9c 100644
--- a/extra/mason/report/report.factor
+++ b/extra/mason/report/report.factor
@@ -32,7 +32,7 @@ IN: mason.report
     '[
         common-report
         _ call( -- xml )
-        [XML <-><-> XML]
+        [XML <-><-> XML]
         write-xml
     ] with-file-writer ; inline
 
diff --git a/extra/parser-combinators/parser-combinators.html b/extra/parser-combinators/parser-combinators.html
index 33aeaba902..6d449130d0 100644
--- a/extra/parser-combinators/parser-combinators.html
+++ b/extra/parser-combinators/parser-combinators.html
@@ -1,3 +1,4 @@
+
 
   
     Parser Combinators
diff --git a/extra/webapps/imagebin/upload-image.xml b/extra/webapps/imagebin/upload-image.xml
index ed6704fc93..e86bc1afbb 100644
--- a/extra/webapps/imagebin/upload-image.xml
+++ b/extra/webapps/imagebin/upload-image.xml
@@ -1,4 +1,4 @@
-
+
 
 Upload
 
diff --git a/extra/webapps/imagebin/uploaded-image.xml b/extra/webapps/imagebin/uploaded-image.xml
index 79dfabc924..7f735efca3 100644
--- a/extra/webapps/imagebin/uploaded-image.xml
+++ b/extra/webapps/imagebin/uploaded-image.xml
@@ -1,4 +1,4 @@
-
+
 
 Uploaded
 
diff --git a/extra/webapps/mason/backend/watchdog/watchdog.factor b/extra/webapps/mason/backend/watchdog/watchdog.factor
index 799c4a4f35..c9613acb02 100644
--- a/extra/webapps/mason/backend/watchdog/watchdog.factor
+++ b/extra/webapps/mason/backend/watchdog/watchdog.factor
@@ -7,6 +7,7 @@ IN: webapps.mason.backend.watchdog
 : crashed-builder-body ( crashed-builders -- string content-type )
     [ os/cpu [XML 
  • <->
    •  XML] ] map
     
         
             
                 
    Machines which are not sending heartbeats:
    
diff --git a/extra/webapps/site-watcher/common/site-watcher.xml b/extra/webapps/site-watcher/common/site-watcher.xml
index 5b2b129e27..e06794def2 100644
--- a/extra/webapps/site-watcher/common/site-watcher.xml
+++ b/extra/webapps/site-watcher/common/site-watcher.xml
@@ -1,5 +1,5 @@
 
-
+
 
 
 
diff --git a/unmaintained/tangle/resources/weave.html b/unmaintained/tangle/resources/weave.html
index 6f9296e31f..570a3fcd4d 100644
--- a/unmaintained/tangle/resources/weave.html
+++ b/unmaintained/tangle/resources/weave.html
@@ -1,3 +1,4 @@
+
 
     
         
diff --git a/unmaintained/webapps/numbers/numbers.factor b/unmaintained/webapps/numbers/numbers.factor
index 5f0a1911ae..d141ad1d83 100644
--- a/unmaintained/webapps/numbers/numbers.factor
+++ b/unmaintained/webapps/numbers/numbers.factor
@@ -40,6 +40,7 @@ IN: webapps.numbers
   ! Display the string in a web page.
   [
     swap dup
+    "" print
     
         write  
       
@@ -51,6 +52,7 @@ IN: webapps.numbers
 
 : read-number ( -- )
   [
+    "" print
     
         "Enter a number" write