From 651e6ef01c0620834a02b61eef382a1943db32f7 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Mon, 31 Jul 2006 08:05:14 +0000
Subject: Made the HTML class naming more consistent.
* src/guile/skribilo/engine/html.scm: Made the default HTML class naming
more consistent. Replaced the `skribe-' prefix by `skribilo-'.
git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-36
---
src/guile/skribilo/engine/html.scm | 38 +++++++++++++++++++-------------------
1 file changed, 19 insertions(+), 19 deletions(-)
(limited to 'src/guile')
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index c290189..f035133 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -670,27 +670,27 @@
((and lm rm)
(let* ((ep (engine-custom e 'margin-padding))
(ac (if (number? ep) ep 0)))
- (printf "<table cellpadding=\"~a\" cellspacing=\"0\" width=\"100%\" class=\"skribe-margins\"><tr>\n" ac))
- (html-margin lm lmfn lms lmbg lmfg "skribe-left-margin")
- (html-margin body #f #f #f #f "skribe-body")
- (html-margin rm rmfn rms rmbg rmfg "skribe-right-margin")
+ (printf "<table cellpadding=\"~a\" cellspacing=\"0\" width=\"100%\" class=\"skribilo-margins\"><tr>\n" ac))
+ (html-margin lm lmfn lms lmbg lmfg "skribilo-left-margin")
+ (html-margin body #f #f #f #f "skribilo-body")
+ (html-margin rm rmfn rms rmbg rmfg "skribilo-right-margin")
(display "</tr></table>"))
(lm
(let* ((ep (engine-custom e 'margin-padding))
(ac (if (number? ep) ep 0)))
- (printf "<table cellpadding=\"~a\" cellspacing=\"0\" width=\"100%\" class=\"skribe-margins\"><tr>\n" ac))
- (html-margin lm lmfn lms lmbg lmfg "skribe-left-margin")
- (html-margin body #f #f #f #f "skribe-body")
+ (printf "<table cellpadding=\"~a\" cellspacing=\"0\" width=\"100%\" class=\"skribilo-margins\"><tr>\n" ac))
+ (html-margin lm lmfn lms lmbg lmfg "skribilo-left-margin")
+ (html-margin body #f #f #f #f "skribilo-body")
(display "</tr></table>"))
(rm
(let* ((ep (engine-custom e 'margin-padding))
(ac (if (number? ep) ep 0)))
- (printf "<table cellpadding=\"~a\" cellspacing=\"0\" width=\"100%\" class=\"skribe-margins\"><tr>\n"))
- (html-margin body #f #f #f #f "skribe-body")
- (html-margin rm rmfn rms rmbg rmfg "skribe-right-margin")
+ (printf "<table cellpadding=\"~a\" cellspacing=\"0\" width=\"100%\" class=\"skribilo-margins\"><tr>\n"))
+ (html-margin body #f #f #f #f "skribilo-body")
+ (html-margin rm rmfn rms rmbg rmfg "skribilo-right-margin")
(display "</tr></table>"))
(else
- (display "<div class=\"skribe-body\">\n")
+ (display "<div class=\"skribilo-body\">\n")
(output body e)
(display "</div>\n"))))))
@@ -844,7 +844,7 @@
;* &html-ending ... */
;*---------------------------------------------------------------------*/
(markup-writer '&html-ending
- :before "<div class=\"skribe-ending\">"
+ :before "<div class=\"skribilo-ending\">"
:action (lambda (n e)
(let ((body (markup-body n)))
(if body
@@ -875,7 +875,7 @@
(tfg (engine-custom e 'title-foreground))
(tfont (engine-custom e 'title-font)))
(when title
- (display "<table width=\"100%\" class=\"skribetitle\" cellspacing=\"0\" cellpadding=\"0\"><tbody>\n<tr>")
+ (display "<table width=\"100%\" class=\"skribilo-title\" cellspacing=\"0\" cellpadding=\"0\"><tbody>\n<tr>")
(if (html-color-spec? tbg)
(printf "<td align=\"center\"~A>"
(if (html-color-spec? tbg)
@@ -891,9 +891,9 @@
(output title e)
(display "</strong></font>"))
(begin
- (printf "<div class=\"skribetitle\"><strong><big><big><big>")
+ (printf "<div class=\"skribilo-title\"><strong><big>")
(output title e)
- (display "</big></big></big></strong></div>"))))
+ (display "</big></strong></div>"))))
(if (not authors)
(display "\n")
(html-title-authors authors e))
@@ -917,7 +917,7 @@
:before (lambda (n e)
(let ((footnotes (markup-body n)))
(when (pair? footnotes)
- (display "<div class=\"footnote\">")
+ (display "<div class=\"skribilo-footnote\">")
(display "<br><br>\n")
(display "<hr width='20%' size='2' align='left'>\n"))))
:action (lambda (n e)
@@ -1341,8 +1341,8 @@
(display (string-canonicalize ident))
(display "\"></a>\n")
(if c
- (printf "<div class=\"~a-atitle\">" c)
- (printf "<div class=\"skribe~atitle\">" (markup-markup n)))
+ (printf "<div class=\"~a-title\">" c)
+ (printf "<div class=\"skribilo-~a-title\">" (markup-markup n)))
(when (html-color-spec? tbg)
(display "<table width=\"100%\">")
(printf "<tr><td bgcolor=\"~a\">" tbg))
@@ -1935,7 +1935,7 @@
(f (html-file c e))
(class (if (markup-class n)
(markup-class n)
- "inbound")))
+ "skribilo-ref")))
(printf "<a href=\"~a#~a\" class=\"~a\""
(if (and (*destination-file*)
(string=? f (*destination-file*)))
--
cgit v1.2.3