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/package | |
| 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/package')
| -rw-r--r-- | src/guile/skribilo/package/base.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/guile/skribilo/package/base.scm b/src/guile/skribilo/package/base.scm index a4443dc..8462e81 100644 --- a/src/guile/skribilo/package/base.scm +++ b/src/guile/skribilo/package/base.scm @@ -1,6 +1,6 @@ ;;; base.scm -- The base markup package of Skribe/Skribilo. ;;; -;;; Copyright 2005, 2006, 2007 Ludovic Courtès <ludo@gnu.org> +;;; Copyright 2005, 2006, 2007, 2008 Ludovic Courtès <ludo@gnu.org> ;;; Copyright 2003, 2004 Manuel Serrano ;;; ;;; @@ -697,7 +697,8 @@ (ident #f) (class #f) (&location #f) (border #f) (width #f) (frame 'none) (rules 'none) - (cellstyle 'collapse) (cellpadding #f) (cellspacing #f)) + (cellstyle 'collapse) (cellpadding #f) (cellspacing #f) + (rulecolor #f)) (let ((frame (cond ((string? frame) (string->symbol frame)) @@ -740,6 +741,9 @@ (options `((:frame ,frame) (:rules ,rules) (:cellstyle ,cellstyle) + ,@(if rulecolor + `((:rulecolor ,rulecolor)) + '()) ,@(the-options opts :ident :class))) (body (parse-list-of 'table 'tr (the-body opts)))))))) |