Add a formatting instruction to wrap URLs in \url{} for the print
backend. This allows JUSTIFY=1 to look much nicer. Filenames still aren't handled, but there is another TeX package for that that I will use shortly.
This commit is contained in:
parent
eca1d05330
commit
872e454400
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/head/; revision=10625
1 changed files with 12 additions and 2 deletions
|
@ -1,4 +1,4 @@
|
|||
<!-- $FreeBSD: doc/share/sgml/freebsd.dsl,v 1.51 2001/09/07 22:26:45 murray Exp $ -->
|
||||
<!-- $FreeBSD: doc/share/sgml/freebsd.dsl,v 1.52 2001/09/08 01:59:22 murray Exp $ -->
|
||||
|
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
|
||||
<!ENTITY % output.html "IGNORE">
|
||||
|
@ -19,6 +19,10 @@
|
|||
<style-sheet>
|
||||
<style-specification use="docbook">
|
||||
<style-specification-body>
|
||||
|
||||
(declare-flow-object-class formatting-instruction
|
||||
"UNREGISTERED::James Clark//Flow Object Class::formatting-instruction")
|
||||
|
||||
<!-- HTML only .................................................... -->
|
||||
|
||||
<![ %output.html; [
|
||||
|
@ -247,7 +251,13 @@
|
|||
(data-of (current-node)))))
|
||||
(make sequence
|
||||
(literal " (")
|
||||
(literal (fix-url (attribute-string (normalize "url"))))
|
||||
(if %hyphenation%
|
||||
(make formatting-instruction data:
|
||||
(string-append "\\url{"
|
||||
(fix-url (attribute-string
|
||||
(normalize "url")))
|
||||
"}"))
|
||||
(literal (fix-url (attribute-string (normalize "url")))))
|
||||
(literal ")"))
|
||||
(empty-sosofo)))))))
|
||||
|
||||
|
|
Loading…
Reference in a new issue