diff options
| author | Ludovic Courtès | 2008-12-07 20:57:24 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-12-07 20:57:24 +0100 |
| commit | 9490744cdcabe2a903e2925f266bf373e77bce13 (patch) | |
| tree | a73fbc4be5aa167121c90dbe35c85dc5d138ddd1 /src | |
| parent | e4ec47af3937f386424267fcad84361ad78d819f (diff) | |
| download | skribilo-9490744cdcabe2a903e2925f266bf373e77bce13.tar.gz skribilo-9490744cdcabe2a903e2925f266bf373e77bce13.tar.lz skribilo-9490744cdcabe2a903e2925f266bf373e77bce13.zip | |
info: Improve `url-ref' output.
* src/guile/skribilo/engine/info.scm (url-ref): Produce output that
conforms to what Texinfo does.
Diffstat (limited to 'src')
| -rw-r--r-- | src/guile/skribilo/engine/info.scm | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm index 264b491..fa4fe5c 100644 --- a/src/guile/skribilo/engine/info.scm +++ b/src/guile/skribilo/engine/info.scm @@ -415,14 +415,12 @@ :action (lambda (n e) (let ((url (markup-option n :url)) (text (markup-option n :text))) - (if text - (begin - (output-justified "*Note ") - (output text e) - (output-justified " ("))) - (output url e) - (if text (output-justified ")")) - (output-justified ":: ")))) + (and text + (begin + (output text e) + (output-justified " ("))) + (output-justified url) + (and text (output-justified ")"))))) ;*---------------------------------------------------------------------*/ ;* info-chapter-ref ... */ |