其实有很多现成的，比如hiccup：
(html
[:html {:title "demo"}
[:head] [:title]
[:body
[:table#tid1.css1.css2 {:style "width:100%"}
[:caption "table1"]
[:tbody
(for [[k v] {'m 0 'v 0 'e 0 'j 0}]
[:tr [:td {:nowrap 1} v] [:td k]]) ]]]])
【 在 vale (浅谷 - mind over mountain) 的大作中提到: 】
: 标 题: 用tcl写了个html生成工具
: 发信站: 水木社区 (Sun Jun 20 19:43:33 2021), 站内
:
: 需要动态的生成html，之前硬拼一堆tag实在太凌乱，于是写了个结构化的html生成类，现在清爽多了。
: 本身就是tcl代码，所以里面可以直接使用任意的语句，非常方便。
: 长这样：
: HTML <title> "Tcl HTML demo"
:
: HTML -html {
: <head> <title>
: <body> {
: <table> -class mb_table -style width:100% {
: <caption> "Moons of planets"
: <tbody> {
: <!--> a comment tag to mark the last parameter as a script block
: foreach {planet moons} {Mercury 0 Venus 0 Earth 1 Mars 2 Jupiter 53 Saturn 53 Uranus 27 Neptune 14} {
: <tr> {<td> - nowrap -align center {<b> $planet} ; <td> $moons}
: }
: }
: }
: }
: }
: --
:
: ※ 来源:·水木社区
http://m.mysmth.net·[FROM: 218.241.217.*]
--
修改:No1 FROM 106.121.181.*
FROM 106.121.181.*