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) (insert "\n" indent)
(package--print-help-section "Repo location") (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) (if (file-exists-p repo-dir)
(doom--help-insert-button (abbreviate-file-name repo-dir)) (doom--help-insert-button (abbreviate-file-name repo-dir))
(insert "n/a")) (insert "n/a"))

6
core/core-packages.el
View file

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