diff --git a/modules/tools/prodigy/autoload.el b/modules/tools/prodigy/autoload.el index e0517419f..5f97c8db9 100644 --- a/modules/tools/prodigy/autoload.el +++ b/modules/tools/prodigy/autoload.el @@ -32,17 +32,3 @@ (file-directory-p (plist-get service :project))) collect service into services finally do (setq prodigy-service services))) - -;;;###autoload -(defun +prodigy*services (orig-fn &rest args) - "Adds a new :project property to prodigy services, which hides the service -unless invoked from the relevant project." - (let ((project-root (downcase (or (doom-project-root) default-directory))) - (services (apply orig-fn args))) - (if current-prefix-arg - services - (cl-remove-if-not (lambda (service) - (let ((project (plist-get service :project))) - (or (not project) - (file-in-directory-p project-root project)))) - services)))) diff --git a/modules/tools/prodigy/config.el b/modules/tools/prodigy/config.el index a9441375a..60ccf400d 100644 --- a/modules/tools/prodigy/config.el +++ b/modules/tools/prodigy/config.el @@ -3,7 +3,19 @@ (after! prodigy (set-evil-initial-state! 'prodigy-mode 'emacs) - (advice-add #'prodigy-services :around #'+prodigy*services) + (def-advice! +prodigy-services-a (orig-fn &rest args) + "Adds a new :project property to prodigy services, which hides the service +unless invoked from the relevant project." + :around #'prodigy-services + (let ((project-root (downcase (or (doom-project-root) default-directory))) + (services (apply orig-fn args))) + (if current-prefix-arg + services + (cl-remove-if-not (lambda (service) + (let ((project (plist-get service :project))) + (or (not project) + (file-in-directory-p project-root project)))) + services)))) (define-key prodigy-mode-map "d" #'+prodigy/delete))