From 313bd9b15453e1965e50f00eeb420c4ca089a56c Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 7 Jun 2008 10:40:47 -0500
Subject: [PATCH] Minor web framework fixes
---
extra/http/server/server.factor | 9 +++++++--
extra/webapps/blogs/blogs-common.xml | 2 +-
extra/webapps/blogs/view-post.xml | 4 ++--
3 files changed, 10 insertions(+), 5 deletions(-)
diff --git a/extra/http/server/server.factor b/extra/http/server/server.factor
index 10d6070f7b..fc50432030 100755
--- 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 38005e6f1c..965f059abd 100644
--- 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 3489f1e331..23bf513946 100644
--- 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" />