icon.anubis
750 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
/*
* Created by PyramIDE.
* User: フランスのトトロ aka (David RENÉ)
* Date: 23/02/2017
* Time: 21:49
* © Calexium
*/
transmit calexium_lib/web/fonts/awesome.anubis
read calexium_lib/web/CXM_making_a_web_site.anubis
public type Icon:
no_icon,
font_awesome(
Font_Awesome fa
),
icon16(
String name
),
icon32(
String name
),
icon(
String name
)
.
public define HTML_Off_Form
to_HTML
(
Icon icon
)=
if icon is
{
no_icon then empty,
font_awesome(code) then to_HTML(code),
icon16(name) then todo "handle case 'icon16'",
icon32(name) then todo "handle case 'icon32'",
icon(name) then todo "handle case 'icon'"
}
.