mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 02:30:42 -08:00
19 lines
1.1 KiB
Common Lisp
19 lines
1.1 KiB
Common Lisp
(in-package "CLOG-TOOLS")
|
|
(defclass thread-list (clog:clog-panel)
|
|
( (w3-table-1 :reader w3-table-1)
|
|
))
|
|
(defun create-thread-list (clog-obj &key (hidden nil) (class nil) (html-id nil) (auto-place t))
|
|
(let ((panel (change-class (clog:create-div clog-obj :content "<table class=\"w3-table w3-striped w3-border w3-bordered w3-hoverable w3-small\" style=\"box-sizing: content-box; position: static; inset: 0px 0px 0px 1px; width: 100%; height: 100%;\" id=\"CLOGB3867860624\" data-clog-name=\"w3-table-1\"></table>"
|
|
:hidden hidden :class class :html-id html-id :auto-place auto-place) 'thread-list)))
|
|
(setf (slot-value panel 'w3-table-1) (attach-as-child clog-obj "CLOGB3867860624" :clog-type 'CLOG:CLOG-TABLE :new-id t))
|
|
(let ((target (w3-table-1 panel))) (declare (ignorable target)) (loop
|
|
(let ((threads (swank:list-threads)))
|
|
(dolist (thread threads)
|
|
(let ((tr (create-table-row target)))
|
|
(create-table-column tr :content (second thread))
|
|
(create-table-column tr :content (third thread)))))
|
|
(sleep 1)
|
|
(setf (inner-html target) "")
|
|
(unless (visiblep target)
|
|
(return))))
|
|
panel))
|