mirror of https://github.com/voidlizard/hbs2
30 lines
586 B
Scheme
30 lines
586 B
Scheme
|
||
(define h html)
|
||
(define (bold . co) [html b [kw] co])
|
||
(define (ul . co) [html :ul [kw] co] )
|
||
|
||
print
|
||
|
||
[h body [kw]
|
||
[h h1 [kw] "jopa kita" ]
|
||
[h br]
|
||
|
||
[h p [kw] [bold current time:] (now)]
|
||
|
||
[h p [kw]
|
||
"МАМА МЫЛА РАМУ А У ПАПЫ ЗАПОЙ"
|
||
[h a [kw href http://localhost:5000/] LOCALHOST ]
|
||
[h br]
|
||
|
||
Тут конечно надо все элементы пробивать пробелами,
|
||
и это легко сделать!
|
||
|
||
[ul
|
||
[map [fn 1 [html li [kw] [car _1] ] ] [grep NIX [env]]]
|
||
]
|
||
|
||
]
|
||
]
|
||
|
||
|