Move :feature services => :tools prodigy

modules/feature/services/autoload.el

@@ -1,34 +0,0 @@
-;;; feature/services/autoload.el -*- lexical-binding: t; -*-
-
-;;;###autoload
-(defun +services/create ()
-  "Interactively create a new prodigy service."
-  (interactive)
-  ;; TODO
-  )
-
-;;;###autoload
-(defun +services/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 +services/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)))

modules/feature/services/config.el

@@ -1,42 +0,0 @@
-;;; feature/services/config.el -*- lexical-binding: t; -*-
-
-(def-setting! :service (&rest plist)
-  "TODO"
-  `(after! prodigy
-     (prodigy-define-service ,@plist)))
-
-
-;;
-;; Plugins
-;;
-
-(def-package! prodigy
-  :commands (prodigy prodigy-view-mode prodigy-add-filter)
-  :config
-  (set! :evil-state 'prodigy-mode 'emacs)
-
-  ;; Make services, etc persistent between Emacs sessions
-  (doom-cache-persist
-   :prodigy '(prodigy-services prodigy-tags prodigy-filters))
-
-  (defun +services*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))))
-  (advice-add #'prodigy-services :around #'+services*prodigy-services)
-
-  ;; Keybindings
-  (map! :map prodigy-mode-map "d" #'+services/prodigy-delete)
-  (when (featurep! :feature evil)
-    (map! :map prodigy-mode-map
-          "j" #'prodigy-next
-          "k" #'prodigy-prev)))
-

modules/feature/services/packages.el

@@ -1,4 +0,0 @@
-;; -*- no-byte-compile: t; -*-
-;;; feature/services/packages.el
-
-(package! prodigy)