Changeset 27165 in project


Ignore:
Timestamp:
08/02/12 21:04:48 (9 years ago)
Author:
Moritz Heidkamp
Message:

hyde: Ensure that all required page-vars are present in atom pages

File:
1 edited

Legend:

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

    r27156 r27165  
    2626                         (page->atom-content (lambda (page)
    2727                                               (make-content (read-page page) type: 'html))))
     28
     29  (unless (and ($ 'tag) ($ 'base-uri) ($ 'date))
     30    (error "An atom page requires at least these page-vars to be defined"
     31           '(tag base-uri date)))
     32
    2833  (let* ((rfc3339-string->seconds
    2934          (lambda (date)
Note: See TracChangeset for help on using the changeset viewer.