mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-13 18:40:57 +02:00
Code Releases Activity

system: Add default guix-home-config.

Browse source 
* gnu/system/shadow.scm (%deafult-skeleton-home-config): New variable.
(default-skeletons): Add it.

Change-Id: Ida4cca8b1b3674491a4f18d94bc1b12d426575ba
This commit is contained in:
Efraim Flashner 2023-12-31 11:55:26 +02:00
parent 3ca02f0304
commit 1e8ac2c41b
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 34 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

35
gnu/system/shadow.scm
View file

@ -70,6 +70,7 @@
%default-gdbinit %default-gdbinit
%default-nanorc %default-nanorc
%default-dotguile %default-dotguile
%default-skeleton-home-config
default-skeletons default-skeletons
skeleton-directory skeleton-directory
%base-groups %base-groups
@ -239,6 +240,37 @@ convenient interactive line editing and input history.\\n\\n\")))
(display \"Consider installing the 'guile-colorized' package (display \"Consider installing the 'guile-colorized' package
for a colorful Guile experience.\\n\\n\"))))\n")) for a colorful Guile experience.\\n\\n\"))))\n"))
(define %default-skeleton-home-config
(plain-file "default-home-config" "\
;; This is a sample Guix Home configuration which can help setup your
;; home directory in the same declarative manner as Guix System.
;; For more information, see the Home Configuration section of the manual.
(define-module (guix-home-config)
#:use-module (gnu home)
#:use-module (gnu home services)
#:use-module (gnu home services shells)
#:use-module (gnu services)
#:use-module (gnu system shadow))
(define home-config
(home-environment
(services
(list
;; Uncomment the shell you wish to use for your user:
;(service home-bash-service-type)
;(service home-fish-service-type)
;(service home-zsh-service-type)
(service home-files-service-type
`((\".guile\" ,%default-dotguile)
(\".Xdefaults\" ,%default-xdefaults)))
(service home-xdg-configuration-files-service-type
`((\"gdb/gdbinit\" ,%default-gdbinit)
(\"nano/nanorc\" ,%default-nanorc)))))))
home-config"))
(define (default-skeletons) (define (default-skeletons)
"Return the default skeleton files for /etc/skel. These files are copied by "Return the default skeleton files for /etc/skel. These files are copied by
'useradd' in the home directory of newly created user accounts." 'useradd' in the home directory of newly created user accounts."
@ -257,7 +289,8 @@ for a colorful Guile experience.\\n\\n\"))))\n"))
(".nanorc" ,%default-nanorc) (".nanorc" ,%default-nanorc)
(".Xdefaults" ,xdefaults) (".Xdefaults" ,xdefaults)
(".guile" ,%default-dotguile) (".guile" ,%default-dotguile)
(".gdbinit" ,gdbinit)))) (".gdbinit" ,gdbinit)
("guix-home-config.scm" ,%default-skeleton-home-config))))
(define (skeleton-directory skeletons) (define (skeleton-directory skeletons)
"Return a directory containing SKELETONS, a list of name/derivation tuples." "Return a directory containing SKELETONS, a list of name/derivation tuples."