summaryrefslogtreecommitdiff
path: root/suweren/home.scm
blob: c4c900009a71d32f2d43d92c82b6d514836449d8 (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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
(define-module (suweren home)
  ;; easyeffects
  #:use-module (gnu packages audio)

  ;; font-google-noto
  ;; font-google-noto-emoji
  ;; font-google-noto-sans-cjk
  ;; font-google-noto-serif-cjk
  #:use-module (gnu packages fonts)

  ;; kded
  #:use-module (gnu packages kde-frameworks)

  ;; home-profile-service-type
  #:use-module (gnu home services)

  ;; home-dbus-service-type
  #:use-module (gnu home services desktop)

  ;; home-bash-service-type
  #:use-module (gnu home services shells)

  ;; home-shepherd-service-type
  #:use-module (gnu home services shepherd)

  ;; home-pipewire-service-type
  #:use-module (gnu home services sound)

  ;; gnupg
  ;; pinentry-qt
  ;; pinentry-tty
  #:use-module (gnu packages gnupg)

  ;; kde-gtk-config
  #:use-module (gnu packages kde-plasma)

  ;; librewolf
  #:use-module (gnu packages librewolf)

  ;; service
  ;; simple-service
  #:use-module (gnu services)

  ;; suweren-home-bash-configuration
  #:use-module (suweren home services)

  ;; suweren-home-fontconfig-service-type
  #:use-module (suweren home services fontutils)

  ;; update-commands
  #:use-module (suweren update))

;; string ->
;; (record service)
(define-public (%suweren-home-services host-name*)
  (let* ((packages (list easyeffects
			 font-google-noto
			 font-google-noto-emoji
			 font-google-noto-sans-cjk
			 font-google-noto-serif-cjk
			 gnupg
			 kde-gtk-config
			 kded
			 librewolf
			 pinentry-qt
			 pinentry-tty))

	 (bash (service home-bash-service-type
			suweren-home-bash-configuration))
	 (dbus (service home-dbus-service-type))
	 (pipewire (service home-pipewire-service-type))
	 (profile (simple-service 'default-home-packages
				  home-profile-service-type
				  packages))
	 (shepherd (service home-shepherd-service-type))
	 (update-commands* (update-commands host-name*)))
    (list dbus
	  pipewire
	  profile
	  shepherd
	  suweren-home-fontconfig-service-type
	  update-commands*)))