Re: Simple useful function

[Andrea Crotti <andrea.crotti.0@gmail.com>]

"Drew Adams" <drew.adams@oracle.com> writes:
>
> If you have an Emacs function that returns those file names (absolute or
> relative), then you can open a Dired buffer for just those files.
>
> You do that by calling `dired' with a cons arg: the list of file names.  If the
> files are not all in the same directory, then use absolute names.  For example:
>
>  (dired "My GIT Files" '("/my/first/file" "/my/2nd/file"...))
>
> `C-h f dired':

Very nice, I simply did something like:

--8<---------------cut here---------------start------------->8---
(defun open-git-files ()
  "Visit all the files in the current git project"
  (interactive)
  (dolist
      (file (ls-git-files))
    (message "Opening %s" file)
    ;; we have to keep the original position
    (save-excursion (find-file file))))

(defun dired-git-files ()
  (interactive)
  (dired (ls-git-files)))

(defun ls-git-files ()
  (if
      (file-exists-p ".git")
      (split-string (shell-command-to-string "git ls-files"))
    (message "not a git repo")))
--8<---------------cut here---------------end--------------->8---

Any improvement is welcome ;)
Does ls-git-files "returns" nil automatically if ".git" is not found?