46/62: system: hurd: Add guile-candy.

[guix-commits]

janneke pushed a commit to branch wip-hurd-vm
in repository guix.

commit 6d5ad9f12c738a66025ce6e0ce46d2d4710e1fa0
Author: Ludovic Courtès <address@hidden>
AuthorDate: Wed Apr 8 23:10:14 2020 +0200

    system: hurd: Add guile-candy.
    
    * gnu/system/hurd.scm (%base-packages/hurd): Add GUILE-COLORIZED and
    GUILE-READLINE.
    (cross-hurd-image)[hurd-directives]: Add /root/.guile.
---
 gnu/system/hurd.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/gnu/system/hurd.scm b/gnu/system/hurd.scm
index 37b73a0..fd0a602 100644
--- a/gnu/system/hurd.scm
+++ b/gnu/system/hurd.scm
@@ -27,6 +27,7 @@
   #:use-module (gnu packages cross-base)
   #:use-module (gnu packages file)
   #:use-module (gnu packages guile)
+  #:use-module (gnu packages guile-xyz)
   #:use-module (gnu packages hurd)
   #:use-module (gnu packages package-management)
   #:use-module (gnu packages ssh)
@@ -52,8 +53,9 @@
                       #:target target))
 
 (define %base-packages/hurd
-  (list hurd bash coreutils file findutils grep guile-3.0 guix openssh sed
-        net-base inetutils))
+  (list hurd bash coreutils file findutils grep
+        guile-3.0 guile-colorized guile-readline
+        guix openssh sed net-base inetutils))
 
 (define* (cross-hurd-image #:key (hurd hurd) (gnumach gnumach))
   "Return a cross-built GNU/Hurd image."
@@ -154,6 +156,11 @@ fi\n"))
 
       ;; TODO: Create those during activation, eventually.
       (directory "/root")
+      (file "/root/.guile"
+            ,(object->string
+              '(begin
+                 (use-modules (ice-9 readline) (ice-9 colorized))
+                 (activate-readline) (activate-colorized))))
       (directory "/run")
       (directory "/run/current-system")
       ("/run/current-system/profile" -> ,system-profile)