From 9e33c564d4bf526239c04d2de1f37bc0aaf92e5e Mon Sep 17 00:00:00 2001
From: Ludovic Courtes
Date: Sun, 29 Jul 2007 10:29:53 +0000
Subject: 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
---
 ChangeLog                                   | 17 +++++++++++++++++
 src/guile/skribilo/package/html-navtabs.scm | 24 +++++++++++++-----------
 2 files changed, 30 insertions(+), 11 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 4e16d59..a5763e6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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)
-- 
cgit v1.2.3