/*
 * Created by PyramIDE.
 * User: フランスのトトロ aka (David RENÉ) 
 * Date: 23/02/2017
 * Time: 21:49
 * © David RENÉ
 */

transmit xlib/web/fonts/awesome.anubis
read xlib/web/making_a_web_site.anubis

public type Icon:
  no_icon,
  font_awesome(
    Font_Awesome fa
  ),
  icon16(
    String  name
  ),
  icon22(
    String  name
  ),  
  icon32(
    String  name
  ),
  icon(
    String  name
  )
.

public define HTML
  to_HTML
  (
    Icon  icon
  )=
  if icon is
  {
     no_icon             then empty, 
     font_awesome(code)  then to_HTML(code), 
     icon16(name)        then img("/icons/16x16/"+name+".png"),
     icon22(name)        then img("/icons/22x22/"+name+".png"),      
     icon32(name)        then img("/icons/32x32/"+name+".png"),
     icon(name)          then img("/icons/"+name+".png")
  }
.