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

correct use of asdf package names

Browse source
This commit is contained in:
David Botton 2024-03-18 20:42:17 -04:00
parent 46adb40636
commit 91ed486d8b
4 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

2
README.md vendored
View file

@ -72,7 +72,7 @@ git clone https://github.com/rabbibotton/clog-terminal.git
For now one, until fix integrated, should also clone a branch of fast-websockets
if using larger files in the builder:
https://github.com/rabbibotton/fast-websocket.git
git clone https://github.com/rabbibotton/fast-websocket.git
To update in the future go to the created directories and type:

2
tools/clog-builder-projects.lisp
View file

@ -105,7 +105,7 @@
(defun projects-populate (panel)
(let ((app (connection-data-item panel "builder-app-data"))
(already (asdf/operate:already-loaded-systems))
(already (asdf:already-loaded-systems))
(sel (text-value (project-list panel))))
(reset-control-pallete panel)
(setf (inner-html (runtime-list panel)) "")

10
tools/panel-projects.lisp
View file

@ -199,8 +199,8 @@
(declare (ignorable target))
(let ((sel (text-value (project-list panel))))
(on-open-file panel :open-file
(asdf/system:system-source-file
(asdf/system:find-system sel))))))
(asdf:system-source-file
(asdf:find-system sel))))))
(clog:set-on-change (entry-point panel)
(lambda (target)
(declare (ignorable target))
@ -218,7 +218,7 @@
(declare (ignorable target))
(let ((sel (text-value (project-list panel))))
(unless (equal sel "None")
(asdf/system-registry:clear-system sel)
(asdf:clear-system sel)
(setf (text-value (project-list panel)) "None")
(projects-populate panel)))))
(clog:set-on-click (reload-project-button panel)
@ -226,7 +226,7 @@
(declare (ignorable target))
(let ((sel (text-value (project-list panel))))
(unless (equal sel "None")
(asdf/system-registry:clear-system sel)
(asdf:clear-system sel)
(projects-populate panel)))))
(clog:set-on-click (rerender-button panel)
(lambda (target)
@ -323,4 +323,4 @@
(declare (ignorable target))
(let ((sys (text-value (project-list panel))))
(projects-add-plugin panel sys))))
panel))
panel))

12
tools/panel-systems.lisp
View file

@ -103,18 +103,18 @@
(setf (inner-html (files panel)) "")
(dolist
(n
(asdf/component:module-components
(asdf/component:find-component
(asdf/system:find-system
(asdf:module-components
(asdf:find-component
(asdf:find-system
(text-value
(loaded-systems panel)))
(subseq disp 0
(1- (length disp))))))
(let ((name
(asdf/component:component-relative-pathname
(asdf:component-relative-pathname
n))
(path
(asdf/component:component-pathname
(asdf:component-pathname
n)))
(add-select-option (files panel) path
name))))
@ -160,6 +160,6 @@
(lambda (target)
(declare (ignorable target))
(on-dir-win panel :dir
(asdf/system:system-source-directory
(asdf:system-source-directory
(text-value (loaded-systems panel))))))
panel))