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

and load-only-once to load-css

Browse source
This commit is contained in:
David Botton 2022-06-17 11:58:25 -04:00
parent e790776ad4
commit 11a8511f71
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
source/clog-document.lisp
View file

@ -161,8 +161,9 @@ returns css-url."))
(cond ((not (and load-only-once loaded))
(jquery-execute (head-element obj)
(format nil "append('<link rel=\"stylesheet\" href=\"~A\" type=\"text/css\">')"
(escape-string css-url))))
(setf (connection-data-item obj (format nil "clog-~A" css-url)) t)
(escape-string css-url)))
(setf (connection-data-item obj (format nil "clog-~A" css-url)) t)
css-url)
(t
t))))