82ae3a73f3
This commit does two things: - Renames def-advice! to defadvice!, in the spirit of naming convenience macros after the function/macro they enhance or replace. - Correct the names of advice functions to indicate visibility and intent. A public advice function like doom-set-jump-a is meant to be used elsewhere. A private one like +dired--cleanup-header-line-a shouldn't -- it likely won't work anywhere but the function(s) it was made to advise.
22 lines
856 B
EmacsLisp
22 lines
856 B
EmacsLisp
;;; tools/prodigy/config.el -*- lexical-binding: t; -*-
|
|
|
|
(after! prodigy
|
|
(set-evil-initial-state! 'prodigy-mode 'emacs)
|
|
|
|
(defadvice! +prodigy--add-project-property-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))
|
|
|