From ea0d495c5ab5bb4e053489ccfc455bf65b47f2c4 Mon Sep 17 00:00:00 2001 From: David Botton Date: Sun, 7 Jul 2024 16:02:59 -0400 Subject: [PATCH] remove dir search from file menu --- tools/clog-builder-dir-tree.lisp | 4 ---- 1 file changed, 4 deletions(-) diff --git a/tools/clog-builder-dir-tree.lisp b/tools/clog-builder-dir-tree.lisp index 088de89..e5b8776 100644 --- a/tools/clog-builder-dir-tree.lisp +++ b/tools/clog-builder-dir-tree.lisp @@ -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)))