summaryrefslogtreecommitdiff
path: root/src/guile/skribilo/engine/html4.scm
diff options
context:
space:
mode:
authorLudovic Court`es2005-09-30 15:19:48 +0000
committerLudovic Court`es2005-09-30 15:19:48 +0000
commitc2426b17c48c16c8b8de413053d7ae4fb9838023 (patch)
treeb200f6be109cf7421b06592a6620a00d2dbed965 /src/guile/skribilo/engine/html4.scm
parent914355d81a9134ae39b839828a9e8fe6b537bc5c (diff)
parent6269aa26309cf98d100d7580c09ccf63b504d0d8 (diff)
downloadskribilo-c2426b17c48c16c8b8de413053d7ae4fb9838023.tar.gz
skribilo-c2426b17c48c16c8b8de413053d7ae4fb9838023.tar.lz
skribilo-c2426b17c48c16c8b8de413053d7ae4fb9838023.zip
The first vaguely working version.
Patches applied: * lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-4 First real document produced! git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-8
Diffstat (limited to 'src/guile/skribilo/engine/html4.scm')
-rw-r--r--src/guile/skribilo/engine/html4.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/guile/skribilo/engine/html4.scm b/src/guile/skribilo/engine/html4.scm
index 614ca99..ddc7c73 100644
--- a/src/guile/skribilo/engine/html4.scm
+++ b/src/guile/skribilo/engine/html4.scm
@@ -123,14 +123,15 @@
((or (unspecified? sz) (not sz))
#f)
((and (number? sz) (or (inexact? sz) (negative? sz)))
- (format "~a%"
+ (format #f "~a%"
(+ 100
(* 20 (inexact->exact (truncate sz))))))
((number? sz)
sz)
(else
(skribe-error 'font
- (format "Illegal font size ~s" sz)
+ (format #f
+ "illegal font size ~s" sz)
n))))))
(display "<span ")
(html-class n)