Bug #291 ยป dragonfly.dsl.diff
| dragonfly.dsl 9 Aug 2006 17:58:51 -0000 | ||
|---|---|---|
|
(let* ((class (attribute-string (normalize "role"))))
|
||
|
(cond
|
||
|
((equal? class "package")
|
||
|
(let* ((urlurl "http://www.FreeBSD.org/cgi/url.cgi")
|
||
|
(href (string-append urlurl "?ports/"
|
||
|
(data (current-node))
|
||
|
"/pkg-descr")))
|
||
|
(let* ((urlurl "http://pkgsrc.se/")
|
||
|
(href (string-append urlurl (data (current-node)))))
|
||
|
(create-link (list (list "HREF" href)) ($mono-seq$))))
|
||
|
(else ($mono-seq$)))))
|
||