services: Add auto-login-to-tty.

rg/services/base.scm

@@ -0,0 +1,11 @@
+(define-module (rg services base)
+  #:use-module (gnu services)
+  #:use-module (gnu services base))
+
+(define-public (auto-login-to-tty config tty user)
+  (if (string=? tty (mingetty-configuration-tty config))
+      (mingetty-configuration
+       (inherit config)
+       (auto-login user))
+      config))
+