move system modules to (deployment system) namespace

1 files changed, 0 insertions, 121 deletions

diff --git a/deployment/systems/mcdowell.scm b/deployment/systems/mcdowell.scm
deleted file mode 100644
index 341bb50..0000000
--- a/deployment/systems/mcdowell.scm
+++ /dev/null
@@ -1,121 +0,0 @@
-;;; SPDX-License-Identifier: GPL-3.0-or-later
-;;; SPDX-FileCopyrightText: 2024-2025 Marek Paśnikowski <marek@marekpasnikowski.pl>
-
-(define-module (deployment systems mcdowell)
-  #:use-module ( (deployment keys)
-                 #:prefix deployment:keys:)
-  #:use-module ( (gnu packages package-management)
-                 #:prefix gnu:packages:package-management:)
-  #:use-module ( (gnu services)
-                 #:prefix gnu:services:)
-  #:use-module ( (gnu services base)
-                 #:prefix gnu:services:base:)
-  #:use-module ( (gnu services guix)
-                 #:prefix gnu:services:guix:)
-  #:use-module ( (gnu system)
-                 #:prefix gnu:system:)
-  #:use-module ( (gnu system file-systems)
-                 #:prefix gnu:system:file-systems:)
-  #:use-module ( (gnu system linux-initrd)
-                 #:prefix gnu:system:linux-initrd:)
-  #:use-module ( (gnu system shadow)
-                 #:prefix gnu:system:shadow:)
-  #:use-module ( (nongnu packages linux)
-                 #:prefix nongnu:packages:linux:)
-  #:use-module ( (nongnu system linux-initrd)
-                 #:prefix nongnu:system:linux-initrd:)
-  #:use-module ( (sovereign channels)
-                 #:prefix sovereign:channels:)
-  #:use-module ( (sovereign devices)
-                 #:prefix sovereign:devices:)
-  #: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:)
-  #:use-module (guix gexp))
-
-(define system-name
-  "mcdowell")
-
-(define file-system-efi
-  (let*
-    ( (l-system-name  (string-upcase  system-name))
-      (l-device       (sovereign:devices:file-system-label  l-system-name)))
-    (gnu:system:file-systems:file-system
-      (inherit  sovereign:devices:file-system/efi)
-      (device   l-device))))
-
-(define file-system-root
-  (let
-    ( (l-device (sovereign:devices:file-system-label  system-name
-                                                      "root")))
-    (gnu:system:file-systems:file-system
-      (inherit  sovereign:devices:file-system/root)
-      (device   l-device))))
-
-(define swap
-  (let
-    ( (l-target (sovereign:devices:file-system-label  system-name
-                                                      "swap")))
-    (gnu:system:file-systems:swap-space
-      (inherit  sovereign:devices:swap/no-trim)
-      (target   l-target))))
-
-(define rakan-machine
-  #~(build-machine
-    (name        "rakan")
-    (systems     (list "x86_64-linux"
-                       "i686-linux"))
-    (user        "marek")
-    (host-key    "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIFxlIhNlkWCNA+l/RiOJztB+VWhuJtDTUvSwwlE3MpgJ root@mcdowell")
-    (private-key "/home/marek/.ssh/id_ed25519")))
-
-(define guix-offload-rakan
-  (gnu:services:base:guix-extension
-    (authorized-keys (list deployment:keys:rakan-guix))
-    (build-machines  (list rakan-machine))))
-
-(define-public system
-  (let*
-    ( (l-guix-homes         (list users:id1000:named-home-environment))
-      (l-guix-home-service  (sovereign:systems:guix-home-service  l-guix-homes))
-      (l-bootloader         (sovereign:devices:amd64:custom-bootloader-configuration  system-name))
-      (l-file-systems       (cons*  file-system-root
-                                    file-system-efi
-                                    gnu:system:file-systems:%base-file-systems))
-      (l-firmware           (list nongnu:packages:linux:linux-firmware))
-      (l-initrd-modules     (cons*  "mei_me"
-                                    gnu:system:linux-initrd:%base-initrd-modules))
-      (l-services           (cons*  l-guix-home-service
-                                    sovereign:packages:protonmail:nogui-profile
-                                    (gnu:services:simple-service 'offload-rakan
-                                                                 gnu:services:base:guix-service-type
-                                                                 guix-offload-rakan)
-                                    sovereign:systems:%sovereign-services))
-      (l-swap-devices       (list swap))
-      (l-users              (cons*  users:id1000:uid1000-account
-                                    gnu:system:shadow:%base-user-accounts)))
-    (gnu:system:operating-system
-      (kernel             nongnu:packages:linux:linux)
-      (bootloader         l-bootloader)
-      (label              (sovereign:systems:operating-system-label* system-name
-                                                                     gnu:system:this-operating-system))
-      (keyboard-layout    sovereign:devices:pl-keyboard-layout)
-      (initrd             nongnu:system:linux-initrd:microcode-initrd)
-      (initrd-modules     l-initrd-modules)
-      (firmware           l-firmware)
-      (host-name          system-name)
-      (file-systems       l-file-systems)
-      (swap-devices       l-swap-devices)
-      (users              l-users)
-      (timezone           "Europe/Warsaw")
-      (locale             sovereign:systems:pl-locale)
-      (locale-definitions sovereign:systems:%sovereign-locale-definitions)
-      (services           l-services)
-      (sudoers-file       sovereign:systems:%sovereign-sudoers-specification))))
-
-(define-public operating-system* system)