03/03: system: Introduce the os-release file.

[guix-commits]

mothacehe pushed a commit to branch wip-gnome40
in repository guix.

commit f4ab55c7164b5bd5b72a3f793cc6fe00befa78f8
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Tue Sep 28 10:19:26 2021 +0000

    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 69f2ae5..80faaf9 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -852,6 +852,19 @@ syntactically correct."
                                "--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 <service> that builds a directory containing the static part of
 the /etc directory."
@@ -957,7 +970,8 @@ then
   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)