summary refs log tree commit diff
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
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.
-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 ...                                             */