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 | |
| 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
| -rw-r--r-- | ChangeLog | 17 | ||||
| -rw-r--r-- | src/guile/skribilo/package/html-navtabs.scm | 24 |
2 files changed, 30 insertions, 11 deletions
@@ -2,6 +2,23 @@ # arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2 # +2007-07-29 10:29:53 GMT Ludovic Courtes <ludo@gnu.org> patch-141 + + Summary: + html-navtabs: Permit disabling of CSS output. + Revision: + skribilo--devo--1.2--patch-141 + + * src/guile/skribilo/package/html-navtabs.scm (&html-header-style): + Check whether `html-navtabs-produce-css?' is set. + + modified files: + ChangeLog src/guile/skribilo/package/html-navtabs.scm + + new patches: + lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-125 + + 2007-07-29 10:29:16 GMT Ludovic Courtes <ludo@gnu.org> patch-140 Summary: 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) |