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*))
(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))
@ -161,9 +160,6 @@
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)))