From 7fd84a1521c16d0269131edfc0043eebbbe5430a Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 8 Oct 2009 12:32:24 +0200
Subject: Add an RDF comment announcing the appropriate trackback URI to all
 journal entry view pages.

Ignore-this: 987734d9f935b959fdfc9f8a58caa502

darcs-hash:078244745609508238ff821c9bc6c48111fcfb36
---
 journal.lisp | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'journal.lisp')

diff --git a/journal.lisp b/journal.lisp
index dbadd00..43d0474 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -288,6 +288,17 @@
              (<:as-html (render-comment-body body))))))))
 
     (when comments-p
+      (<:as-is (format nil "<!--
+    <rdf:RDF xmlns:rdf=\"http://www.w3.org/1999/02/22-rdf-syntax-ns#\"
+             xmlns:dc=\"http://purl.org/dc/elements/1.1/\"
+             xmlns:trackback=\"http://madskills.com/public/xml/rss/module/trackback/\">
+    <rdf:Description
+        rdf:about=\"~A\"
+        dc:identifier=\"~:*~A\"
+        dc:title=\"~A\"
+        trackback:ping=\"~A\" />
+    </rdf:RDF>
+-->" (link-to :view :post-id id) title (link-to :trackback :post-id id)))
       (<:div :class :journal-new-comment
        (<:h2 "Neuen Kommentar schreiben")
        (<:p (<:as-is "Bitte beachten Sie, da&szlig; E-Mail-Adressen niemals
-- 
cgit v1.2.3