diff --git a/clog-document.lisp b/clog-document.lisp index cce3ec5..25d9527 100644 --- a/clog-document.lisp +++ b/clog-document.lisp @@ -32,12 +32,12 @@ "Construct a new clog-document. (Private)" (make-instance 'clog-document :connection-id connection-id :html-id "document" - :document-element (make-instance 'clog-obj + :document-element (make-instance 'clog-element :connection-id connection-id - :html-id "head") - :head-element (make-instance 'clog-obj + :html-id "documentElement") + :head-element (make-instance 'clog-element :connection-id connection-id - :html-id "documentElement"))) + :html-id "head"))) ;;;;;;;;;;;;;;;;;;;;;; ;; document-element ;; ;;;;;;;;;;;;;;;;;;;;;; @@ -65,7 +65,7 @@ (defgeneric set-body (clog-document body) (:documentation "Set the body slot after creating the -clog-documentation object. (Private)")) +clog-document object. (Private)")) (defmethod set-body ((obj clog-document) body) (setf (slot-value obj 'body-element) body)) diff --git a/static-files/js/boot.js b/static-files/js/boot.js index d3a6fda..ec8a0b1 100644 --- a/static-files/js/boot.js +++ b/static-files/js/boot.js @@ -74,6 +74,8 @@ $( document ).ready(function() { var r = /[?&]?([^=]+)=([^&]*)/g; clog['body']=document.body; + clog['head']=document.head; + clog['documentElement']=document.documentElement; clog['window']=window; clog['navigator']=navigator; clog['document']=window.document; diff --git a/tutorial/13-tutorial/hello-clog/www/js/boot.js b/tutorial/13-tutorial/hello-clog/www/js/boot.js index d3a6fda..ec8a0b1 100644 --- a/tutorial/13-tutorial/hello-clog/www/js/boot.js +++ b/tutorial/13-tutorial/hello-clog/www/js/boot.js @@ -74,6 +74,8 @@ $( document ).ready(function() { var r = /[?&]?([^=]+)=([^&]*)/g; clog['body']=document.body; + clog['head']=document.head; + clog['documentElement']=document.documentElement; clog['window']=window; clog['navigator']=navigator; clog['document']=window.document;