From 5594725002dd9415fc770bf41f0f96443a2a400d Mon Sep 17 00:00:00 2001
From: Franz Geffke <franz@pantherx.org>
Date: Sat, 30 Mar 2024 11:49:41 +0000
Subject: drop *-arm-packages, *-arm-services

---
 px/services/base.scm | 58 ++--------------------------------------------------
 1 file changed, 2 insertions(+), 56 deletions(-)

(limited to 'px/services')

diff --git a/px/services/base.scm b/px/services/base.scm
index fe0716e..8026c47 100644
--- a/px/services/base.scm
+++ b/px/services/base.scm
@@ -38,11 +38,7 @@
             %px-desktop-ee-services
 
             %px-server-services
-            %px-server-ee-services
-
-            %px-core-arm-services
-            %px-gui-arm-services
-            %px-desktop-arm-services))
+            %px-server-ee-services))
 
 ;;;
 ;;;
@@ -98,54 +94,4 @@
            (service dhcp-client-service-type)) %base-services))
 
 (define %px-server-ee-services
-  (append (list (service px-device-identity-service-type)) %px-server-services))
-
-;;;
-;;; ARM-SPECIFIC
-;;;
-
-(define %px-core-arm-services
-  (cons*
-   ;; networking
-   (service wpa-supplicant-service-type)
-   (service network-manager-service-type)
-   (service modem-manager-service-type)
-   (service usb-modeswitch-service-type)
-   (service ntp-service-type)
-
-   ;; remote access
-   (service openssh-service-type
-            (openssh-configuration (x11-forwarding? #t)
-                                   (permit-root-login #t)))
-
-   %base-services))
-
-(define %px-gui-arm-services
-  (cons* (service slim-service-type
-                  (slim-configuration (vt "vt7")
-                                      (auto-login? #t)
-                                      (auto-login-session (file-append openbox
-                                                           "/bin/openbox-session"))
-                                      (default-user "default")))
-         (service avahi-service-type)
-         (service udisks-service-type)
-         (service upower-service-type)
-         (service accountsservice-service-type)
-         (service polkit-service-type)
-         (service elogind-service-type)
-         (service dbus-root-service-type)
-         polkit-wheel-service
-         polkit-network-manager-service ;control network without sudo
-         polkit-elogind-service ;reboot without sudo
-         
-         (service pulseaudio-service-type)
-         (service alsa-service-type)
-         %px-core-arm-services))
-
-(define %px-desktop-arm-services
-  ;; TODO: Does not include default desktop
-  (append (list (service dhcp-client-service-type)
-                (service sddm-service-type
-                         (sddm-configuration (minimum-uid 1000))))
-          (modify-services %desktop-services-assembly
-            (delete network-manager-service-type))))
+  (append (list (service px-device-identity-service-type)) %px-server-services))
\ No newline at end of file
-- 
cgit v1.2.3