refactor(system): trim dead code

1 files changed, 1 insertions, 66 deletions

diff --git a/suweren/system.scm b/suweren/system.scm
index 39ec3d2..aa594f6 100644
--- a/suweren/system.scm
+++ b/suweren/system.scm
@@ -1,29 +1,14 @@
 (define-module (suweren system)
-  #:use-module (gnu packages kde-pim)    ; kgpg
-  #:use-module (gnu services)            ; modify-services
-                                         ; profile-service-type
-                                         ; simple-service
   #:use-module (gnu services base)       ; guix-configuration
                                          ; guix-service-type
                                          ; login-configuration
                                          ; login-service-type
-  #:use-module (gnu services desktop)    ; %desktop-services
-                                         ; plasma-desktop-service-type
-  #:use-module (gnu services sddm)       ; sddm-configuration
-                                         ; sddm-service-type
-  #:use-module (gnu services syncthing)  ; syncthing-configuration
-                                         ; syncthing-service-type
-  #:use-module (gnu services xorg)       ; gdm-service-type
-  #:use-module (gnu system)              ; operating-system
   #:use-module (gnu system locale)
   #:use-module (gnu system file-systems) ; %base-file-systems
   #:use-module (gnu system shadow)       ; %base-user-accounts
   #:use-module (guix channels)           ; %default-channels
   #:use-module (guix gexp)               ; plain-file
-  #:use-module (nongnu packages linux)
-  #:use-module (suweren commons sudoers) ; %sudoers-specification*
-  #:use-module ((suweren trezor)
-                #:prefix suweren-trezor:))
+  #:use-module (nongnu packages linux))
 
 (define-public polish-locale-string
   "pl_PL.utf8")
@@ -36,18 +21,6 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;; (list record* package)
-(define packages
-  (list kgpg))
-
-;; record* service
-(define profile
-  (simple-service 'distribution-packages
-                  profile-service-type
-                  packages))
-
-;; record guix-configuration ->
-;; record guix-configuration
 (define-public (guix configuration)
   (let* ((deployment-commit "c24ce7cb11e74da13d491f9de3c4b7040a069f43")
          (distribution-commit "7d17bded11ef1239592e6e5abd40ceee1e99cbb8")
@@ -118,21 +91,6 @@
   (append %default-locale-definitions
           (list polish-locale)))
 
-;; record login-configuration ->
-;; record login-configuration
-(define (login configuration)
-  (login-configuration (inherit configuration)
-                       (allow-empty-passwords? #f)))
-
-;; record syncthing-configuration
-(define syncthing-configuration*
-  (syncthing-configuration (user "marek")))
-
-;; record syncthing-service-type
-(define syncthing
-  (service syncthing-service-type
-           syncthing-configuration*))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (define-public %suweren-bootloader
@@ -147,28 +105,5 @@
 (define-public %suweren-locale-definitions
   (locale-definitions*))
 
-(define-public %suweren-services
-  (let* ((sddm-configuration* (sddm-configuration (theme "breeze")
-                                                  (auto-login-user "lilia")))
-
-         (plasma-desktop (service plasma-desktop-service-type))
-         (sddm (service sddm-service-type
-                        sddm-configuration*))
-
-         (%desktop-services* (modify-services %desktop-services
-                                              (delete gdm-service-type)
-                                              (guix-service-type configuration
-                                                                 =>
-                                                                 (guix configuration))
-                                              (login-service-type configuration
-                                                                  =>
-                                                                  (login configuration)))))
-    (append %desktop-services*
-            suweren-trezor:trezor-bridge
-            (list plasma-desktop
-                  profile
-                  sddm
-                  syncthing))))
-
 (define-public %suweren-users
   %base-user-accounts)