aliens/tekuti
1
0
Fork 0
Code Activity

s/unparse-uri/uri->string/

Browse source
This commit is contained in:
Andy Wingo 2011-02-18 23:34:57 +01:00
parent 2a87435f81
commit fce14fbddf
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tekuti/page-helpers.scm
View file

@ -112,7 +112,7 @@
"&"))
(define* (relative-url uri path-components #:key query fragment)
(unparse-uri
(uri->string
(build-uri (uri-scheme uri)
#:userinfo (uri-userinfo uri) #:host (uri-host uri)
#:port (uri-port uri)
@ -385,7 +385,7 @@
(define (atom-header last-modified)
(define (relurl . tail)
(unparse-uri (ensure-public-uri tail)))
(uri->string (ensure-public-uri tail)))
`(feed
(@ (xmlns "http://www.w3.org/2005/Atom") (xml:base ,(relurl)))
(title (@ (type "text")) ,*title*)
@ -404,7 +404,7 @@
(define (atom-entry post)
(define (relurl . tail)
(unparse-uri (ensure-public-uri tail)))
(uri->string (ensure-public-uri tail)))
`(entry
(author (name ,*name*) (uri ,(relurl)))
(title (@ (type "text")) ,(post-title post))

2
tekuti/page.scm
View file

@ -328,7 +328,7 @@
(respond #f
#:last-modified (and=> last-modified timestamp->date)
#:doctype #f
#:content-type "application/atom+xml"
#:content-type 'application/atom+xml
#:etag (assq-ref index 'master)
#:sxml (append (atom-header last-modified)
(map