rekahsoft
/
guix-config
Archived
1
1
Fork 0

Remove definition of function that can be replaced by (map specification->package ...)

This commit is contained in:
Collin J. Doering 2019-09-08 22:40:55 -04:00
parent 6cd3f0b699
commit e71bee5980
1 changed files with 20 additions and 27 deletions

View File

@ -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)