system: Introduce the os-release file.
* gnu/system.scm (os-release): New procedure. (operating-system-etc-service): Use it.master
parent
53a1cebc9b
commit
2456026044
|
@ -852,6 +852,19 @@ syntactically correct."
|
||||||
"--check" "--file" #$file)
|
"--check" "--file" #$file)
|
||||||
(copy-file #$file #$output)))))
|
(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)
|
(define* (operating-system-etc-service os)
|
||||||
"Return a <service> that builds a directory containing the static part of
|
"Return a <service> that builds a directory containing the static part of
|
||||||
the /etc directory."
|
the /etc directory."
|
||||||
|
@ -957,7 +970,8 @@ then
|
||||||
source /run/current-system/profile/etc/profile.d/bash_completion.sh
|
source /run/current-system/profile/etc/profile.d/bash_completion.sh
|
||||||
fi\n")))
|
fi\n")))
|
||||||
(etc-service
|
(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"))
|
("protocols" ,(file-append net-base "/etc/protocols"))
|
||||||
("rpc" ,(file-append net-base "/etc/rpc"))
|
("rpc" ,(file-append net-base "/etc/rpc"))
|
||||||
("login.defs" ,#~#$login.defs)
|
("login.defs" ,#~#$login.defs)
|
||||||
|
|
Reference in New Issue