mirror of https://github.com/voidlizard/hbs2
44 lines
871 B
Scheme
44 lines
871 B
Scheme
|
||
(define h html)
|
||
(define (bold . co) [html b [kw] co])
|
||
(define (ul . co) [html :ul [kw] co] )
|
||
(define (td . co) [html :td [kw] co] )
|
||
|
||
(define files
|
||
[sort-by [fn 1 [nth 8 _1]] [call:proc ls -la]]
|
||
)
|
||
|
||
print
|
||
|
||
[h :html [kw]
|
||
|
||
[h :head [kw] ]
|
||
|
||
[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]]]
|
||
]
|
||
|
||
[html :table [kw]
|
||
[map [fn 1 [html :tr [kw] [td [nth 4 _1]] [td [nth 8 _1]] ] ] files ]
|
||
]
|
||
|
||
]
|
||
]
|
||
|
||
|