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

Turorial 16

Browse source
This commit is contained in:
David Botton 2021-01-26 01:29:39 -05:00
parent 221ebadccf
commit a3daf45085
5 changed files with 68 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

16
clog-document.lisp
View file

@ -155,8 +155,20 @@ clog-document object. (Private)"))
(defmethod load-css ((obj clog-document) css-url)
(jquery-execute (head-element obj)
(format nil "append('<link rel=\"stylesheet\"
href=\"~A\" type=\"text/css\">')" (escape-string css-url))))
(format nil "append('<link rel=\"stylesheet\" href=\"~A\" type=\"text/css\">')"
(escape-string css-url))))
;;;;;;;;;;;;;;;;;
;; load-script ;;
;;;;;;;;;;;;;;;;;
(defgeneric load-script (clog-document script-url)
(:documentation "Load script from SCRIPT-URL."))
(defmethod load-script ((obj clog-document) script-url)
(jquery-execute (head-element obj)
(format nil "append('<script src=\"~A\">')"
(escape-string script-url))))
;;;;;;;;;
;; put ;;