From e3706ce50fee2d4fc32f9bdaf455846422792edb Mon Sep 17 00:00:00 2001 From: Renken Date: Fri, 9 Sep 2022 18:02:28 +0200 Subject: home: siga: run guix on a foreign distro --- nichijou/home/host/siga.scm | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) (limited to 'nichijou/home/host/siga.scm') 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))) -- cgit v1.2.3