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

ocicl suppprt for other project use

Browse source
This commit is contained in:
David Botton 2024-07-09 15:51:48 -04:00
parent 16916cd7ff
commit 04d2a42d89
3 changed files with 29 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -25,13 +25,23 @@
(defun projects-list-local-systems ()
(if *no-quicklisp*
(last (pathname-directory (uiop:getcwd)))
(alexandria:flatten
(append
(mapcar (lambda (dir)
(mapcar (lambda (item)
(let ((sys (first (last (pathname-directory item)))))
(when (uiop:file-exists-p
(format nil "~A~A.asd"
item sys))
(pushnew item asdf:*central-registry* :test #'equalp)
sys)))
(uiop:subdirectories dir)))
(projects-local-directories))
(list *start-project*)))
(funcall (read-from-string "ql:list-local-systems"))))
(defun projects-local-directories ()
(if *no-quicklisp*
(symbol-value (read-from-string "asdf:*central-registry*"))
(symbol-value (read-from-string "ql:*local-project-directories*"))))
(symbol-value (read-from-string "ql:*local-project-directories*")))
(defun projects-setup (panel)
(let* ((app (connection-data-item panel "builder-app-data")))