mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 04:30:19 +02:00
Code Activity

docbook->texi fix

Browse source 
* module/texinfo/docbook.scm (*sdocbook->stexi-rules*): Only convert
  ulink to uref if there is a URL attribute.
This commit is contained in:
Andy Wingo 2012-05-08 16:03:54 +02:00
parent 520850ad27
commit 0eba699d12
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/texinfo/docbook.scm
View file

@ -97,8 +97,12 @@ a number of generic rules for transforming docbook into texinfo."
(subsection . ,identity) (subsection . ,identity)
(subsubsection . ,identity) (subsubsection . ,identity)
(ulink . ,(lambda (tag attrs . body) (ulink . ,(lambda (tag attrs . body)
`(uref (% ,(assq 'url (cdr attrs)) (cond
(title ,@body))))) ((assq 'url (cdr attrs))
=> (lambda (url)
`(uref (% ,url (title ,@body)))))
(else
(car body)))))
(*text* . ,detag-one) (*text* . ,detag-one)
(*default* . ,(lambda (tag . body) (*default* . ,(lambda (tag . body)
(let ((subst (assq tag tag-replacements))) (let ((subst (assq tag tag-replacements)))