mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

Update file headings and names

Browse source
This commit is contained in:
David Botton 2024-03-17 22:08:41 -04:00
parent 22d0fba55e
commit 6da8638712
54 changed files with 235 additions and 231 deletions
Download patch file Download diff file Expand all files Collapse all files

26
tools/panel-threads.lisp Normal file
View file

@ -0,0 +1,26 @@
(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=\"CLOGB3868051588\" 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 "CLOGB3868051588" :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))