rekahsoft
/
guix-config
Archived
1
1
Fork 0
Code Releases Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
config.scm
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")
@ -52,26 +46,25 @@
%base-user-accounts)) %base-user-accounts))
(packages (packages
(append (append
(manifest->packages (map specification->package
(specifications->manifest '("docker"
'("docker" "docker-cli"
"docker-cli" "docker-compose"
"docker-compose" "ratpoison"
"ratpoison" "nss-certs"
"nss-certs" "xterm"
"xterm" "recutils"
"recutils" "emacs"
"emacs" "emacs-guix"
"emacs-guix" "emacs-exwm"
"emacs-exwm" "graphviz"
"graphviz" "iptables"
"iptables" "tmux"
"tmux" "xterm"
"xterm" "xrandr"
"xrandr" "xsetroot"))
"xsetroot"))) %base-packages))
%base-packages))
(services (cons* (service docker-service-type) (services (cons* (service docker-service-type)
(service iptables-service-type (service iptables-service-type