From 245602604455ad9f48571af1fc9ecd6493f6e290 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Tue, 28 Sep 2021 10:19:26 +0000 Subject: [PATCH] system: Introduce the os-release file. * gnu/system.scm (os-release): New procedure. (operating-system-etc-service): Use it. --- gnu/system.scm | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/gnu/system.scm b/gnu/system.scm index 69f2ae5786..80faaf9db8 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -852,6 +852,19 @@ (define (validated-sudoers-file file) "--check" "--file" #$file) (copy-file #$file #$output))))) +(define (os-release) + (plain-file "os-release" + "\ +NAME=\"Guix System\" +ID=guix +PRETTY_NAME=\"Guix System\" +LOGO=guix-icon +HOME_URL=\"https://guix.gnu.org\" +DOCUMENTATION_URL=\"https://guix.gnu.org/en/manual\" +SUPPORT_URL=\"https://guix.gnu.org/en/help\" +BUG_REPORT_URL=\"https://lists.gnu.org/mailman/listinfo/bug-guix\" +")) + (define* (operating-system-etc-service os) "Return a that builds a directory containing the static part of the /etc directory." @@ -957,7 +970,8 @@ (define* (operating-system-etc-service os) source /run/current-system/profile/etc/profile.d/bash_completion.sh fi\n"))) (etc-service - `(("services" ,(file-append net-base "/etc/services")) + `(("os-release" ,#~#$(os-release)) + ("services" ,(file-append net-base "/etc/services")) ("protocols" ,(file-append net-base "/etc/protocols")) ("rpc" ,(file-append net-base "/etc/rpc")) ("login.defs" ,#~#$login.defs)