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$)))))
|
||