02/02: hydra: bayfront: Add a message of the day.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository maintenance.

commit 83061be2db1e317bcd688a8d4cbe7dae44992947
Author: Ludovic Courtès <address@hidden>
Date:   Thu Feb 2 10:13:11 2017 +0100

    hydra: bayfront: Add a message of the day.
    
    * hydra/bayfront.scm (%motd): New variable.
    (services): Customize 'login-service-type' to use %MOTD.
---
 hydra/bayfront.scm |   34 ++++++++++++++++++++++++++++++++--
 1 file changed, 32 insertions(+), 2 deletions(-)

diff --git a/hydra/bayfront.scm b/hydra/bayfront.scm
index 08a66f6..28b4969 100644
--- a/hydra/bayfront.scm
+++ b/hydra/bayfront.scm
@@ -104,6 +104,33 @@
 ;;; Operating system.
 ;;;
 
+(define %motd
+  ;; Message of the day!  Libcaca's img2txt gives something that's not so
+  ;; great.
+  (plain-file "motd"
+              "\
+ :                               .
+ S:                            S
+  : 8  . . :8         t . . .  ;
+     %888.   ;       :   SX8@
+          t 8       %  .
+           .8 8     .
+           .88     t  :     Welcome to bayfront!
+            .  t   .8
+             .  % .  8
+             8   8 8
+              .  X  8
+              8 address@hidden
+
+Best practices:
+
+  1. Store everything in guix-maintenance.git.
+  2. Use the Git checkouts of Guix and guix-maintenance in ~root.
+  3. Notify address@hidden when reconfiguring.
+  4. Notify address@hidden when something goes wrong.
+
+Happy hacking!\n"))
+
 (operating-system
   (host-name "bayfront")
   (timezone "Europe/Paris")
@@ -183,5 +210,8 @@
 
                   (modify-services %base-services
                     ;; Disable substitutes altogether.
-                    (guix-service-type config => %guix-daemon-config)))))
-
+                    (guix-service-type config => %guix-daemon-config)
+                    (login-service-type
+                     config => (login-configuration
+                                (inherit config)
+                                (motd %motd)))))))