;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
;;;
;;; Copyright (c) 2009 by the authors.
;;;
;;; See LICENCE for details.

(in-package :hu.dwim.presentation)

;;;;;;
;;; table/layout

(def (component e) table/layout (standard/layout table/component rows/mixin)
  ()
  (:documentation "A LAYOUT that positions a SEQUENCE of ROWS in a TABLE. The CELLs are positioned in the corresponding COLUMNs based on their indices."))

(def (macro e) table/layout ((&rest args &key &allow-other-keys) &body rows)
  `(make-instance 'table/layout ,@args :rows (list ,@rows)))

(def render-xhtml table/layout
  <table (:class "table layout")
    <tbody ,(render-rows-for -self-)>>)