summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtes2007-07-29 10:29:53 +0000
committerLudovic Courtes2007-07-29 10:29:53 +0000
commit9e33c564d4bf526239c04d2de1f37bc0aaf92e5e (patch)
tree38a344f010f98cff3e030ede53188f50d95b14b2
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
-rw-r--r--ChangeLog17
-rw-r--r--src/guile/skribilo/package/html-navtabs.scm24
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)