From cf65646b9b2bb2c3372b8a231e12d22b1efd99c1 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 12 Nov 2009 18:51:54 +0100 Subject: Specify absolute URIs in the site map. Ignore-this: 7375d4215a2d1d0d1b5f15a892c9ff21 darcs-hash:a909178c8d1d72da6a8b199499e25f4050a7ff44 --- journal.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/journal.lisp b/journal.lisp index ed2dd87..b24e169 100755 --- a/journal.lisp +++ b/journal.lisp @@ -767,16 +767,16 @@ (with-xml-output (*standard-output* :encoding "utf-8") (with-tag ("sitemap" '(("xmlns" "http://www.sitemaps.org/schemas/sitemap/0.9"))) (with-tag ("url") - (emit-simple-tags :loc (link-to :index) + (emit-simple-tags :loc (link-to :index :absolute t) :priority "0.5")) (with-tag ("url") - (emit-simple-tags :loc (link-to :full-index) + (emit-simple-tags :loc (link-to :full-index :absolute t) :priority "0.3")) (dolist (id (select [slot-value 'journal-entry 'id] :from [journal-entry] :flatp t)) (with-tag ("url") - (emit-simple-tags :loc (link-to :view :post-id id) + (emit-simple-tags :loc (link-to :view :post-id id :absolute t) :priority "0.7"))))) #.(restore-sql-reader-syntax-state)) -- cgit v1.2.3