diff --git a/miscellaneous/suckless-conf/examples/templ.ss b/miscellaneous/suckless-conf/examples/templ.ss index bf3dddb1..9b9f315a 100644 --- a/miscellaneous/suckless-conf/examples/templ.ss +++ b/miscellaneous/suckless-conf/examples/templ.ss @@ -2,28 +2,42 @@ (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 body [kw] - [h h1 [kw] "jopa kita" ] - [h br] + [h :html [kw] - [h p [kw] [bold current time:] (now)] + [h :head [kw] ] - [h p [kw] - "МАМА МЫЛА РАМУ А У ПАПЫ ЗАПОЙ" - [h a [kw href http://localhost:5000/] LOCALHOST ] + [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 ] + ] + + ] ] - ]