diff options
Diffstat (limited to 'suweren')
| -rw-r--r-- | suweren/system.scm | 67 |
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) |