aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorArun Isaac2023-08-28 22:11:54 +0100
committerArun Isaac2023-08-29 17:08:47 +0100
commite3db95da66da9c4c23d764e9fd3e830c3d76ab53 (patch)
tree8f472a9c7757112f68f7f3ab773eb42d36fc159a /src
parent97cfd1fd18efc1945cf5fe4fd1b12311ebac6c63 (diff)
downloadskribilo-e3db95da66da9c4c23d764e9fd3e830c3d76ab53.tar.gz
skribilo-e3db95da66da9c4c23d764e9fd3e830c3d76ab53.tar.lz
skribilo-e3db95da66da9c4c23d764e9fd3e830c3d76ab53.zip
html: Implement font using CSS.
The <font> tag is deprecated in HTML5. * src/guile/skribilo/engine/html.scm (font): Implement using CSS only.
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/engine/html.scm59
1 files changed, 33 insertions, 26 deletions
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index 0425cab..5072f4a 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -1646,34 +1646,41 @@ ignored, return #f."
(markup-writer 'font
:options '(:size :face)
:before (lambda (node engine)
- (let ((size (markup-option node :size))
- (face (markup-option node :face)))
- (when (and (number? size) (inexact? size))
- (let ((s (if (> size 0) 'big 'small))
- (d (if (> size 0) 1 -1)))
- (do ((i (inexact->exact size) (- i d)))
- ((= i 0))
- (html-open s))))
- (when (or (and (number? size) (exact? size)) face)
- (html-open 'font
- `((class . ,(markup-class node))
- (size . ,(and (number? size)
- (exact? size)
- (not (zero? size))
- size))
- (face . ,face))))))
- :after (lambda (node engine)
(let ((size (markup-option node :size))
(face (markup-option node :face)))
- (when (or (and (number? size) (exact? size) (not (= size 0)))
- face)
- (html-close 'font))
- (when (and (number? size) (inexact? size))
- (let ((s (if (> size 0) 'big 'small))
- (d (if (> size 0) 1 -1)))
- (do ((i (inexact->exact size) (- i d)))
- ((= i 0))
- (html-close s)))))))
+ ;; Set font face and size if absolute.
+ (html-open 'span
+ `((class . ,(markup-class node))
+ (style . ,(style-declaration
+ `((font-family . ,face)
+ (font-size . ,(and size
+ (positive? size)
+ (exact? size)
+ (string-append (number->string size)
+ "px"))))))))
+ ;; If size is relative, add a number of <span> tags
+ ;; with larger/smaller font-size styles.
+ (when (and size
+ (or (and (positive? size)
+ (inexact? size))
+ (negative? size)))
+ (for-each (lambda _
+ (html-open 'span
+ `((style . ,(style-declaration
+ `((font-size . ,(if (positive? size)
+ "larger"
+ "smaller"))))))))
+ (iota (abs (inexact->exact size)))))))
+ :after (lambda (node engine)
+ (let ((size (markup-option node :size)))
+ (when (and size
+ (or (and (positive? size)
+ (inexact? size))
+ (negative? size)))
+ (for-each (lambda _
+ (html-close 'span))
+ (iota (abs (inexact->exact size)))))
+ (html-close 'span))))
;*---------------------------------------------------------------------*/
;* flush ... */