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

tools/prodigy: conform to new conventions

Browse source
This commit is contained in:
Henrik Lissner 2019-07-22 23:59:25 +02:00
parent 763262b2a3
commit 0ab14efce2
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 13 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

14
modules/tools/prodigy/autoload.el
View file

@ -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))))

14
modules/tools/prodigy/config.el
View file

@ -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))