From 93070458212a9b506949b4c12a6d7e1b5b8b693b Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Fri, 17 Oct 2025 07:28:32 +0200 Subject: systems: rename ayase to asakura --- deployment/systems/asakura.scm | 136 +++++++++++++++++++++++++++++++++++++++++ deployment/systems/ayase.scm | 136 ----------------------------------------- 2 files changed, 136 insertions(+), 136 deletions(-) create mode 100644 deployment/systems/asakura.scm delete mode 100644 deployment/systems/ayase.scm (limited to 'deployment') diff --git a/deployment/systems/asakura.scm b/deployment/systems/asakura.scm new file mode 100644 index 0000000..bc00308 --- /dev/null +++ b/deployment/systems/asakura.scm @@ -0,0 +1,136 @@ +;;; SPDX-License-Identifier: GPL-3.0-or-later +;;; SPDX-FileCopyrightText: 2024-2025 Marek Paśnikowski + +(define-module (deployment systems asakura) + #: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 ((sovereign devices amd64) #:prefix sovereign:devices:amd64:) + #:use-module ((sovereign packages protonmail) #:prefix sovereign:packages:protonmail:) + #:use-module ((sovereign systems) #:prefix sovereign:systems:) + #:use-module ((users id1000) #:prefix users:id1000:)) + +(define efi-filesystem-uuid + (gnu:system:uuid:uuid + "B4FB-CBD9" + 'fat32)) + +(define host-name + "asakura") + +(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") + (device efi-filesystem-uuid) + (type "vfat"))) + +(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 gnupg) + (gnu packages kde-pim) + (gnu services)) + (simple-service 'system-packages + profile-service-type + (list kgpg + pinentry-qt + pinentry-tty))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(define (bootloader) + (use-modules (gnu bootloader grub)) + ((@ (gnu bootloader) bootloader-configuration) + (bootloader grub-efi-bootloader) + (targets (list "/boot")) + (keyboard-layout keyboard-layout))) + +(define (file-systems) + (append gnu:system:file-systems:%base-file-systems + (list root-partition + efi-partition))) + +(define services + (let* + ( (l-guix-homes (list users:id1000:name/home-environment)) + (l-guix-home-service (sovereign:systems:guix-home-service l-guix-homes))) + (append sovereign:systems:%sovereign-services + (list sovereign:packages:protonmail:nogui-profile + l-guix-home-service + (openssh-service) + (system-packages-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)) + (label (sovereign:systems:operating-system-label* host-name + (gnu:system:operating-system-default-label gnu:system:this-operating-system))) + (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 sovereign:systems:pl-locale) + (locale-definitions sovereign:systems:%sovereign-locale-definitions) + (services services) + (sudoers-file sovereign:systems:%sovereign-sudoers-specification))) diff --git a/deployment/systems/ayase.scm b/deployment/systems/ayase.scm deleted file mode 100644 index 63cd191..0000000 --- a/deployment/systems/ayase.scm +++ /dev/null @@ -1,136 +0,0 @@ -;;; SPDX-License-Identifier: GPL-3.0-or-later -;;; SPDX-FileCopyrightText: 2024-2025 Marek Paśnikowski - -(define-module (deployment systems ayase) - #: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 ((sovereign devices amd64) #:prefix sovereign:devices:amd64:) - #:use-module ((sovereign packages protonmail) #:prefix sovereign:packages:protonmail:) - #:use-module ((sovereign systems) #:prefix sovereign:systems:) - #: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") - (device efi-filesystem-uuid) - (type "vfat"))) - -(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 gnupg) - (gnu packages kde-pim) - (gnu services)) - (simple-service 'system-packages - profile-service-type - (list kgpg - pinentry-qt - pinentry-tty))) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(define (bootloader) - (use-modules (gnu bootloader grub)) - ((@ (gnu bootloader) bootloader-configuration) - (bootloader grub-efi-bootloader) - (targets (list "/boot")) - (keyboard-layout keyboard-layout))) - -(define (file-systems) - (append gnu:system:file-systems:%base-file-systems - (list root-partition - efi-partition))) - -(define services - (let* - ( (l-guix-homes (list users:id1000:name/home-environment)) - (l-guix-home-service (sovereign:systems:guix-home-service l-guix-homes))) - (append sovereign:systems:%sovereign-services - (list sovereign:packages:protonmail:nogui-profile - l-guix-home-service - (openssh-service) - (system-packages-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)) - (label (sovereign:systems:operating-system-label* host-name - (gnu:system:operating-system-default-label gnu:system:this-operating-system))) - (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 sovereign:systems:pl-locale) - (locale-definitions sovereign:systems:%sovereign-locale-definitions) - (services services) - (sudoers-file sovereign:systems:%sovereign-sudoers-specification))) -- cgit v1.2.3