Hoplon에 태그를 전환하는 방법

Question

나는 'H1'태그 '페이지'태그로 전환하려면 다음 코드와 함수가있는 경우 다음 hlisp에서 나중에

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