aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtès2008-12-07 20:57:24 +0100
committerLudovic Courtès2008-12-07 20:57:24 +0100
commit9490744cdcabe2a903e2925f266bf373e77bce13 (patch)
treea73fbc4be5aa167121c90dbe35c85dc5d138ddd1 /src/guile
parente4ec47af3937f386424267fcad84361ad78d819f (diff)
downloadskribilo-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/guile')
-rw-r--r--src/guile/skribilo/engine/info.scm14
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 ... */