Merge pull request #398 from infinae/main

Add DETACH-FROM-DOM method to CLOG-ELEMENT

source/clog-element-common.lisp

@@ -307,12 +307,12 @@ firefox and dialog does not work at all on IE."))
 ;;;;;;;;;;;;;;;;;
 
 (defgeneric show-dialog (clog-dialog &key modal)
-  (:documentation "Close dialog."))
+  (:documentation "Show dialog."))
 
 (defmethod show-dialog ((obj clog-dialog) &key (modal nil))
   (if modal
-      (jquery-execute obj (format nil "showModal()"))
-      (jquery-execute obj (format nil "show()"))))
+      (jquery-execute obj (format nil "get(0).showModal()"))
+      (jquery-execute obj (format nil "get(0).show()"))))
 
 ;;;;;;;;;;;;;;;;;;
 ;; close-dialog ;;
@@ -322,7 +322,7 @@ firefox and dialog does not work at all on IE."))
   (:documentation "Close dialog."))
 
 (defmethod close-dialog ((obj clog-dialog))
-  (jquery-execute obj (format nil "close()")))
+  (jquery-execute obj (format nil "get(0).close()")))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Implementation - clog-hr

source/clog-element.lisp

@@ -2354,6 +2354,16 @@ is not stored in connection-data will become subject to browser-gc requests."))
 (defmethod remove-from-dom ((obj clog-element))
   (jquery-execute obj "remove()"))
 
+;;;;;;;;;;;;;;;;;;;;;
+;; detach-from-dom ;;
+;;;;;;;;;;;;;;;;;;;;;
+
+(defgeneric detach-from-dom (clog-element)
+  (:documentation "Detach CLOG-Element from the DOM."))
+
+(defmethod detach-from-dom ((obj clog-element))
+  (jquery-execute obj "detach()"))
+
 ;;;;;;;;;;;;;;;;;;;;;;
 ;; remove-from-clog ;;
 ;;;;;;;;;;;;;;;;;;;;;;

tutorial/04-tutorial.lisp

@@ -17,6 +17,6 @@
                 'my-on-click))
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   (initialize 'on-new-window)
   (open-browser))

tutorial/05-tutorial.lisp

@@ -20,6 +20,6 @@
         (create-section body :h1 :content "I change")))
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   (initialize 'on-new-window)
   (open-browser))

tutorial/06-tutorial.lisp

@@ -31,6 +31,6 @@
                 'my-on-click))
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   (initialize 'on-new-window)
   (open-browser))

tutorial/07-tutorial.lisp

@@ -79,6 +79,6 @@
       (format t "Lost connection.~%~%~A" c))))
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   (initialize 'on-new-window)
   (open-browser))

tutorial/08-tutorial.lisp

@@ -84,6 +84,6 @@
     (set-on-pointer-down div3 'on-mouse-down :cancel-event t :capture-pointer t)))
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   (initialize 'on-new-window)
   (open-browser))

tutorial/09-tutorial.lisp

@@ -172,6 +172,6 @@
     (setf (editablep panel3) t))) ; turn panel 3 into an editable area
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   (initialize 'on-new-window)
   (open-browser))

tutorial/10-tutorial.lisp

@@ -33,6 +33,6 @@
     (put-image-data cx dat 30 200)))
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   (initialize 'on-new-window)
   (open-browser))

tutorial/12-tutorial.lisp

@@ -98,7 +98,7 @@
     content))
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   ;; Setup the default route / to on-main
   ;; :boot-function allows us to add or modify our boot-files content
   ;; for search engine optimization. We choose long-polling-first so

tutorial/14-tutorial.lisp

@@ -52,6 +52,6 @@ Changes made to a local key will fire an event and print below:<br>"
        (storage-element (window body) :session "my-session-key"))))
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   (initialize 'on-new-window)
   (open-browser))

tutorial/15-tutorial.lisp

@@ -28,6 +28,6 @@
     (set-on-time-update aud (lambda (obj)(declare (ignore obj))(setf (value alc) (media-position aud))))))
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   (initialize 'on-new-window)
   (open-browser))

tutorial/16-tutorial.lisp

@@ -72,7 +72,7 @@
     (declare (ignore l1) (ignore l2) (ignore l3) (ignore l4) (ignore jname))))
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   (initialize 'on-index)
   (set-on-new-window 'on-page2 :path "/page2")
   (open-browser))

tutorial/22-tutorial.lisp

@@ -266,6 +266,6 @@
                                         "")))
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   (initialize 'on-new-window)
   (open-browser))

tutorial/23-tutorial.lisp

@@ -50,6 +50,6 @@
                 :one-time t))
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   (initialize 'on-new-window)
   (open-browser))

tutorial/24-tutorial.lisp

@@ -102,6 +102,6 @@
                       (open-browser))")))
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   (initialize 'on-new-window)
   (open-browser))

tutorial/25-tutorial.lisp

@@ -64,6 +64,6 @@
                                      (set-height))))))
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   (initialize 'on-new-window)
   (open-browser))

tutorial/26-tutorial.lisp

@@ -96,7 +96,7 @@
     (setf (box-width image) "100%")))
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   ;; We would probably set :host to my IP and :port 80 here if running a live site
   (initialize 'on-new-window)
   ;; In real life, if we openning a browser here it would likely be

tutorial/27-tutorial.lisp

@@ -52,5 +52,6 @@
     (center-children (bottom-panel console) :horizontal nil)))
 
 (defun start-tutorial ()
+  "Start tutorial."
   (initialize 'on-new-window)
   (open-browser))

tutorial/29-tutorial.lisp

@@ -62,5 +62,6 @@
               (return))))))
 
 (defun start-tutorial ()
+  "Start tutorial."
   (initialize 'on-new-window)
   (open-browser))

tutorial/30-tutorial.lisp

@@ -61,6 +61,7 @@
 
 ;; Start the webserver
 (defun start-tutorial ()
+  "Start tutorial."
   ;; Initialize CLOG and the / url path (since / in our menu could just be nil)
   (initialize 'on-main
               ;; Use long polling technique so pages are crawled by google

tutorial/31-tutorial.lisp

@@ -33,6 +33,7 @@
   "Setup website menu")
 
 (defun start-tutorial ()
+  "Start tutorial."
   ;; Setup authorizations between roles and actions
   (add-authorization '(:guest) '(:login :signup :main))
   (add-authorization '(:member) '(:logout :main))

tutorial/32-tutorial.lisp

@@ -42,6 +42,7 @@
   "Setup website menu")
 
 (defun start-tutorial ()
+  "Start tutorial."
   ;; Here we add authorizations for content and editting content, not just
   ;; access to pages.
   (add-authorization '(:guest :member) '(:content-show-comments))

tutorial/33-tutorial.lisp

@@ -12,7 +12,6 @@
   (:export start-tutorial))
 
 (in-package :clog-tut-33)
-
 (defun on-new-window (body)
   (setf (title (html-document body)) "Tutorial 33")
   (with-connection-cache (body)
@@ -172,6 +171,6 @@
                              (select-tab p3))))))))
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   (initialize 'on-new-window)
   (open-browser))

tutorial/34-tutorial.lisp

@@ -73,6 +73,6 @@ void main() {
     (draw-arrays gl :TRIANGLES 0 3)))
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   (initialize 'on-new-window)
   (open-browser))

tutorial/35-tutorial.lisp

@@ -182,6 +182,6 @@
       (draw-scene))))
 
 (defun start-tutorial ()
-  "Start turtorial."
+  "Start tutorial."
   (initialize 'on-new-window)
   (open-browser))