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

Temporarily disable pinning #2373

Browse source 
I'm swamped today and tomorrow so this will have to do for now
This commit is contained in:
Henrik Lissner 2020-01-15 11:16:18 -05:00
parent 12ebc58f2e
commit 453e20534f
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/cli/packages.el
View file

@ -69,7 +69,7 @@ declaration) or dependency thereof that hasn't already been."
(straight--transaction-finalize) (straight--transaction-finalize)
(print! (start "Installing & building packages...")) (print! (start "Installing & building packages..."))
(print-group! (print-group!
(let ((versions-alist doom-pinned-packages) (let ((versions-alist nil) ; FIXME
(n 0)) (n 0))
(dolist (recipe (hash-table-values straight--recipe-cache)) (dolist (recipe (hash-table-values straight--recipe-cache))
(straight--with-plist recipe (straight--with-plist recipe
@ -78,10 +78,10 @@ declaration) or dependency thereof that hasn't already been."
(condition-case-unless-debug e (condition-case-unless-debug e
(and (straight-use-package (intern package)) (and (straight-use-package (intern package))
(not existed-p) (not existed-p)
(file-directory-p (straight--repos-dir package)) (file-directory-p (straight--repos-dir (or local-repo package)))
(if-let (commit (cdr (assoc (or local-repo package) versions-alist))) (if-let (commit (cdr (assoc (or local-repo package) versions-alist)))
(progn (progn
(print! "Checking out %s commit %s" (print! (start "Checking out %s commit %s")
package (substring commit 0 7)) package (substring commit 0 7))
(unless (straight-vc-commit-present-p recipe commit) (unless (straight-vc-commit-present-p recipe commit)
(straight-vc-fetch-from-remote recipe)) (straight-vc-fetch-from-remote recipe))
@ -136,7 +136,7 @@ declaration) or dependency thereof that hasn't already been."
(let ((straight--repos-dir (straight--repos-dir)) (let ((straight--repos-dir (straight--repos-dir))
(straight--packages-to-rebuild (make-hash-table :test #'equal)) (straight--packages-to-rebuild (make-hash-table :test #'equal))
(total (hash-table-count straight--repo-cache)) (total (hash-table-count straight--repo-cache))
(versions-alist doom-pinned-packages) (versions-alist nil) ; FIXME
(i 1) (i 1)
errors) errors)
;; TODO Log this somewhere? ;; TODO Log this somewhere?