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

remove dir search from file menu

Browse source
This commit is contained in:
David Botton 2024-07-07 16:02:59 -04:00
parent 1b304b8672
commit ea0d495c5a
1 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -148,7 +148,6 @@
(opt (create-div menu :content "Open new tab" :class *builder-menu-context-item-class*)) (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*)) (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*)) (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*)) (ren (create-div menu :content "Rename" :class *builder-menu-context-item-class*))
(del (create-div menu :content "Delete" :class *builder-menu-context-item-class*))) (del (create-div menu :content "Delete" :class *builder-menu-context-item-class*)))
(declare (ignore title op)) (declare (ignore title op))
@ -161,9 +160,6 @@
obj)) obj))
:cancel-event t)) :cancel-event t))
*file-extensions*) *file-extensions*)
(set-on-click grp (lambda (i)
(declare (ignore i))
(on-file-search obj :dir item)))
(set-on-click menu (lambda (i) (set-on-click menu (lambda (i)
(declare (ignore i)) (declare (ignore i))
(destroy menu))) (destroy menu)))