common.scm 212 Bytes
Newer Older
Philip Kaludercic's avatar
Philip Kaludercic committed
1
2
3
4
5
6
7
8
9
10
(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))