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*)))