dashboard.anubis 1.3 KB
/*
 * Created by PyramIDE.
 * User: フランスのトトロ 
 * Date: 10/04/2015
 * Time: 22:22
 * © David RENÉ
 */

read tools/basis.anubis

read xlib/web/common.anubis
read xlib/web/making_a_web_site.anubis

transmit css_helper.anubis

public type Dashboard_content:
  none,
  content(List(ChangeListItem) content, String title).
  
public define HTML
  dash_board
  (
    Dashboard_content left,
    Dashboard_content right
  )=
  table(class("container"),
        tr([ 
          td(class("module_col left_col"),
            if left is
            {
              none                  then empty,
              content(list, title)  then html_wave_box_wide(title, changelist_table(list))
            }
          ),
          td(class("module_col right_col"),
            if right is
            {
              none                  then empty,
              content(list, title)  then html_wave_box_wide(title, changelist_table(list))
            }
          )
        ]) // </tr>
  )
.
       
public define HTML
  dash_board
  (
    Dashboard_content content
  )=
  table(class("container"),
    tr( 
      td(class("module_col"),
        if content is
        {
          none                  then empty,
          content(list, title)  then html_wave_box_wide(title, changelist_table(list))
        }
  )))
.