Преглед на файлове

Add dired-from-git-ls-files

master
10sr преди 6 години
родител
ревизия
9a989a8327
Подписан от: 10sr GPG ключ ID: 7BEC428194130EB2
променени са 1 файла, в които са добавени 11 реда и са изтрити 7 реда
  1. +11
    -7
      emacs.el

+ 11
- 7
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)


Зареждане…
Отказ
Запис