aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2012-04-25 15:48:56 +0200
committerLudovic Courtès2012-04-25 15:48:56 +0200
commit75e8fc92c066e0651278527802ecdc9ef979f319 (patch)
treefec933dfd8b0b72d971a586126cbf2cee48d3536
parentc4a27fe3b32ac00da6378477b62cbf82b4ff18d4 (diff)
downloadskribilo-75e8fc92c066e0651278527802ecdc9ef979f319.tar.gz
skribilo-75e8fc92c066e0651278527802ecdc9ef979f319.tar.lz
skribilo-75e8fc92c066e0651278527802ecdc9ef979f319.zip
lout: Fix support of `(font :size #f)'.
* src/guile/skribilo/engine/lout.scm (font): Output a single brace when `:size' is #f.
-rw-r--r--src/guile/skribilo/engine/lout.scm9
1 files changed, 6 insertions, 3 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index d10dbcf..93a7f5b 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -1,7 +1,8 @@
;;; lout.scm -- A Lout engine.
;;; -*- coding: iso-8859-1 -*-
;;;
-;;; Copyright 2004, 2005, 2006, 2007, 2008, 2009, 2010 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright 2004, 2005, 2006, 2007, 2008, 2009, 2010,
+;;; 2012 Ludovic Courtès <ludo@gnu.org>
;;;
;;;
;;; This program is free software; you can redistribute it and/or modify
@@ -1728,8 +1729,10 @@
(markup-writer 'font
:options '(:size :face)
:before (lambda (n e)
- (let ((ratio (lout-size-ratio (markup-option n :size))))
- (format #t "\n~af @Font ~avx @Break { " ratio ratio)))
+ (if (markup-option n :size)
+ (let ((ratio (lout-size-ratio (markup-option n :size))))
+ (format #t "\n~af @Font ~avx @Break { " ratio ratio))
+ (display "{")))
:after (lambda (n e)
(display " }\n")))