From 7695108723b345c68a2c890f5b2e6b5ae4382c99 Mon Sep 17 00:00:00 2001 From: Levi Date: Fri, 20 Sep 2024 11:05:24 +0200 Subject: [PATCH] dired open file in same window on click --- emacs/module/module-dired.el | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/emacs/module/module-dired.el b/emacs/module/module-dired.el index 1936422..73b6107 100644 --- a/emacs/module/module-dired.el +++ b/emacs/module/module-dired.el @@ -23,6 +23,25 @@ (if (file-directory-p filename) (copy-file filename target)))) +(defun my/dired-mouse-find-file (event) + "In Dired, visit the file or directory name you click on." + (interactive "e") + (let (window pos file) + (save-excursion + (setq window (posn-window (event-end event)) + pos (posn-point (event-end event))) + (if (not (windowp window)) + (error "No file chosen")) + (set-buffer (window-buffer window)) + (goto-char pos) + (setq file (dired-get-file-for-visit))) + (if (file-directory-p file) + (or (and (cdr dired-subdir-alist) + (dired-goto-subdir file)) + (dired file)) + (find-file file)))) + +(define-key dired-mode-map [mouse-2] 'my/dired-mouse-find-file) (global-set-key (kbd "") 'dired-sidebar-toggle-sidebar) (define-key dired-mode-map (kbd "C-c d") 'my/dired-duplicate-file)