mirror of https://github.com/voidlizard/hbs2
97 lines
2.2 KiB
Scheme
97 lines
2.2 KiB
Scheme
; это наш "сайт" -- poo.ss
|
||
|
||
; просто какой-то левый json
|
||
[define source [json:file miscellaneous/fuzzy-parse/nix/pkgs.json]]
|
||
|
||
(define (foo-page bar)
|
||
|
||
[html :html [kw]
|
||
[html :head [kw]
|
||
[html :title [kw] Suckless HTML Page]
|
||
[html :meta [kw :charset UTF-8]]
|
||
[html :style [kw]
|
||
[css body [kw font-family sans-serif margin-left 20px max-width 1024px]]
|
||
[css table [kw border-collapse collapse width auto]]
|
||
|
||
[css (list td th) [kw border [sym (unwords 1px solid #ccc)]
|
||
padding 8px
|
||
text-align left]]
|
||
|
||
[css th [kw background-color #f2f2f2 white-space nowrap]]
|
||
[css .che [kw margin-right 8px]]
|
||
]
|
||
]
|
||
|
||
[html :body [kw]
|
||
[html :h1 [kw] Super Cool HBS2 Suckless Script Example Page]
|
||
[html :h2 [kw] Built with Suckless Script]
|
||
|
||
[html :p [kw] This is an example page generated using hbs2.]
|
||
|
||
[html :p [kw] [html :a [kw href [concat ../../tree/ bar]] Referes to bar ] ]
|
||
|
||
[html :form [kw action # method POST]
|
||
[html :label [kw for cb1]
|
||
[html :input [kw :type checkbox name checkbox1 :id cb1 :class che]]
|
||
I agree with the terms
|
||
]
|
||
[html :br]
|
||
[html :input [kw :type text :name username :placeholder "Enter your name"]]
|
||
[html :br]
|
||
[html :input [kw :type submit :value Submit]]
|
||
]
|
||
|
||
[html :br]
|
||
|
||
[html :p [kw]
|
||
This text contains
|
||
|
||
[html :b [kw] bold]
|
||
|
||
chr:comma
|
||
|
||
[html :i [kw] italic]
|
||
|
||
:and
|
||
|
||
[html :u [kw] :underlined]
|
||
|
||
styles.
|
||
]
|
||
|
||
[html :br]
|
||
|
||
; Unicode test section
|
||
[html :p [kw] Russian: Привет, мир!]
|
||
[html :p [kw] Chinese: 你好，世界！]
|
||
[html :p [kw] Korean: 안녕하세요, 세계!]
|
||
|
||
[html :br]
|
||
|
||
[html :table [kw]
|
||
[html :thead [kw]
|
||
[html :tr [kw]
|
||
[html :th [kw] Package]
|
||
[html :th [kw] Version]
|
||
]
|
||
]
|
||
|
||
[html :tbody [kw]
|
||
[map [fn 1 [html :tr [kw] [html :th [kw] [car _1]]
|
||
[html :td [kw] [nth 1 _1]] ] ] source]
|
||
]
|
||
]
|
||
|
||
[html :br]
|
||
|
||
[html :p [kw]
|
||
For more information, visit
|
||
[html :a [kw href http://example.com] our website]
|
||
"."
|
||
]
|
||
]
|
||
]
|
||
|
||
)
|
||
|