add SERVICE:RESTARTED, SERVICE:RELOADED

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>

1 files changed, 13 insertions, 2 deletions

diff --git a/src/property/service.lisp b/src/property/service.lisp
index f88f9fd..2171c71 100644
--- a/src/property/service.lisp
+++ b/src/property/service.lisp
@@ -48,6 +48,10 @@ not affect you."
   (os:etypecase
       (debianlike (%policy-rc.d))))
 
+(defun service (service action)
+  (unless (get-hostattrs-car :no-services)
+    (run :may-fail "service" service action)))
+
 (defprop running :posix (service)
   "Attempt to start service using service(1).
 Assumes that if service(1) returns nonzero, it means the service was already
@@ -55,11 +59,18 @@ running.  If something more robust is required, use init system-specific
 properties."
   (:desc #?"Attempt to start ${service} has been made")
   (:apply
-   (unless (get-hostattrs-car :no-services)
-     (run :may-fail "service" service "start"))
+   (service service "start")
    ;; assume it was already running
    :no-change))
 
+(defprop restarted :posix (service)
+  (:desc "Attempt to restart ${service}")
+  (:apply (service service "restart")))
+
+(defprop reloaded :posix (service)
+  (:desc "Attempt to reload ${service}")
+  (:apply (service service "reload")))
+
 (define-function-property-combinator without-starting-services (&rest propapps)
   "Apply PROPAPPS with SERVICE:NO-SERVICES temporarily in effect."
   (let ((propapp (if (cdr propapps) (apply #'eseqprops propapps) (car propapps))))