diff --git a/emacs.el b/emacs.el index e379a3e..029c440 100644 --- a/emacs.el +++ b/emacs.el @@ -1253,7 +1253,7 @@ THEM are function and its args." "bfs -type d 2>/dev/null" "fd --hidden --no-ignore --type directory") :directory (expand-file-name "~"))) -(define-key ctl-x-map "d" 'my-fuzzy-finder-dired) +(define-key ctl-x-map (kbd "C-d") 'my-fuzzy-finder-dired) ;; (set-variable 'fuzzy-finder-default-command "selecta") ;; (set-variable 'fuzzy-finder-default-command "peco") @@ -2331,6 +2331,14 @@ ORIG-FUNC is the target function, and ARGS is the argument when it is called." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; dired +(defun dired-default-directory () + "Open dired `default-directory'." + (interactive) + (pop-to-buffer (dired-noselect default-directory))) + +(define-key ctl-x-map "d" 'dired-default-directory) + + (defun my-file-head (filename &optional n) "Return list of first N lines of file FILENAME." ;; TODO: Fix for janapese text