emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix doom-fetch & remove --depth 1

Browse source
This commit is contained in:
Henrik Lissner 2017-12-23 01:47:27 -05:00
parent d57d0d9305
commit ebd82024e5
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
core/autoload/system.el
View file

@ -48,8 +48,8 @@ is given, returns t if it matches the current system, and nil otherwise."
Requires the corresponding client, e.g. git for git repos, hg for mercurial, Requires the corresponding client, e.g. git for git repos, hg for mercurial,
etc." etc."
(let* ((command (pcase fetcher (let* ((command (pcase fetcher
(:github "git clone --depth 1 --recursive https://github.com/%s.git") (:github "git clone --recursive https://github.com/%s.git")
(:git "git clone --depth 1 --recursive %s") (:git "git clone --recursive %s")
(:gist "git clone https://gist.github.com/%s.git") (:gist "git clone https://gist.github.com/%s.git")
;; TODO Add hg ;; TODO Add hg
(_ (error "%s is not a valid fetcher" fetcher)))) (_ (error "%s is not a valid fetcher" fetcher))))
@ -61,8 +61,8 @@ etc."
(error "%s couldn't be found" command)) (error "%s couldn't be found" command))
(unless (file-directory-p dest) (unless (file-directory-p dest)
(funcall (if noninteractive (funcall (if noninteractive
(lambda (&rest args) (princ (shell-command-to-string args))) (lambda (c) (princ (shell-command-to-string c)))
#'async-shell-command) #'async-shell-command)
(format "%s %s %s" bin args (shell-quote-argument dest))) (format "%s %s %s" bin args (shell-quote-argument dest)))
(message! "Cloning %s -> %s" location dest)))) (message! "Cloning %s -> %s" location (file-relative-name dest)))))