mirror of https://github.com/voidlizard/hbs2
79 lines
1.9 KiB
Scheme
79 lines
1.9 KiB
Scheme
|
||
[define source [json:file miscellaneous/fuzzy-parse/nix/pkgs.json]]
|
||
|
||
; iterate println source
|
||
|
||
print
|
||
[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 40px]]
|
||
[css table [kw border-collapse "collapse width 100%"]]
|
||
|
||
[css (list td th) [kw border "1px solid #ccc"
|
||
padding 8px
|
||
text-align left]]
|
||
|
||
[css th [kw background-color #f2f2f2]]
|
||
[css .che [kw margin-right 8px]]
|
||
]
|
||
]
|
||
|
||
[html :body [kw]
|
||
[html :h1 [kw] "Пример страницы"]
|
||
[html :h2 [kw] "Сделано на Suckless Script"]
|
||
|
||
[html :p [kw] "Это пример страницы, созданной в `hbs2`."]
|
||
|
||
[html :form [kw action "#" method "POST"]
|
||
[html :label [kw for "cb1"]
|
||
[html :input [kw :type checkbox name :checkbox1 :id cb1 :class che]]
|
||
"Согласен с условиями"
|
||
]
|
||
[html :br]
|
||
[html :input [kw :type text :name username :placeholder "Введите имя"]]
|
||
[html :br]
|
||
[html :input [kw :type submit :value "Отправить"]]
|
||
]
|
||
|
||
[html :br]
|
||
|
||
[html :p [kw]
|
||
"Этот текст с "
|
||
[html :b [kw] "жирным"]
|
||
", "
|
||
[html :i [kw] "курсивом"]
|
||
" и "
|
||
[html :u [kw] "подчёркнутым"]
|
||
" стилями."
|
||
]
|
||
|
||
[html :br]
|
||
|
||
[html :table [kw]
|
||
[html :thead [kw]
|
||
[html :tr [kw]
|
||
[html [kw] :td]
|
||
[html [kw] :td]
|
||
]
|
||
]
|
||
|
||
[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]
|
||
Подробнее читайте на
|
||
[html :a [kw href "http://example.com"] нашем сайте]
|
||
"."
|
||
]
|
||
]
|
||
]
|
||
|