(defpackage #:test-clog
  (:use #:cl #:clog)
  (:export test))

(in-package :test-clog)

(defvar *last-obj*)
(defvar *last-win*)

(defun on-new-window (win)
  (log-console (window win) "Message!")
  (log-error (window win) "Error Log")
  (put-br (html-document win) "test 1 2 3")
  (setf *last-win* win)
  (let ((tmp))
    (clog-connection:put-line (clog::connection-id win) "<button id='myid'>In html</button>")
    (setf tmp (attach-as-child win "myid"))
    (setf (style tmp "background-color") "red")
    (setf (draggablep tmp) t)
    (when (draggablep tmp)
      (setf (property tmp "innerHTML") "<h2>I am draggable</h2>"))
    (setf tmp (create-child win "<button>test</botton>"))
    (set-on-click tmp (lambda (obj) (declare (ignore obj)) (alert (window win) "clicked")))
    (setf (box-sizing tmp) :border-box)
    (setf (width tmp) 300)
    (setf (height tmp) 50)
    (set-border (create-child win
                          (format nil "<H2>~A</H2>"
                                  (gethash "connection-id" (connection-data win))))
            "4px" :dotted "blue")
    (setf *last-obj* (create-child win "<button>********</button>"))
    (set-on-mouse-enter *last-obj*
                        (lambda (obj)
                          (declare (ignore obj))
                          (setf (property *last-obj* "innerHTML") "Inside")))
    (set-on-mouse-leave *last-obj*
                        (lambda (obj)
                          (declare (ignore obj))
                          (setf (property *last-obj* "innerHTML") "Outside")))
    (set-on-mouse-click *last-obj*
                        (lambda (obj data)
                          (declare (ignore obj))
                          (print data)))
    (set-on-mouse-move *last-obj*
                       (lambda (obj data)
                         (declare (ignore obj))
                         (format t "x=~A Y=~A~%" (getf data ':x) (getf data ':y))))
    (set-on-key-down win
                      (lambda (obj data)
                        (declare (ignore obj))
                        (print data)) :disable-default t)
    (create-div win :content "Hello World! p")
    (create-div win :content "Hello World! div")
    (create-br win)
    (create-span win :content "Hello World! span")
    (create-hr win)
    (create-a win :link "http://www.google.com" :content "Link" :target "new")
    (setf (title (html-document win)) "CLOG Test App")
    (print (title (html-document win)))
    (create-img win :url-src "https://common-lisp.net/static/imgs/lisplogo_flag2_128.png"
                    :alt-text "Lisp Flag")
    (setf (value (create-meter win)) 20)
    (setf (value (create-progress-bar win)) 10)

    (create-section win :h3 :content "a header")
    (create-phrase win :i :content "I am italic")

    (setf tmp (create-ordered-list win))
    (setf (list-kind tmp) :hebrew)
    (create-list-item tmp :content "list item 1")
    (create-list-item tmp :content "list item 2")
    (create-list-item tmp :content "list item 3")
    (setf (list-location tmp) :inside)

    (create-hr win)

    (let* ((tbl (create-table win))
           (cap (create-table-caption tbl :content "My Table"))
           (rw))
      (declare (ignore cap))

      (set-border tbl :thin :solid :black)

      (dotimes (y 10)
        (setf rw (create-table-row tbl))
        (dotimes (x 6)
          (create-table-column rw :content (format nil "~A X ~A" x y)))))
    ))

(defun test ()
  (print "Init connection")
  (initialize #'on-new-window :boot-file "/debug.html" :static-boot-js t)
  (print "Open browser")
  (open-browser))