From 9a989a8327b7f874d536acf61c8bc567c8fa6128 Mon Sep 17 00:00:00 2001 From: 10sr <8.slashes@gmail.com> Date: Mon, 1 Oct 2018 16:24:27 +0900 Subject: [PATCH] Add dired-from-git-ls-files --- emacs.el | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/emacs.el b/emacs.el index f621ec9..0eee342 100644 --- a/emacs.el +++ b/emacs.el @@ -1608,8 +1608,8 @@ and search from projectile root (if projectile is available)." (safe-require-or-eval 'projectile) (projectile-project-p)) (projectile-with-default-dir (projectile-project-root) - (compilation-start command-args - 'grep-mode)) + (compilation-start command-args + 'grep-mode)) (compilation-start command-args 'grep-mode))) @@ -1626,8 +1626,8 @@ and search from projectile root (if projectile is available)." (error "My-Rgrep: Command for rgrep not found")))) (if (safe-require-or-eval 'projectile) (projectile-with-default-dir (projectile-project-root) - (compilation-start command-args - 'grep-mode)) + (compilation-start command-args + 'grep-mode)) (compilation-start command-args 'grep-mode)))) @@ -1983,16 +1983,20 @@ use for the buffer. It defaults to \"*recetf-show*\"." ;; It works! ;; (pop-to-buffer (dired-noselect '("." "shrc" "emacs.el"))) -(defun my-dired-git-ls-files () +(defun my-dired-git-ls-files (args) "Dired from git ls-files." - (interactive) + (interactive "sgit ls-files args: ") (pop-to-buffer-same-window (dired-noselect `(,default-directory - ,@(split-string (shell-command-to-string "git ls-files -z") + ,@(split-string (shell-command-to-string (concat "git ls-files -z " args)) "\0" t)) "")) ) +(define-key ctl-x-map (kbd "C-l") 'my-dired-git-ls-files) + +;; (define-minor-mode my-dired-glob-filter) + ;; Local Variables: ;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)