mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

Style blocks

Browse source
This commit is contained in:
David Botton 2021-03-18 12:53:15 -04:00
parent 59e53980af
commit aeec52b6f2
6 changed files with 240 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tutorial/12-tutorial.lisp
View file

@ -24,6 +24,10 @@
(in-package :clog-user)
(defun on-main (body)
(let ((sb (create-style-block body)))
(add-style sb :element "a" '(("color" :orange)
("text-decoration" :none)))
(add-style sb :element "a:hover" '(("background-color" :gray))))
(create-div body :content
"We are in on-main<br><br>
<h1>Pick a link</h1>