如何在Hoplon中切换标签

Question

如果我有以下代码和功能，可以从＆＃39; p＆＃39;标记为＆＃39; h1＆＃39;标记：

 (def switch-tag (cell p))

后来在hlisp

 ((cell= switch-tag) "Text goes here")

当我切换到h1标签时，似乎没有发生任何事情。

Answer 1

我一直无法用你的方式解决这个问题。这是一个解决方法：

(page "index.html")

(def key! (cell true))

(defelem my-elem [_ [child]]
         (cell= (if key! (h1 child) (p child))))

(html
    (body
        (button :click #(swap! key! not) "test")
        (my-elem "this is a test")))