* fyi, bugs details now fancifies "http://..."
@ 2002-03-19 22:23 Thien-Thi Nguyen
0 siblings, 0 replies; only message in thread
From: Thien-Thi Nguyen @ 2002-03-19 22:23 UTC (permalink / raw)
the bugs details pages (http://www.glug.org/snap/bugs/) now supports
replacing urls w/ hrefs to those urls. for the curious, appended is new
proc `fancify' in BUGS-2-html-data.scm.
(full google-style decoration is left as an exercise for the reader. :-)
thi
___________________________________
(define (fancify line)
(let ((rx (make-regexp "http://[-a-zA-Z0-9._/]+")))
(cond ((regexp-exec rx line)
=> (lambda (m)
(format #f "~A<A HREF=\"~A\">~A</A>~A"
(match:prefix m)
(match:substring m) (match:substring m)
(fancify (match:suffix m)))))
(else line))))
_______________________________________________
Guile-user mailing list
Guile-user@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-user
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2002-03-19 22:23 UTC | newest]
Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2002-03-19 22:23 fyi, bugs details now fancifies "http://..." Thien-Thi Nguyen
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).