From 9f64663db42a44da22d0193874a5a227e41b434e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 16 Feb 2009 16:42:22 +0000 Subject: [PATCH] add #:underlined? argument to elemref svn: r13669 original commit: 7b57156ac2a57a90821ca5c955bc811a35185419 --- collects/scribble/private/manual-style.ss | 4 ++-- collects/scribblings/scribble/manual.scrbl | 3 ++- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/scribble/private/manual-style.ss b/collects/scribble/private/manual-style.ss index 4af411d3..fe5e184d 100644 --- a/collects/scribble/private/manual-style.ss +++ b/collects/scribble/private/manual-style.ss @@ -172,8 +172,8 @@ (define (elemtag t . body) (make-target-element #f (decode-content body) `(elem ,t))) -(define (elemref t . body) - (make-link-element #f (decode-content body) `(elem ,t))) +(define (elemref #:underline? [u? #t] t . body) + (make-link-element (if u? #f "plainlink") (decode-content body) `(elem ,t))) (define (doc-prefix doc s) (if doc (list (module-path-prefix->string doc) s) s)) diff --git a/collects/scribblings/scribble/manual.scrbl b/collects/scribblings/scribble/manual.scrbl index deffd221..9434c499 100644 --- a/collects/scribblings/scribble/manual.scrbl +++ b/collects/scribblings/scribble/manual.scrbl @@ -899,7 +899,8 @@ The tag @scheme[t] refers to the content form of @scheme[pre-content].} -@defproc[(elemref [t tag?] [pre-content any/c] ...) element?]{ +@defproc[(elemref [t tag?] [pre-content any/c] ... + [#:underline? underline? any/c #t]) element?]{ The @tech{decode}d @scheme[pre-content] is hyperlinked to @scheme[t], which is normally defined using @scheme[elemtag].}