services: autossh: Add auto-start? configuration option.

gnu/services/ssh.scm (autossh-configuration)[auto-start?]: New field.
(autossh-shepherd-service)[shepherd-service]{auto-start?}: New field.
doc/guix.texi (Networking Services)[autossh-configuration]: Document it.

Signed-off-by: Maxim Cournoyer <maxim@guixotic.coop>

1 files changed, 5 insertions, 2 deletions

diff --git a/gnu/services/ssh.scm b/gnu/services/ssh.scm
index d5c1c778009..675a15b6350 100644
--- a/gnu/services/ssh.scm
+++ b/gnu/services/ssh.scm
@@ -622,7 +622,9 @@ object."
   (port            autossh-configuration-port
                    (default "0"))
   (ssh-options     autossh-configuration-ssh-options
-                   (default '())))
+                   (default '()))
+  (auto-start?     autossh-configuration-auto-start?
+                   (default #t)))
 
 (define (autossh-file-name config file)
   "Return a path in /var/run/autossh/ that is writable
@@ -670,7 +672,8 @@ object."
                                 (autossh-configuration-message config))
                #$(string-append "AUTOSSH_PORT="
                                 (autossh-configuration-port config)))))
-   (stop #~(make-kill-destructor))))
+   (stop #~(make-kill-destructor))
+   (auto-start? (autossh-configuration-auto-start? config))))
 
 (define (autossh-service-activation config)
   (with-imported-modules '((guix build utils))