Hyperlink email addresses in Scribble docs.

svn: r16641 original commit: f145ff6aa3e187a85cc4790a4e719f974a8afa10
2009-11-09 19:19:38 +00:00 · 2009-11-09 19:19:38 +00:00 · 949c46a61b
commit 949c46a61b
parent afd56244c4
1 changed files with 1 additions and 1 deletions
--- a/collects/scribble/base.ss
+++ b/collects/scribble/base.ss
@ -143,7 +143,7 @@
                     (regexp-replace* #rx"[.]"
                                      (regexp-replace* #rx"@" email " at ")
                                      " dot ")
-                     email)
+                     (hyperlink (string-append "mailto:" email) email))
                 ">")))

 ;; ----------------------------------------