operating-systems: buer: Deploy radio's home environment when doing a fresh instalation

impermanence
Luis Guilherme Coelho 2024-06-10 20:24:55 -03:00
parent fc09aeda51
commit 616c9f0dfc
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 11 additions and 0 deletions

View File

@ -26,6 +26,7 @@
#:use-module (gnu services avahi) #:use-module (gnu services avahi)
#|D|# #:use-module (gnu services dbus) #|D|# #:use-module (gnu services dbus)
#:use-module (gnu services desktop) #:use-module (gnu services desktop)
#|G|# #:use-module (gnu services guix)
#|M|# #:use-module (gnu services mcron) #|M|# #:use-module (gnu services mcron)
#|N|# #:use-module (gnu services linux) #|N|# #:use-module (gnu services linux)
#:use-module (gnu services networking) #:use-module (gnu services networking)
@ -36,6 +37,11 @@
#|Guix|# #|Guix|#
#||# #:use-module (guix) #||# #:use-module (guix)
#|Home environments|#
#|R|# #:use-module ((home-environments radio)
#:select (home-environment)
#:renamer (const 'home-environment:radio))
#|Radix|# #|Radix|#
#|A|# #:use-module (radix artwork) #|A|# #:use-module (radix artwork)
#|C|# #:use-module (radix combinators) #|C|# #:use-module (radix combinators)
@ -182,6 +188,11 @@
(command #~(getenv "SHELL")))))) (command #~(getenv "SHELL"))))))
(iota 2 1))))) (iota 2 1)))))
#|Home environment services|#
(service guix-home-service-type
(if (file-exists? "/run/current-system/provenance") '()
`(("radio" . ,home-environment:radio))))
#|Log services|# #|Log services|#
(service rottlog-service-type) (service rottlog-service-type)
(service syslog-service-type (service syslog-service-type