09cb4f6716
Now that we are loading package autoloads files (as part of the generated doom-package-autoload-file when running make autoloads), many :commands properties are redundant. In fact, many def-package! blocks are redundant. In some cases, we can do without a config.el file entirely, and can move into the autoloads file or rely entirely on package autoloads. Also, many settings have been moved in their module's autoloads files, which makes them available ASAP; their use no longer depends on module load order. This gained me a modest ~10% boost in startup speed.
54 lines
1.8 KiB
EmacsLisp
54 lines
1.8 KiB
EmacsLisp
;;; tools/prodigy/autoload.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload
|
|
(def-setting! :service (&rest plist)
|
|
"TODO"
|
|
`(after! prodigy
|
|
(prodigy-define-service ,@plist)))
|
|
|
|
;;;###autoload
|
|
(defun +prodigy/create ()
|
|
"Interactively create a new prodigy service."
|
|
(interactive)
|
|
;; TODO
|
|
)
|
|
|
|
;;;###autoload
|
|
(defun +prodigy/delete (arg)
|
|
"Delete service at point. Asks for confirmation."
|
|
(interactive "P")
|
|
(prodigy-with-refresh
|
|
(when-let* ((service (prodigy-service-at-pos)))
|
|
(let ((name (plist-get service :name)))
|
|
(cond ((or arg
|
|
(y-or-n-p (format "Delete '%s' service?" name)))
|
|
(setq prodigy-services (delete service prodigy-services))
|
|
(ignore-errors
|
|
(prodigy-goto-next-line))
|
|
(message "Successfully deleted service: %s" name))
|
|
(t
|
|
(message "Aborted")))))))
|
|
|
|
;;;###autoload
|
|
(defun +prodigy/cleanup ()
|
|
"Delete all services associated with projects that don't exist."
|
|
(interactive)
|
|
(cl-loop for service in prodigy-services
|
|
if (and (plist-member service :project)
|
|
(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 (doom-project-root)))
|
|
(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))))
|