diff options
| author | Ludovic Courtès | 2008-03-06 17:13:13 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-03-06 17:13:13 +0100 |
| commit | 45d172a9a2dbf865de095df88bc9be79f96ad8c9 (patch) | |
| tree | 74c6c4bfe00f278be8df4a95f87ee6358347497a /src/guile/skribilo/engine/lout.scm | |
| parent | 270d306388ec76c81c515386ebf83c060c293d40 (diff) | |
| download | skribilo-45d172a9a2dbf865de095df88bc9be79f96ad8c9.tar.gz skribilo-45d172a9a2dbf865de095df88bc9be79f96ad8c9.tar.lz skribilo-45d172a9a2dbf865de095df88bc9be79f96ad8c9.zip | |
`base' package: Add `:rulecolor' option to `table'.
* NEWS, doc/user/colframe.skb, doc/user/table.skb: Update.
* src/guile/skribilo/engine/lout.scm (table): Support `:rulecolor'.
* src/guile/skribilo/package/base.scm (table): Support `:rulecolor'.
Diffstat (limited to 'src/guile/skribilo/engine/lout.scm')
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm index b924b2b..64e8634 100644 --- a/src/guile/skribilo/engine/lout.scm +++ b/src/guile/skribilo/engine/lout.scm @@ -2274,7 +2274,7 @@ ;* table ... */ ;*---------------------------------------------------------------------*/ (markup-writer 'table - :options '(:frame :rules :border :width :cellpadding) + :options '(:frame :rules :border :width :cellpadding :rulecolor) ;; XXX: `:cellstyle' `separate' and `:cellspacing' not supported ;; by Lout's @Tbl. :before (lambda (n e) @@ -2305,6 +2305,10 @@ (if (number? cp) (format #t " margin { ~ap }\n" (number->string cp))) + (let ((rule-color (markup-option n :rulecolor))) + (and rule-color + (format #t " rulecolor { ~a }~%" + (lout-color-specification rule-color)))) (display "{\n"))) |