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

all for file extensions

Browse source
This commit is contained in:
David Botton 2024-06-05 16:21:33 -04:00
parent 7bb252d80e
commit a92d3b1402
4 changed files with 49 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
tools/clog-builder-api.lisp
View file

@ -40,6 +40,13 @@ replaced. (Exported)"
*inspectors*))
(push (list :name name :func func) *inspectors*))
(defun add-file-extension (name func)
"Add a custom file extension with NAME and (FUNC file dir project clog-obj)"
(setf *file-extensions* (remove-if (lambda (x)
(equalp name (getf x :name)))
*file-extensions*))
(push (list :name name :func func) *file-extensions*))
(defun reset-control-pallete (panel)
(let* ((app (connection-data-item panel "builder-app-data"))
(pallete (select-tool app)))
@ -48,4 +55,4 @@ replaced. (Exported)"
(dolist (control *supported-controls*)
(if (equal (getf control :name) "group")
(add-select-optgroup pallete (getf control :description))
(add-select-option pallete (getf control :name) (getf control :description)))))))
(add-select-option pallete (getf control :name) (getf control :description)))))))