Changeset 12533 in project for release/3/svnwiki-folksonomy


Ignore:
Timestamp:
11/16/08 19:13:36 (12 years ago)
Author:
azul
Message:

Importing svnwiki extensions.

Location:
release/3/svnwiki-folksonomy
Files:
4 added
1 copied

Legend:

Unmodified
Added
Removed
  • release/3/svnwiki-folksonomy/trunk/svnwiki-folksonomy.scm

    • Property svn:keywords set to id
    r12412 r12533  
    1 (declare (run-time-macros))
    2 
    3 (use syntax-case)
    4 
    5 (define-syntax environment
    6   (syntax-rules ()
    7     ((environment original ((name expr) ...))
    8      (lambda (op)
    9        (case op
    10          ((name) expr)
    11          ...
    12          (else (original op)))))
    13     ((environment ((name expr) ...))
    14      (environment (lambda (op)
    15                     (warning "unbound variable (dynamic environment)" op)
    16                     (if #f #f))
    17                   ((name expr) ...)))))
    18 
    19 (define-syntax environment-get
    20   (syntax-rules ()
    21     ((environment-get env sym) (env 'sym))))
    22 
    23 (define-syntax let-from-environment
    24   (syntax-rules ()
    25     ((let-from-environment env (sym ...) body ...)
    26      (let ((sym (environment-get env sym)) ...) body ...))))
    27 
    28 (define-syntax environment-capture
    29   (syntax-rules ()
    30     ((environment-capture env (sym ...))
    31      (environment env ((sym sym) ...)))
    32     ((environment-capture (sym ...))
    33      (environment ((sym sym) ...)))))
     1; $id$
     2;
     3; License: GPL-3
     4
     5(declare (export))
     6(use svnwiki-extensions-support html-stream srfi-40 stream-ext format-modular)
    347
    358(define (show-tags-related env)
     
    293266)
    294267
    295 (define *extensions*
    296   `((folksonomy (render-bottom-div ,show-tags-related))))
     268(svnwiki-extension-define 'render-bottom-div 'folksonomy show-tags-related)
Note: See TracChangeset for help on using the changeset viewer.