diff options
| -rw-r--r-- | systems/ayase-old.scm | 174 |
1 files changed, 0 insertions, 174 deletions
diff --git a/systems/ayase-old.scm b/systems/ayase-old.scm deleted file mode 100644 index ec9ec35..0000000 --- a/systems/ayase-old.scm +++ /dev/null @@ -1,174 +0,0 @@ -;;; SPDX-License-Identifier: GPL-3.0-or-later -;;; SPDX-FileCopyrightText: 2024 Marek Paśnikowski <marek@marekpasnikowski.pl> - -(define-module (systems ayase-old) - #:use-module ((gnu system) - #:prefix gnu:system:) - #:use-module ((gnu system file-systems) - #:prefix gnu:system:file-systems:) - #:use-module ((gnu system uuid) - #:prefix gnu:system:uuid:) - #:use-module ((nongnu packages linux) - #:prefix nongnu:packages:linux:) - #:use-module ((nongnu system linux-initrd) - #:prefix nongnu:system:linux-initrd:) - #:use-module ((suweren commons sudoers) - #:prefix suweren:commons:sudoers:) - #:use-module ((suweren services) - #:prefix suweren:services:) - #:use-module ((suweren system) - #:prefix suweren:system:) - #:use-module ((users id1000) - #:prefix users:id1000:)) - -(define efi-filesystem-uuid - (gnu:system:uuid:uuid - "B4FB-CBD9" - 'fat32)) - -(define host-name - "ayase") - -(define (label number) - (gnu:system:file-systems:file-system-label - (string-append host-name - "-swap" - number))) - -(define root-filesystem-uuid - (gnu:system:uuid:uuid - "615a98cd-a632-4ee5-a6f4-e5ebcaa6fb8c")) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(define efi-partition - (gnu:system:file-systems:file-system - (mount-point "/boot/efi") - (device efi-filesystem-uuid) - (type "vfat"))) - -(define (gc-workaround-service) - (use-modules (gnu packages) - (gnu packages bootloaders) - (gnu packages ibus) - (gnu packages python-build) - (gnu packages ruby) - (gnu services)) - (let ((ibus-doc (specification->package+output "ibus" "doc"))) - (simple-service 'gc-workaround - profile-service-type - (list grub - ibus - ;; ibus-doc - python-pip - ruby)))) - -(define (home-services) - (use-modules (gnu services guix)) - ((@ (gnu services) service) - guix-home-service-type - `((,users:id1000:uid1000-name ,users:id1000:uid1000-home-environment)))) - -(define keyboard-layout - ((@ (gnu system keyboard) keyboard-layout) - "pl")) - -(define (libvirt-service) - (use-modules (gnu services virtualization)) - ((@ (gnu services) service) - libvirt-service-type)) - -(define (virtlog-service) - (use-modules (gnu services virtualization)) - ((@ (gnu services) service) - virtlog-service-type)) - -(define (openssh-service) - (use-modules (gnu services ssh)) - ((@ (gnu services) service) - openssh-service-type)) - -(define root-partition - (gnu:system:file-systems:file-system - (mount-point "/") - (device root-filesystem-uuid) - (type "ext4"))) - -(define (swap-label number) - (let ((target-label (label number))) - (gnu:system:file-systems:swap-space - (target target-label)))) - -(define (system-packages-service) - (use-modules (gnu packages gnome) - (gnu packages gnupg) - (gnu packages kde-pim) - (gnu services)) - (simple-service 'system-packages - profile-service-type - (list gnome-boxes - kgpg - pinentry-qt - pinentry-tty))) - -(define (tor-service) - (use-modules (gnu services) - (gnu services networking)) - ((@ (gnu services) service) - tor-service-type)) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(define (bootloader) - (use-modules (gnu bootloader grub)) - ((@ (gnu bootloader) bootloader-configuration) - (bootloader grub-efi-bootloader) - (targets (list "/boot/efi")) - (keyboard-layout keyboard-layout))) - -(define (file-systems) - (append gnu:system:file-systems:%base-file-systems - (list root-partition - efi-partition))) - -(define services - (append suweren:services:%distribution-services - (list (gc-workaround-service) - (home-services) - ; (libvirt-service) - (openssh-service) - (system-packages-service) - (tor-service) - ; (virtlog-service) - ))) - -(define swap-device-1 - (swap-label "-1")) - -(define swap-device-2 - (swap-label "-2")) - -(define (users) - (use-modules (gnu system accounts)) - (append (@ (gnu system shadow) %base-user-accounts) - (list users:id1000:uid1000-account))) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(define-public operating-system* - (gnu:system:operating-system - (kernel nongnu:packages:linux:linux) - (bootloader (bootloader)) - (keyboard-layout keyboard-layout) - (initrd nongnu:system:linux-initrd:microcode-initrd) - (firmware (list nongnu:packages:linux:linux-firmware)) - (host-name host-name) - (file-systems (file-systems)) - (swap-devices (list swap-device-1 - swap-device-2)) - (users (users)) - (timezone "Europe/Warsaw") - (locale suweren:system:polish-locale-string) - (locale-definitions suweren:system:%suweren-locale-definitions) - (services services) - (sudoers-file suweren:commons:sudoers:%sudoers-specification*))) |