fyi, bugs details now fancifies "http://..."

[Thien-Thi Nguyen]

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