From 97cfd1fd18efc1945cf5fe4fd1b12311ebac6c63 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 28 Aug 2023 19:00:46 +0100
Subject: html: Implement chapter using CSS.
The <center> tag is deprecated in HTML5.
* src/guile/skribilo/engine/html.scm (chapter): Implement using CSS
only.
---
src/guile/skribilo/engine/html.scm | 34 ++++++++++++++++++----------------
1 file changed, 18 insertions(+), 16 deletions(-)
(limited to 'src')
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index 496f384..0425cab 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -1402,22 +1402,24 @@ ignored, return #f."
:before (lambda (node engine)
(let ((title (markup-option node :title))
(ident (markup-ident node)))
- (display "<!-- ")
- (output title html-title-engine)
- (display " -->\n")
- (html-open 'a
- `((name . ,(string-canonicalize ident))))
- (html-close 'a)
- (html-open 'center)
- (html-open 'h1
- `((class . ,(markup-class node))))
- (output (html-container-number node engine)
- engine)
- (display " ")
- (output (markup-option node :title)
- engine)
- (html-close 'h1)
- (html-close 'center))))
+ ;; chapter title in comments
+ (display "<!-- ")
+ (output title html-title-engine)
+ (display " -->\n")
+ ;; h1 wrapping chapter title
+ (html-open 'h1
+ `((class . ,(markup-class node))
+ (id . ,(string-canonicalize ident))
+ (style . ,(style-declaration
+ '((text-align . "center"))))))
+ ;; chapter number
+ (output (html-container-number node engine)
+ engine)
+ (display " ")
+ ;; chapter title
+ (output (markup-option node :title)
+ engine)
+ (html-close 'h1))))
;; This writer is invoked only for chapters rendered inside separate files!
(markup-writer 'chapter
--
cgit v1.2.3