summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-11-12 18:51:54 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-11-12 18:51:54 +0100
commitcf65646b9b2bb2c3372b8a231e12d22b1efd99c1 (patch)
treec580b1b031269446dd393148f7f18f44586777a3
parent28b9485f92eeec7a42b46738c0223235e7f29d69 (diff)
Specify absolute URIs in the site map.
Ignore-this: 7375d4215a2d1d0d1b5f15a892c9ff21 darcs-hash:a909178c8d1d72da6a8b199499e25f4050a7ff44
-rwxr-xr-xjournal.lisp6
1 files 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))