Ver código fonte

Add my-dired-git-ls-files

master
10sr 6 anos atrás
pai
commit
fc5c75a630
Acessado por: 10sr ID da chave GPG: 7BEC428194130EB2
1 arquivos alterados com 8 adições e 2 exclusões
  1. +8
    -2
      emacs.el

+ 8
- 2
emacs.el Ver arquivo

@@ -1983,10 +1983,16 @@ use for the buffer. It defaults to \"*recetf-show*\"."
;; It works!
;; (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."
(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:
;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)


Carregando…
Cancelar
Salvar