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