source: project/release/3/svnwiki-canonical-url/trunk/svnwiki-canonical-url.scm @ 14001

Last change on this file since 14001 was 14001, checked in by azul, 12 years ago

Importing.

File size: 409 bytes
Line 
1(require svnwiki-extensions-support)
2
3; http://googlewebmastercentral.blogspot.com/2009/02/specify-your-canonical.html
4
5(define (canonical-url env)
6  (let-from-environment env (return static-url path)
7    (return
8      (html-stream
9        ((link
10           rel "canonical"
11           href (svnwiki-make-pathname static-url path)))))))
12
13(svnwiki-extension-define 'html-head-data 'canonical-url canonical-url)
Note: See TracBrowser for help on using the repository browser.