mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
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.
This commit is contained in:
parent
db047a482c
commit
5084fd3854
1 changed files with 8 additions and 1 deletions
|
@ -27,6 +27,7 @@ (define-module (gnu system hurd)
|
|||
#: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 @@ (define-gexp-compiler (compile-manifest (manifest
|
|||
#: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 @@ (define hurd-directives
|
|||
|
||||
;; 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)
|
||||
|
|
Loading…
Reference in a new issue