diff options
| author | Ludovic Courtes | 2007-07-29 10:29:53 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2007-07-29 10:29:53 +0000 |
| commit | 9e33c564d4bf526239c04d2de1f37bc0aaf92e5e (patch) | |
| tree | 38a344f010f98cff3e030ede53188f50d95b14b2 /src | |
| parent | 043a30d0b061cc6571d6e582ce403ee7fbcfcdee (diff) | |
| download | skribilo-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')
| -rw-r--r-- | src/guile/skribilo/package/html-navtabs.scm | 24 |
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) |