From 7798aa91904957c15eb063b7fce983c4ae81cf0b Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 4 Mar 2021 14:09:40 -0500 Subject: [PATCH] Fix repo location in doom/help-packages --- core/autoload/help.el | 3 ++- core/core-packages.el | 6 +++--- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/core/autoload/help.el b/core/autoload/help.el index c0efa60b9..05d52dd14 100644 --- a/core/autoload/help.el +++ b/core/autoload/help.el @@ -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")) diff --git a/core/core-packages.el b/core/core-packages.el index e31b14650..92a8088df 100644 --- a/core/core-packages.el +++ b/core/core-packages.el @@ -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 ()