blob: 2c065c433779ba7fde4aaed5b234e822a9641ff7 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
(define-module (users id1001)
;; home-environment
#:use-module (gnu home)
;; home-profile-service-type
;; home-xdg-configuration-files-service-type
#:use-module (gnu home services)
;; simple-service
#:use-module (gnu services)
;; user-account
#:use-module (gnu system shadow)
;; %suweren-home-services
#:use-module (suweren home))
;; string
(define-public uid1001-name
"lilia")
;; (string) ->
;; record user-account
(define-public (uid1001-account supplementary-groups*)
(user-account (name uid1001-name)
(group "users")
(supplementary-groups supplementary-groups*)
(uid 1001)
(comment "Liliana Ruszuk")
(home-directory "/home/lilia")))
;; record home-environment
(define-public uid1001-home-environment
(lambda (host-name*)
(let* ((packages (list ))
(profile (simple-service 'user-packages
home-profile-service-type
packages))
(%suweren-home-services* (%suweren-home-services host-name*))
(user-services (list profile))
(services* (append %suweren-home-services*
user-services)))
(home-environment (services services*)))))
|
