Hyperlink email addresses in Scribble docs.

svn: r16641
This commit is contained in:
Sam Tobin-Hochstadt 2009-11-09 19:19:38 +00:00
parent 4e7184715b
commit f145ff6aa3
2 changed files with 2 additions and 2 deletions

View File

@ -143,7 +143,7 @@
(regexp-replace* #rx"[.]" (regexp-replace* #rx"[.]"
(regexp-replace* #rx"@" email " at ") (regexp-replace* #rx"@" email " at ")
" dot ") " dot ")
email) (hyperlink (string-append "mailto:" email) email))
">"))) ">")))
;; ---------------------------------------- ;; ----------------------------------------

View File

@ -12,7 +12,7 @@
@defmodule[unstable/poly-c] @defmodule[unstable/poly-c]
@author[@author+email["Sam Tobin-Hochstadt" "samth@ccs.neu.edu"] @author[@author+email["Sam Tobin-Hochstadt" "samth@ccs.neu.edu"]
@author+email["Carl Eastlund" "cce@ccs.neu.edu" #:obfuscate? #t]] @author+email["Carl Eastlund" "cce@ccs.neu.edu"]]
@defform[(poly/c ([id+ id-] ...) cnt)]{ @defform[(poly/c ([id+ id-] ...) cnt)]{