summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtes2007-07-29 10:29:53 +0000
committerLudovic Courtes2007-07-29 10:29:53 +0000
commit9e33c564d4bf526239c04d2de1f37bc0aaf92e5e (patch)
tree38a344f010f98cff3e030ede53188f50d95b14b2 /src/guile
parent043a30d0b061cc6571d6e582ce403ee7fbcfcdee (diff)
downloadskribilo-9e33c564d4bf526239c04d2de1f37bc0aaf92e5e.tar.gz
skribilo-9e33c564d4bf526239c04d2de1f37bc0aaf92e5e.tar.lz
skribilo-9e33c564d4bf526239c04d2de1f37bc0aaf92e5e.zip
html-navtabs: Permit disabling of CSS output.
* src/guile/skribilo/package/html-navtabs.scm (&html-header-style): Check whether `html-navtabs-produce-css?' is set. git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-141
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/package/html-navtabs.scm24
1 files changed, 13 insertions, 11 deletions
diff --git a/src/guile/skribilo/package/html-navtabs.scm b/src/guile/skribilo/package/html-navtabs.scm
index 363e177..d50f456 100644
--- a/src/guile/skribilo/package/html-navtabs.scm
+++ b/src/guile/skribilo/package/html-navtabs.scm
@@ -295,17 +295,19 @@
:before (writer-before oldh)
:action (lambda (n e)
((writer-action oldh) n e)
- (for-each (lambda (m)
- (output (new markup
- (markup m)
- (parent n))
- e))
- '(&html-navtabs-css-title
- &html-navtabs-css-tabs
- &html-navtabs-css-bar
- &html-navtabs-css-active
- &html-navtabs-css-inactive
- &html-navtabs-css-margins)))
+ (let ((css? (engine-custom e 'html-navtabs-produce-css?)))
+ (if (or css? (unspecified? css?))
+ (for-each (lambda (m)
+ (output (new markup
+ (markup m)
+ (parent n))
+ e))
+ '(&html-navtabs-css-title
+ &html-navtabs-css-tabs
+ &html-navtabs-css-bar
+ &html-navtabs-css-active
+ &html-navtabs-css-inactive
+ &html-navtabs-css-margins)))))
:after (writer-after oldh))
(markup-writer '&html-document-title he :action &html-navtabs-generic-title)
(markup-writer '&html-chapter-title he :action &html-navtabs-generic-title)