Move :feature services => :tools prodigy

init.example.el

@@ -9,7 +9,6 @@
        (lookup           ; helps you navigate your code and documentation
         +devdocs         ; ...on devdocs.io online
         +docsets)        ; ...or in Dash docsets locally
-       services          ; TODO managing external services & code builders
        snippets          ; my elves. They type so I don't have to
        spellcheck        ; tasing you for misspelling mispelling
        (syntax-checker   ; tasing you for every semicolon you forget
@@ -56,6 +55,7 @@
       ;magit             ;
        password-store    ; password manager for nerds
        pdf               ; pdf enhancements
+       prodigy           ; Managing external services
       ;rgb               ; creating color strings
        rotate-text       ; cycle region at point between text candidates
        term              ; terminals in Emacs

modules/tools/prodigy/autoload.el

@@ -1,14 +1,14 @@
-;;; feature/services/autoload.el -*- lexical-binding: t; -*-
+;;; tools/prodigy/autoload.el -*- lexical-binding: t; -*-
 
 ;;;###autoload
-(defun +services/create ()
+(defun +prodigy/create ()
   "Interactively create a new prodigy service."
   (interactive)
   ;; TODO
   )
 
 ;;;###autoload
-(defun +services/prodigy-delete (arg)
+(defun +prodigy/delete (arg)
   "Delete service at point. Asks for confirmation."
   (interactive "P")
   (prodigy-with-refresh
@@ -24,7 +24,7 @@
               (message "Aborted")))))))
 
 ;;;###autoload
-(defun +services/cleanup ()
+(defun +prodigy/cleanup ()
   "Delete all services associated with projects that don't exist."
   (interactive)
   (cl-loop for service in prodigy-services

modules/tools/prodigy/config.el

@@ -1,4 +1,4 @@
-;;; feature/services/config.el -*- lexical-binding: t; -*-
+;;; tools/prodigy/config.el -*- lexical-binding: t; -*-
 
 (def-setting! :service (&rest plist)
   "TODO"
@@ -19,7 +19,7 @@
   (doom-cache-persist
    :prodigy '(prodigy-services prodigy-tags prodigy-filters))
 
-  (defun +services*prodigy-services (orig-fn &rest args)
+  (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)))
@@ -31,12 +31,8 @@ unless invoked from the relevant project."
                               (or (not project)
                                   (file-in-directory-p project-root project))))
                           services))))
-  (advice-add #'prodigy-services :around #'+services*prodigy-services)
+  (advice-add #'prodigy-services :around #'+prodigy*services)
 
   ;; Keybindings
-  (map! :map prodigy-mode-map "d" #'+services/prodigy-delete)
+  (map! :map prodigy-mode-map "d" #'+prodigy/delete))
-  (when (featurep! :feature evil)
-    (map! :map prodigy-mode-map
-          "j" #'prodigy-next
-          "k" #'prodigy-prev)))
 

modules/tools/prodigy/packages.el

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