css style id and class for builtin elements in hmacro

This commit is contained in:
Bo Yao 2018-07-28 11:07:49 -04:00
parent 4ef85ff0e0
commit 1b0fb3fb0b
6 changed files with 74 additions and 16 deletions

View file

@ -371,6 +371,22 @@
</div>"
(element-string
(h (duck :id 5 :color "blue"
(img :href "duck.png"))))))))
(img :href "duck.png"))))))
(is (string=
"<div class=\"class1 class2\" id=\"has-id\">child</div>"
(element-string
(h (div#has-id.class1.class2 "child")))))
(is (string=
"<div class=\"class1 class2\" id=\"has-id\" onclick=\"func()\">child</div>"
(element-string
(h (div#has-id.class1.class2 :onclick "func()" "child")))))
(is (string=
"<div class=\"class1 class2\" id=\"has-id\" onclick=\"func()\">child</div>"
(element-string
(h (div#has-id.class1.class2 '(:onclick "func()") "child")))))
(is (string=
"<div id=\"has-id\" class=\"class1 class2 additional-class\">child</div>"
(element-string
(h (div.class1#has-id.class2 ':class "additional-class" "child")))))))
(run-all-tests)