aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorArun Isaac2023-08-28 18:07:58 +0100
committerArun Isaac2023-08-29 17:08:46 +0100
commit09499acd48b979dd05ebb45d5ac024b14d30d8f1 (patch)
treea79ced7a09faf132d07a9d1879f889ca600f4c7d /src
parent05fe77afa44799bb5b5a21946bdcf2ea2ba1091d (diff)
downloadskribilo-09499acd48b979dd05ebb45d5ac024b14d30d8f1.tar.gz
skribilo-09499acd48b979dd05ebb45d5ac024b14d30d8f1.tar.lz
skribilo-09499acd48b979dd05ebb45d5ac024b14d30d8f1.zip
html: Implement flush without HTML tables.
* src/guile/skribilo/engine/html.scm (flush): Implement without HTML tables, using CSS only.
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/engine/html.scm48
1 files changed, 15 insertions, 33 deletions
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index 2c70ef8..01fb583 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -1683,39 +1683,21 @@ ignored, return #f."
;* flush ... */
;*---------------------------------------------------------------------*/
(markup-writer 'flush
- :options '(:side)
- :before (lambda (node engine)
- (case (markup-option node :side)
- ((center)
- (html-open 'center
- `((class . ,(markup-class node)))))
- ((left)
- (html-open 'p
- `((class . ,(markup-class node))
- (style . "text-align:left;"))))
- ((right)
- (html-open 'table
- `((width . "100%")
- (cellpadding . "0")
- (cellspacing . "0")
- (border . "0")))
- (html-open 'tr)
- (html-open 'td
- '((align . "right"))))
- (else
- (skribe-error 'flush
- "Invalid side"
- (markup-option node :side)))))
- :after (lambda (node engine)
- (case (markup-option node :side)
- ((center)
- (html-close 'center))
- ((right)
- (html-close 'td)
- (html-close 'tr)
- (html-close 'table))
- ((left)
- (html-close 'p)))))
+ :options '(:side)
+ :before (lambda (node engine)
+ (let ((text-align
+ (case (markup-option node :side)
+ ((left center right)
+ (symbol->string (markup-option node :side)))
+ (else
+ (skribe-error 'flush
+ "Invalid side"
+ (markup-option node :side))))))
+ (html-open 'span
+ `((class . ,(markup-class node))
+ (style . ,(style-declaration
+ `((text-align . ,text-align))))))))
+ :after "</span>\n")
;*---------------------------------------------------------------------*/
;* center ... */