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

Support no-quicklisp asdf systems and OCICL

Browse source
This commit is contained in:
David Botton 2024-07-08 14:47:30 -04:00
parent eda76103cb
commit e189b51c87
9 changed files with 196 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

22
tools/clog-builder-project-tree.lisp
View file

@ -244,21 +244,21 @@
(setf (text-value load-btn) "working")
(setf (background-color load-btn) :yellow)
(handler-case
(progn
(progn
(projects-load (format nil "~A/tools" sel))
(update-static-root app))
(error ()
(projects-load sel)))
(setf (text-value load-btn) "loaded")
(setf (background-color load-btn) load-np)
(window-focus win))
(projects-load sel)))
(setf (text-value load-btn) "loaded")
(setf (background-color load-btn) load-np)
(window-focus win))
(on-change (obj)
(declare (ignore obj))
(setf (text tree) "")
(browser-gc tree)
(let* ((sel (value projects)))
(setf entry-point "")
(cond ((equal sel "")
(cond ((or (equal sel "") (equal sel "NIL"))
(setf (text-value load-btn) "no project")
(setf (advisory-title load-btn) "Choose project in drop down")
(setf (background-color load-btn) load-np)
@ -349,10 +349,12 @@
(setf (background-color load-btn) :load-np))))))))
(fill-projects ()
(setf (text projects) "")
(dolist (n (sort (projects-list-local-systems) #'string-lessp))
(add-select-option projects n n :selected (equalp n (current-project app)))
(when (equalp n (current-project app))
(on-change (current-project app))))
(let ((pl (projects-list-local-systems)))
(when pl
(dolist (n (sort pl #'string-lessp))
(add-select-option projects n n :selected (equalp n (current-project app)))
(when (equalp n (current-project app))
(on-change (current-project app))))))
(add-select-option projects "" "Select Project" :selected (not (current-project app)))))
(set-on-click load-btn (lambda (obj)
(declare (ignore obj))