Browse Source

Add my-dired-git-ls-files

master
10sr 6 years ago
parent
commit
fc5c75a630
Signed by: 10sr GPG Key ID: 7BEC428194130EB2
1 changed files with 8 additions and 2 deletions
  1. +8
    -2
      emacs.el

+ 8
- 2
emacs.el View File

@@ -1983,10 +1983,16 @@ use for the buffer. It defaults to \"*recetf-show*\"."
;; It works! ;; It works!
;; (pop-to-buffer (dired-noselect '("." "shrc" "emacs.el"))) ;; (pop-to-buffer (dired-noselect '("." "shrc" "emacs.el")))


(defun my-dired-from-git-ls-files ()
(defun my-dired-git-ls-files ()
"Dired from git ls-files." "Dired from git ls-files."
(interactive) (interactive)
(dired "."))
(pop-to-buffer-same-window
(dired-noselect `(,default-directory
,@(split-string (shell-command-to-string "git ls-files -z")
"\0" t))
""))
)



;; Local Variables: ;; Local Variables:
;; flycheck-disabled-checkers: (emacs-lisp-checkdoc) ;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)


Loading…
Cancel
Save