Remove definition of function that can be replaced by (map specification->package ...)
This commit is contained in:
parent
6cd3f0b699
commit
e71bee5980
13
config.scm
13
config.scm
|
@ -1,18 +1,12 @@
|
||||||
(use-modules
|
(use-modules
|
||||||
(gnu)
|
(gnu)
|
||||||
|
(gnu packages)
|
||||||
(gnu packages shells)
|
(gnu packages shells)
|
||||||
(guix profiles)
|
(guix profiles)
|
||||||
(guix packages)
|
(guix packages)
|
||||||
(srfi srfi-1))
|
(srfi srfi-1))
|
||||||
(use-service-modules desktop docker networking ssh xorg)
|
(use-service-modules desktop docker networking ssh xorg)
|
||||||
|
|
||||||
(define (manifest->packages manifest)
|
|
||||||
"Return the list of packages in MANIFEST."
|
|
||||||
(filter-map (lambda (entry)
|
|
||||||
(let ((item (manifest-entry-item entry)))
|
|
||||||
(if (package? item) item #f)))
|
|
||||||
(manifest-entries manifest)))
|
|
||||||
|
|
||||||
(operating-system
|
(operating-system
|
||||||
(locale "en_CA.utf8")
|
(locale "en_CA.utf8")
|
||||||
(timezone "America/Toronto")
|
(timezone "America/Toronto")
|
||||||
|
@ -53,8 +47,7 @@
|
||||||
|
|
||||||
(packages
|
(packages
|
||||||
(append
|
(append
|
||||||
(manifest->packages
|
(map specification->package
|
||||||
(specifications->manifest
|
|
||||||
'("docker"
|
'("docker"
|
||||||
"docker-cli"
|
"docker-cli"
|
||||||
"docker-compose"
|
"docker-compose"
|
||||||
|
@ -70,7 +63,7 @@
|
||||||
"tmux"
|
"tmux"
|
||||||
"xterm"
|
"xterm"
|
||||||
"xrandr"
|
"xrandr"
|
||||||
"xsetroot")))
|
"xsetroot"))
|
||||||
%base-packages))
|
%base-packages))
|
||||||
|
|
||||||
(services (cons* (service docker-service-type)
|
(services (cons* (service docker-service-type)
|
||||||
|
|
Reference in New Issue