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

restore underline to links not in title and menu in default theme

Browse source
This commit is contained in:
David Botton 2022-05-23 23:23:15 -04:00
parent b85c539cca
commit e4b5191fff
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-web.lisp
View file

@ -263,9 +263,11 @@ Use to set a link or on-click to set an on-click handler"))
(html-id nil))
(let ((span
(create-span (if link
(create-a obj :link link)
(create-a obj :class class :link link)
obj)
:content content :class class :html-id html-id)))
:content content
:class (unless link class)
:html-id html-id)))
(add-class span "w3-bar-item")
(add-class span "w3-button")
(set-on-click span on-click)