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

regex dir search

Browse source
This commit is contained in:
David Botton 2024-07-04 15:23:12 -04:00
parent ca417fc393
commit 0e306f6f12
9 changed files with 171 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -138,7 +138,8 @@
(op (create-div menu :content "Toggle open" :class *builder-menu-context-item-class*))
(opd (create-div menu :content "Open in dir tree" :class *builder-menu-context-item-class*))
(ops (create-div menu :content "Open in pseudo shell" :class *builder-menu-context-item-class*))
(opo (create-div menu :content "Open in os" :class *builder-menu-context-item-class*)))
(opo (create-div menu :content "Open in os" :class *builder-menu-context-item-class*))
(grp (create-div menu :content "Search directory" :class *builder-menu-context-item-class*)))
(declare (ignore title op))
(mapcar (lambda (file-extension)
(set-on-click (create-div menu :content (getf file-extension :name) :class *builder-menu-context-item-class*)
@ -152,6 +153,10 @@
(set-on-click menu (lambda (i)
(declare (ignore i))
(destroy menu)))
(set-on-click grp (lambda (i)
(declare (ignore i))
(on-file-search obj :dir item))
:cancel-event t)
(set-on-click opd (lambda (i)
(declare (ignore i))
(on-dir-tree obj :dir item))
@ -289,7 +294,8 @@
(ops (create-div menu :content "Open pseudo shell" :class *builder-menu-context-item-class*))
(opa (create-div menu :content "Open in ASDF browser" :class *builder-menu-context-item-class*))
(opr (create-div menu :content "Open REPL" :class *builder-menu-context-item-class*))
(opo (create-div menu :content "Open in os" :class *builder-menu-context-item-class*)))
(opo (create-div menu :content "Open in os" :class *builder-menu-context-item-class*))
(grp (create-div menu :content "Search directory" :class *builder-menu-context-item-class*)))
(declare (ignore title op))
(set-on-click menu (lambda (i)
(declare (ignore i))
@ -298,6 +304,10 @@
(declare (ignore i))
(on-dir-tree obj :dir item))
:cancel-event t)
(set-on-click grp (lambda (i)
(declare (ignore i))
(on-file-search obj :dir item))
:cancel-event t)
(set-on-click ops (lambda (i)
(declare (ignore i))
(on-shell obj :dir item))