summaryrefslogtreecommitdiff
path: root/systems/aisaka.scm
diff options
context:
space:
mode:
Diffstat (limited to 'systems/aisaka.scm')
-rw-r--r--systems/aisaka.scm68
1 files changed, 0 insertions, 68 deletions
diff --git a/systems/aisaka.scm b/systems/aisaka.scm
deleted file mode 100644
index e30fece..0000000
--- a/systems/aisaka.scm
+++ /dev/null
@@ -1,68 +0,0 @@
-(define-module (systems aisaka)
- ;; service
- #:use-module (gnu services)
-
- ;; guix-home-service-type
- #:use-module (gnu services guix)
-
- ;; keyboard-layout
- #:use-module (gnu system keyboard)
-
- ;; bootloader-configuration*
- ;; file-systems*
- ;; firmware*
- ;; hardware-groups
- ;; initrd*
- ;; kernel*
- ;; swap-devices*
- #:use-module (machines inspiron)
-
- ;; %suweren-operating-system
- #:use-module (suweren system)
-
- ;; uid1000-account
- ;; uid1000-home-environment
- ;; uid1000-name
- #:use-module (users id1000)
-
- ;; uid1001-account
- ;; uid1001-home-environment
- ;; uid1001-name
- #:use-module (users id1001))
-
-;; string
-(define host-name*
- "aisaka")
-
-;; (record user-account)
-(define users*
- (list uid1000-account
- uid1001-account))
-
-;; record operating-system
-(define-public operating-system*
- (let* ((home-environments `((,uid1000-name ,(uid1000-home-environment host-name*))
- (,uid1001-name ,(uid1001-home-environment host-name*))))
-
- (guix-home (service guix-home-service-type
- home-environments))
-
- (keyboard-layout* (keyboard-layout "pl"))
- (services* (list guix-home))
- (timezone* "Europe/Warsaw")
- ;; (locale* "en_US.utf8")
- )
- (%suweren-operating-system kernel*
- (bootloader-configuration* keyboard-layout*)
- keyboard-layout*
- initrd*
- firmware*
- host-name*
- (file-systems* host-name*)
- (swap-devices* host-name*)
- users*
- timezone*
- ;; locale*
- services*)))
-
-operating-system*