Changeset 27156 in project


Ignore:
Timestamp:
08/01/12 22:46:56 (9 years ago)
Author:
Moritz Heidkamp
Message:

hyde-atom: Add a link with relation alternate to the atom feed emitted by pages->atom-doc

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/hyde/trunk/hyde-atom.scm

    r23470 r27156  
    5555                       pages)))
    5656      id: (format ($ 'tag) ($ 'date) "/")
    57       links: (list (make-link uri: (string-append ($ 'base-uri) (page-path)) relation: "self" type: 'atom))
     57      links: (list (make-link uri: (string-append ($ 'base-uri) (or ($ 'root-path) "/"))
     58                              relation: "alternate"
     59                              type: 'html)
     60                   (make-link uri: (string-append ($ 'base-uri) (page-path))
     61                              relation: "self"
     62                              type: 'atom))
    5863      entries: (map (lambda (p)
    5964                      (make-entry title: (make-title (page-title p))
Note: See TracChangeset for help on using the changeset viewer.