rebol [
Title: "Web Library"
]
pTag: func [text] [ join "<p>" [ text "</p>" ] ]
linkTag: func [href link] [
join {<a href="} [href {">} link "</a>"]
]
homeLink: func [] [ pTag linkTag "index.r" "Go home..." ]
listItem: func [item] [
switch to-string (type? item) [
"block" [
either (length? item) > 1 [
join (listItem item/1) (ulTag skip item 1)
] [
listItem item/1
]
]
"word" [ get item ]
"string" [ item ]
]
]
ulTag: func [ list ] [
join "<ul>" [(liTag list) "</ul>"]
]
liTag: func [ list ] [
either (length? list) > 1 [
join "<li>" [(listItem list/1) "</li>" (liTag skip list 1)]
] [
join "<li>" [(listItem list/1) "</li>"]
]
]
Comments
0 B
|👍
/👎
0 B
|👍
/👎