voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

templ.ss example mutated

This commit is contained in:
voidlizard 2025-02-02 17:37:58 +03:00
parent 0d10939e15
commit d0e8c6741d
1 changed files with 24 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
miscellaneous/suckless-conf/examples/templ.ss
View File

@ -2,28 +2,42 @@
(define h html) (define h html)
(define (bold . co) [html b [kw] co]) (define (bold . co) [html b [kw] co])
(define (ul . co) [html :ul [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 print
[h body [kw] [h :html [kw]
[h h1 [kw] "jopa kita" ]
[h br]
[h p [kw] [bold current time:] (now)] [h :head [kw] ]
[h p [kw] [h body [kw]
"МАМА МЫЛА РАМУ А У ПАПЫ ЗАПОЙ" [h h1 [kw] "jopa kita" ]
[h a [kw href http://localhost:5000/] LOCALHOST ]
[h br] [h br]
Тут конечно надо все элементы пробивать пробелами, [h p [kw] [bold current time:] (now)]
и это легко сделать!
[h p [kw]
"МАМА МЫЛА РАМУ А У ПАПЫ ЗАПОЙ"
[h a [kw href http://localhost:5000/] LOCALHOST ]
[h br]
Тут конечно надо все элементы пробивать пробелами,
и это легко сделать!
]
[ul [ul
[map [fn 1 [html li [kw] [car _1] ] ] [grep NIX [env]]] [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 ]
]
]
] ]
]