Changeset 21339 in project


Ignore:
Timestamp:
11/08/10 13:43:35 (10 years ago)
Author:
Moritz Heidkamp
Message:

gazette: switch page path matching to irregex and add a few shortcut-links

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gazette/hyde.scm

    r20909 r21339  
    11(use hyde hyde-atom environments)
     2(require-library regex)
     3(import irregex)
    24
    35(define-hyde-environment live
     
    79(default-page-vars '(((: bos "issues/" (+ any) ".wiki")
    810                      (layouts "article.sxml" "default.sxml"))))
     11
     12(link-shortcuts '((user   . "http://wiki.call-cc.org/users/")
     13                  (egg    . "http://wiki.call-cc.org/egg/")
     14                  (wiki   . "http://wiki.call-cc.org/")
     15                  (manual . "http://wiki.call-cc.org/manual/")))
    916
    1017(define $ (environment-ref (page-eval-env) '$))
     
    1724
    1825(define (pages-matching regex)
    19   (map cdr (filter (lambda (p) (string-match regex (car p)))
     26  (map cdr (filter (lambda (p) (irregex-match regex (car p)))
    2027                   (environment-ref (page-eval-env) 'pages))))
    2128
Note: See TracChangeset for help on using the changeset viewer.