blob: 93a71bb148d4f6c81606aebab17d5c8fa10ffe47 (
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
|
;;; PantherX System Configuration Module
;;; This module supports configuration modules for PantherX OS definitions
;;;
;;; Reza Alizadeh Majd <r.majd@pantherx.org>
;;; Franz Geffke <franz@pantherx.org>
;;;
(define-module (px services base)
#:use-module (guix gexp)
#:use-module (guix utils)
#:use-module (srfi srfi-1)
#:use-module (gnu packages networking)
#:use-module (gnu services)
#:use-module (gnu services base)
#:use-module (gnu services desktop)
#:use-module (gnu services networking)
#:use-module (gnu services ssh)
#:use-module (px services desktop)
#:use-module (px services device)
#:use-module (px services security-token)
#:export (%px-core-services
%px-desktop-minmal-services
%px-desktop-services
%px-desktop-ee-services
%px-server-services
%px-server-ee-services))
;;;
;;; CORE
;;;
(define %px-core-services
(append (list (service dhcp-client-service-type)
(service ntp-service-type))
%base-services))
;;;
;;; DESKTOP
;;;
(define %px-desktop-minmal-services
(append %px-desktop-base-minimal-services))
(define %px-desktop-services
(append %px-desktop-base-services))
(define %px-desktop-ee-services
;; TODO: Does not include default desktop
(append (list (service px-device-identity-service-type)
(service px-user-identity-service-type))
%px-desktop-base-services))
;;;
;;; SERVER
;;;
(define %px-server-services
(append (list (service openssh-service-type
(openssh-configuration (permit-root-login 'prohibit-password)))
(service nftables-service-type))
%px-core-services))
(define %px-server-ee-services
(append (list (service px-device-identity-service-type))
%px-server-services))
|
