Как переключать теги в Hoplon

Question

Если у меня есть следующий код и функция для переключения с тега 'p' на тег 'h1':

 (def switch-tag (cell p))

А потом в шлеп

 ((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")))