mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-14 06:30:14 -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

3
source/clog-document.lisp
View file

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