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

(in-package :hu.dwim.presentation)

;;;;;;
;;; xy/layout

(def (component e) xy/layout (standard/layout contents/component)
  ((width :type number)
   (height :type number))
  (:documentation "A LAYOUT that positions CHILD-COMPONENTs to their specified X, Y coordinates within its own coordinate system."))

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

(def render-xhtml xy/layout
  (bind (((:read-only-slots width height) -self-))
    <div (:class "xy layout" :style `str("overflow: visible; width: " ,(integer-to-string width)
                                         "px; height: " ,(integer-to-string height) "px;"))
         ,(render-contents-for -self-)>))

;;;;;;
;;; parent-relative-position/layout

(def (component e) parent-relative-position/layout (standard/layout content/component)
  ((x :type number)
   (y :type number))
  (:documentation "A LAYOUT that positions its CONTENT to the specified X, Y coordinates within its parent's coordinate system."))

(def (macro e) parent-relative-position/layout ((&rest args &key &allow-other-keys) &body content)
  `(make-instance 'parent-relative-position/layout ,@args :content ,(the-only-element content)))

(def render-xhtml parent-relative-position/layout
  (bind (((:read-only-slots x y) -self-))
    <div (:class "parent-relative-position layout"
          :style `str("position: relative; top: " ,(integer-to-string x) "px; left: " ,(integer-to-string y) "px;"))
      ,(render-content-for -self-)>))