awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases 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
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)))))