Changeset 20060 in project for gazette/hyde.scm


Ignore:
Timestamp:
09/04/10 02:41:53 (10 years ago)
Author:
Moritz Heidkamp
Message:

gazette: add permalink to all issues, unlink title, remove title.sxml layout and add rudimentary archive page

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gazette/hyde.scm

    r19902 r20060  
    1313                   (environment-ref (page-eval-env) 'pages))))
    1414
     15(define (format-seconds seconds)
     16  (time->string (seconds->utc-time seconds) "%Y-%m-%d %Z"))
     17
    1518(for-each (lambda (binding)
    1619            (apply environment-extend! (cons (page-eval-env) binding)))
    1720          `((page-updated ,page-updated)
    18             (all-issues ,(lambda ()
    19                            (sort-by (pages-matching "issues/.+") page-updated)))))
     21            (format-seconds ,format-seconds)
     22            (all-issues ,(let ((issues #f))
     23                           (lambda ()
     24                             (or issues
     25                                 (begin
     26                                   (set! issues (sort-by (pages-matching "issues/.+") page-updated))
     27                                   issues)))))))
Note: See TracChangeset for help on using the changeset viewer.