Add an RDF comment announcing the appropriate trackback URI to all journal entry view pages.

Ignore-this: 987734d9f935b959fdfc9f8a58caa502

darcs-hash:078244745609508238ff821c9bc6c48111fcfb36

1 files changed, 11 insertions, 0 deletions

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