Minor web framework fixes

diff --git a/extra/http/server/server.factor b/extra/http/server/server.factor
index 10d6070f7b09e13b8d74e7d0f07e674955e1116c..fc50432030d8de719eefa1647334222f9a62d0e8 100755 (executable)
--- a/extra/http/server/server.factor
+++ b/extra/http/server/server.factor
@@ -44,8 +44,13 @@ main-responder global [ <404> <trivial-responder> or ] change-at
 
 : do-response ( response -- )
     dup write-response
-    request get method>> "HEAD" =
-    [ drop ] [ '[ , write-response-body ] [ http-error. ] recover ] if ;
+    request get method>> "HEAD" = [ drop ] [
+        '[ , write-response-body ]
+        [
+            development-mode get
+            [ http-error. ] [ drop "Response error" ] if
+        ] recover
+    ] if ;
 
 LOG: httpd-hit NOTICE
 

diff --git a/extra/webapps/blogs/blogs-common.xml b/extra/webapps/blogs/blogs-common.xml
index 38005e6f1c52d3e7b7c8f660158b91b650b7e3b7..965f059abd52377cd9ef1044430f8cca3ae3d794 100644 (file)
--- a/extra/webapps/blogs/blogs-common.xml
+++ b/extra/webapps/blogs/blogs-common.xml
@@ -24,7 +24,7 @@
 
        </div>
 
-       <h2><t:write-title /></h2>
+       <h1><t:write-title /></h1>
 
        <t:call-next-template />
 

diff --git a/extra/webapps/blogs/view-post.xml b/extra/webapps/blogs/view-post.xml
index 3489f1e331be04cd7338e5c3f4f47257b273a77d..23bf51394629b7f31723de5ce049d206b268971c 100644 (file)
--- a/extra/webapps/blogs/view-post.xml
+++ b/extra/webapps/blogs/view-post.xml
@@ -6,11 +6,11 @@
                <t:label t:name="author" />: <t:label t:name="title" />
        </t:atom>
 
-       <t:atom t:href="$blogs/by" t:query="author">
+       <t:atom t:href="$blogs/by.atom" t:query="author">
                Recent Posts by <t:label t:name="author" />
        </t:atom>
 
-       <t:title> <t:label t:name="title" /> </t:title>
+       <t:title> <t:label t:name="author" />: <t:label t:name="title" /> </t:title>
 
        <p class="posting-body">
                <t:farkup t:name="content" />