diff options
author | Andy Wingo <wingo@pobox.com> | 2012-05-08 16:03:54 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-05-08 16:03:54 +0200 |
commit | 0eba699d12f638c624efcdc2b617b0aa9099ee1f (patch) | |
tree | 26112205c3f579119c4caac5eb68c8a4db25925a | |
parent | 520850ad2768dbc0fe16254b90a52b16bfad1f14 (diff) | |
download | guile-0eba699d12f638c624efcdc2b617b0aa9099ee1f.tar.gz |
docbook->texi fix
* module/texinfo/docbook.scm (*sdocbook->stexi-rules*): Only convert
ulink to uref if there is a URL attribute.
-rw-r--r-- | module/texinfo/docbook.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/module/texinfo/docbook.scm b/module/texinfo/docbook.scm index 50a7bbc41..c5a8d659f 100644 --- a/module/texinfo/docbook.scm +++ b/module/texinfo/docbook.scm @@ -97,8 +97,12 @@ a number of generic rules for transforming docbook into texinfo." (subsection . ,identity) (subsubsection . ,identity) (ulink . ,(lambda (tag attrs . body) - `(uref (% ,(assq 'url (cdr attrs)) - (title ,@body))))) + (cond + ((assq 'url (cdr attrs)) + => (lambda (url) + `(uref (% ,url (title ,@body))))) + (else + (car body))))) (*text* . ,detag-one) (*default* . ,(lambda (tag . body) (let ((subst (assq tag tag-replacements))) |