8 lines
216 B
Racket
8 lines
216 B
Racket
|
#lang racket
|
||
|
(require "xexprs/xexprs.rkt")
|
||
|
|
||
|
(define (sitemap urls)
|
||
|
(string-append
|
||
|
"<?xml version="1.0" encoding="UTF-8"?>"
|
||
|
(xexprs
|
||
|
`(urlset #:xmlns "http://www.sitemaps.org/schemas/sitemap/0.9" ,@urls))))
|