summaryrefslogtreecommitdiff
path: root/users/id1001.scm
blob: 26a76f62ccc8252198ab87730c261b07b75d8cc0 (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
(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
  (user-account (name uid1001-name)
		(group "users")
		(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*)))))