(define-module (local common) #:export (link ulist) #:replace (link)) (define (ulist . items) `(ul ,(map (lambda (item) (list 'li item)) items))) (define (link name uri) `(a (@ (href ,uri)) ,name))
