diff options
| author | Ludovic Courtès | 2012-04-25 15:48:56 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2012-04-25 15:48:56 +0200 |
| commit | 75e8fc92c066e0651278527802ecdc9ef979f319 (patch) | |
| tree | fec933dfd8b0b72d971a586126cbf2cee48d3536 | |
| parent | c4a27fe3b32ac00da6378477b62cbf82b4ff18d4 (diff) | |
| download | skribilo-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.scm | 9 |
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"))) |