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

Fix repo location in doom/help-packages

Browse source
This commit is contained in:
Henrik Lissner 2021-03-04 14:09:40 -05:00
parent f8ed309b50
commit 7798aa9190
2 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
core/autoload/help.el
View file

@ -526,7 +526,8 @@ If prefix arg is present, refresh the cache."
(insert "\n" indent)
(package--print-help-section "Repo location")
(let ((repo-dir (straight--repos-dir (symbol-name package))))
(let* ((local-repo (doom-package-recipe-repo package))
(repo-dir (straight--repos-dir local-repo)))
(if (file-exists-p repo-dir)
(doom--help-insert-button (abbreviate-file-name repo-dir))
(insert "n/a"))

6
core/core-packages.el
View file

@ -274,7 +274,7 @@ processed."
(plist-put recipe :type 'git)
recipe))
(repo (if-let (local-repo (plist-get recipe :local-repo))
(file-name-nondirectory (directory-file-name local-repo))
(directory-file-name local-repo)
(ignore-errors (straight-vc-local-repo-name recipe)))))
repo
(symbol-name package)))
@ -420,8 +420,8 @@ ones."
(when (and (not ignore)
(not disable)
(or pin unpin))
(setf (alist-get (doom-package-recipe-repo name) alist
nil 'remove #'equal)
(setf (alist-get (file-name-nondirectory (doom-package-recipe-repo name))
alist nil 'remove #'equal)
(unless unpin pin)))))))
(defun doom-package-recipe-list ()