mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-03 07:42:32 -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

15
tools/clog-builder-dir-tree.lisp
View file

@ -48,6 +48,7 @@
(opo (create-div menu :content "Open in os" :class *builder-menu-context-item-class*))
(opd (create-div menu :content "Open in new Tree" :class *builder-menu-context-item-class*))
(opr (create-div menu :content "Set as root" :class *builder-menu-context-item-class*))
(grp (create-div menu :content "Search directory" :class *builder-menu-context-item-class*))
(nwd (create-div menu :content "New subdirectory" :class *builder-menu-context-item-class*))
(ren (create-div menu :content "Rename directory" :class *builder-menu-context-item-class*))
(del (create-div menu :content "Delete directory" :class *builder-menu-context-item-class*)))
@ -61,6 +62,10 @@
obj))
:cancel-event t))
*file-extensions*)
(set-on-click grp (lambda (i)
(declare (ignore i))
(on-file-search obj :dir item))
:cancel-event t)
(set-on-click menu (lambda (i)
(declare (ignore i))
(destroy menu)))
@ -124,7 +129,7 @@
(dolist (item (sort (uiop:directory-files (directory-namestring dir))
(lambda (a b)
(if (equal (pathname-name a) (pathname-name b))
(string-lessp (format nil "~A" a) (format nil "~A" b))
(string-lessp (format nil "~A" a) (format nil "~A" b))
(string-lessp (format nil "~A" (pathname-name a))
(format nil "~A" (pathname-name b)))))))
(create-clog-tree-item (tree-root node)
@ -143,6 +148,7 @@
(opt (create-div menu :content "Open new tab" :class *builder-menu-context-item-class*))
(ope (create-div menu :content "Open emacs" :class *builder-menu-context-item-class*))
(opo (create-div menu :content "Open os default" :class *builder-menu-context-item-class*))
(grp (create-div menu :content "Search directory" :class *builder-menu-context-item-class*))
(ren (create-div menu :content "Rename" :class *builder-menu-context-item-class*))
(del (create-div menu :content "Delete" :class *builder-menu-context-item-class*)))
(declare (ignore title op))
@ -155,6 +161,9 @@
obj))
:cancel-event t))
*file-extensions*)
(set-on-click grp (lambda (i)
(declare (ignore i))
(on-file-search obj :dir item)))
(set-on-click menu (lambda (i)
(declare (ignore i))
(destroy menu)))
@ -200,8 +209,8 @@
(project-tree-select obj (format nil "~A" item)))
:content (file-namestring item))))
(on-change (obj)
(setf (text tree) "")
(browser-gc obj)
(declare (ignore obj))
(destroy-children tree)
(let* ((root (text-value root-dir))
(tname (truename root))
(dir (format nil "~A" (uiop:native-namestring (if tname