From 9490744cdcabe2a903e2925f266bf373e77bce13 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sun, 7 Dec 2008 20:57:24 +0100
Subject: info: Improve `url-ref' output.

* src/guile/skribilo/engine/info.scm (url-ref): Produce output that
  conforms to what Texinfo does.
---
 src/guile/skribilo/engine/info.scm | 14 ++++++--------
 1 file 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 ...                                             */
-- 
cgit v1.2.3