summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-04-08 23:10:14 +0200
committerLudovic Courtès <ludo@gnu.org>2020-04-11 21:03:05 +0200
commit5084fd38541a5fc233f3299e10a33c3a38a7173f (patch)
tree754a81742e84f7718e05612d2687a3444f35a6bb
parentdb047a482c150806301075a9b65fce2bf01fe8e8 (diff)
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.
-rw-r--r--gnu/system/hurd.scm9
1 files changed, 8 insertions, 1 deletions
diff --git a/gnu/system/hurd.scm b/gnu/system/hurd.scm
index 322ac10db8..2583ff00fa 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 system vm)
#:export (cross-hurd-image))
@@ -49,7 +50,8 @@
#:target target))
(define %base-packages/hurd
- (list hurd bash coreutils file findutils grep sed guile-3.0
+ (list hurd bash coreutils file findutils grep sed
+ guile-3.0 guile-colorized guile-readline
net-base inetutils))
(define* (cross-hurd-image #:key (hurd hurd) (gnumach gnumach))
@@ -150,6 +152,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)