home: siga: run guix on a foreign distro

README.md

@@ -10,11 +10,6 @@ My personal computer which runs GNU/Linux Debian testing.
 
 ## TODO
 
-* Pass `is-foreign-distro?` boolean which determines whether the host is running
-  Guix on top of a foreign distro or not. If yes, a selected portion of packages
-  will not be installed e.g., neovim should be installed using apt, plugins
-  installed through Guix should work just fine.
-
 # Shione
 
 My GNU/Linux Debian stable sever which is no longer operation, it will have a

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