aboutsummaryrefslogtreecommitdiffstats
path: root/nichijou/home/host/siga.scm
diff options
context:
space:
mode:
Diffstat (limited to 'nichijou/home/host/siga.scm')
-rw-r--r--nichijou/home/host/siga.scm15
1 files changed, 13 insertions, 2 deletions
diff --git a/nichijou/home/host/siga.scm b/nichijou/home/host/siga.scm
index 2f86088..5ab32e1 100644
--- a/nichijou/home/host/siga.scm
+++ b/nichijou/home/host/siga.scm
@@ -1,5 +1,6 @@
(define-module (nichijou home host siga)
#:use-module (gnu home)
+ #:use-module (srfi srfi-1)
#:use-module ((nichijou home nvim)
#:prefix nvim:)
#:use-module ((nichijou home mpd)
@@ -9,6 +10,16 @@
#:use-module ((nichijou home zsh)
#:prefix zsh:))
+;; TODO: Think of a better approach to do this.
+;; What if a module's get-packages function expects different parameters?
+;; Should modules (packages) be forced to implement the same get-packages
+;; signature? If so, how?
+(define (apply-get-packages m)
+ (m:get-packages #:foreign-distro? #t))
+
(home-environment
- (packages (append nvim:packages mpd:packages mpv:packages zsh:packages))
- (services (append nvim:services mpd:services mpv:services zsh:services)))
+ (packages (fold append
+ (list)
+ (map apply-get-packages
+ (list mpd mpv nvim zsh))))
+ (services (append mpd:services mpv:services nvim:services zsh:services)))