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

Capability to open files and panels in new browser windows

Browse source
This commit is contained in:
David Botton 2024-03-07 13:24:15 -05:00
parent 14a4f3630d
commit 2a2ef18c11
7 changed files with 161 additions and 83 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -332,7 +332,7 @@
(pprint n s)))))
(projects-load system))
(defun open-projects-component (target system list)
(defun open-projects-component (target panel system list)
(let ((disp (select-text target))
(item (text-value target)))
(cond ((equal item "")
@ -348,6 +348,10 @@
(add-select-option list path name))))
((and (> (length item) 5)
(equal (subseq item (- (length item) 5)) ".clog"))
(on-new-builder-panel target :open-file item))
(if (checkedp (open-ext panel))
(on-new-builder-panel-ext target :open-file item)
(on-new-builder-panel target :open-file item)))
(t
(on-open-file target :open-file item)))))
(if (checkedp (open-ext panel))
(on-open-file-ext target :open-file item)
(on-open-file target :open-file item))))))