mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-24 11:00:41 -08:00
Code Issues Projects Releases Wiki Activity

asdf system browser - done

Browse source
This commit is contained in:
David Botton 2022-07-31 01:43:01 -04:00
parent afea47a06c
commit b68d7663cc
3 changed files with 79 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

43
tools/systems.lisp
View file

@ -10,30 +10,30 @@
(let ((panel
(change-class
(clog:create-div clog-obj :content
"<label for=\"CLOGB38680930412\" style=\"box-sizing: content-box; position: absolute; left: 10px; top: 7.99716px;\" id=\"CLOGB3868120991\" data-clog-name=\"sys-label\">Loaded Systems:</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 10px; top: 38px; width: 239.716px; height: 261.341px;\" id=\"CLOGB3868120992\" data-clog-name=\"loaded-systems\"></select><label for=\"CLOGB38680988074\" style=\"box-sizing: content-box; position: absolute; left: 265px; top: 8px;\" class=\"\" id=\"CLOGB3868120993\" data-clog-name=\"deps-label\">Depends On:</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 265px; top: 39.9858px; width: 310.361px; height: 76.3494px;\" id=\"CLOGB3868120994\" data-clog-name=\"deps\"></select><label for=\"\" style=\"box-sizing: content-box; position: absolute; left: 265px; top: 126px; width: 98.108px; height: 21.5px;\" id=\"CLOGB3868120995\" data-clog-name=\"files-label\">Files:</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 265px; top: 151.991px; width: 311.562px; height: 146.932px;\" id=\"CLOGB3868120996\" data-clog-name=\"files\"></select><input type=\"TEXT\" value=\"\" style=\"box-sizing: content-box; position: absolute; left: 10px; top: 309.996px; width: 560.727px; height: 22.5px;\" id=\"CLOGB3868120997\" data-clog-name=\"source-file\">"
"<label for=\"CLOGB38680930412\" style=\"box-sizing: content-box; position: absolute; left: 10px; top: 7.99716px;\" id=\"CLOGB3868233956\" data-clog-name=\"sys-label\">Loaded Systems:</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 10px; top: 38px; width: 239.716px; height: 261.341px;\" id=\"CLOGB3868233957\" data-clog-name=\"loaded-systems\"></select><label for=\"CLOGB38680988074\" style=\"box-sizing: content-box; position: absolute; left: 265px; top: 8px;\" class=\"\" id=\"CLOGB3868233958\" data-clog-name=\"deps-label\">Depends On:</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 265px; top: 39.9858px; width: 310.361px; height: 76.3494px;\" id=\"CLOGB3868233959\" data-clog-name=\"deps\"></select><label for=\"\" style=\"box-sizing: content-box; position: absolute; left: 265px; top: 126px; width: 98.108px; height: 21.5px;\" id=\"CLOGB3868233960\" data-clog-name=\"files-label\">Files:</label><select size=\"4\" style=\"box-sizing: content-box; position: absolute; left: 265px; top: 151.991px; width: 311.562px; height: 146.932px;\" id=\"CLOGB3868233961\" data-clog-name=\"files\"></select><input type=\"TEXT\" value=\"\" style=\"box-sizing: content-box; position: absolute; left: 10px; top: 309.996px; width: 560.727px; height: 22.5px;\" id=\"CLOGB3868233962\" data-clog-name=\"source-file\">"
:hidden hidden :class class :html-id html-id
:auto-place auto-place)
'asdf-systems)))
(setf (slot-value panel 'source-file)
(attach-as-child clog-obj "CLOGB3868120997" :clog-type
(attach-as-child clog-obj "CLOGB3868233962" :clog-type
'clog:clog-form-element :new-id t))
(setf (slot-value panel 'files)
(attach-as-child clog-obj "CLOGB3868120996" :clog-type
(attach-as-child clog-obj "CLOGB3868233961" :clog-type
'clog:clog-select :new-id t))
(setf (slot-value panel 'files-label)
(attach-as-child clog-obj "CLOGB3868120995" :clog-type
(attach-as-child clog-obj "CLOGB3868233960" :clog-type
'clog:clog-label :new-id t))
(setf (slot-value panel 'deps)
(attach-as-child clog-obj "CLOGB3868120994" :clog-type
(attach-as-child clog-obj "CLOGB3868233959" :clog-type
'clog:clog-select :new-id t))
(setf (slot-value panel 'deps-label)
(attach-as-child clog-obj "CLOGB3868120993" :clog-type
(attach-as-child clog-obj "CLOGB3868233958" :clog-type
'clog:clog-label :new-id t))
(setf (slot-value panel 'loaded-systems)
(attach-as-child clog-obj "CLOGB3868120992" :clog-type
(attach-as-child clog-obj "CLOGB3868233957" :clog-type
'clog:clog-select :new-id t))
(setf (slot-value panel 'sys-label)
(attach-as-child clog-obj "CLOGB3868120991" :clog-type
(attach-as-child clog-obj "CLOGB3868233956" :clog-type
'clog:clog-label :new-id t))
(let ((target (sys-label panel)))
(declare (ignorable target))
@ -64,4 +64,31 @@
(setf (text-value (loaded-systems panel))
(text-value target))
(asdf-browser-populate panel)))
(clog:set-on-double-click (files panel)
(lambda (target)
(declare (ignorable target))
(let ((disp (select-text target))
(item (text-value target)))
(cond
((equal (subseq item (1- (length item)))
"/")
(setf (inner-html (files panel)) "")
(dolist
(n
(asdf/component:module-components
(asdf/component:find-component
(asdf/system:find-system
(text-value
(loaded-systems panel)))
(subseq disp 0
(1- (length disp))))))
(let ((name
(asdf/component:component-relative-pathname
n))
(path
(asdf/component:component-pathname
n)))
(add-select-option (files panel) path
name))))
(t (on-open-file panel :open-file item))))))
panel))