Hyperlink email addresses in Scribble docs.
svn: r16641
This commit is contained in:
parent
4e7184715b
commit
f145ff6aa3
|
@ -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))
|
||||||
">")))
|
">")))
|
||||||
|
|
||||||
;; ----------------------------------------
|
;; ----------------------------------------
|
||||||
|
|
|
@ -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)]{
|
||||||
|
|
Loading…
Reference in New Issue
Block a user