Minor web framework fixes
parent
4ca59470ce
commit
313bd9b154
|
@ -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
|
||||
|
||||
|
|
|
@ -24,7 +24,7 @@
|
|||
|
||||
</div>
|
||||
|
||||
<h2><t:write-title /></h2>
|
||||
<h1><t:write-title /></h1>
|
||||
|
||||
<t:call-next-template />
|
||||
|
||||
|
|
|
@ -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" />
|
||||
|
|
Loading…
Reference in New Issue