From 93c2d1725726bd0addc21a8e7796e63215e73081 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Thu, 23 May 2024 10:14:32 +0200 Subject: ayase: remove the org file: drop literate programming --- systems/ayase/guix-ayase.org | 92 -------------------------------------------- 1 file changed, 92 deletions(-) delete mode 100644 systems/ayase/guix-ayase.org diff --git a/systems/ayase/guix-ayase.org b/systems/ayase/guix-ayase.org deleted file mode 100644 index 856b91b..0000000 --- a/systems/ayase/guix-ayase.org +++ /dev/null @@ -1,92 +0,0 @@ -* System Configuration - -[[https://guix.gnu.org/manual/devel/en/html_node/System-Configuration.html]] - -** operating-system Reference - -[[https://guix.gnu.org/manual/devel/en/html_node/operating_002dsystem-Reference.html]] - -#+NAME: OPERATING-SYSTEM -#+BEGIN_SRC scheme :tangle system-configuration.scm - (define-module (systems ayase system-configuration) - #:use-module (gnu) - #:use-module (gnu services cups) - #:use-module (gnu services desktop) - #:use-module (gnu services networking) - #:use-module (gnu services ssh) - #:use-module (gnu services xorg)) - - ;; DATA - - ;; ABSTRACTION 2 - - (define efi-partition - (file-system (mount-point "/boot/efi") - (device (uuid "B4FB-CBD9" 'fat32)) - (type "vfat"))) - - (define keyboard-layout - (keyboard-layout "pl")) - - (define marek-account - (user-account (name "marek") - (comment "Marek Paśnikowski") - (group "users") - (home-directory "/home/marek") - (supplementary-groups (list "wheel" - "netdev" - "audio" - "video")))) - - (define root-partition - (file-system (mount-point "/") - (device (uuid "615a98cd-a632-4ee5-a6f4-e5ebcaa6fb8c" 'ext4)) - (type "ext4"))) - - ;; ABSTRACTION 1 - - (define ayase-file-systems - (list root-partition - efi-partition)) - - (define ayase-user-accounts - (list marek-account)) - - (define bootloader - (bootloader-configuration (bootloader grub-efi-bootloader) - (targets (list "/boot/efi")) - (keyboard-layout keyboard-layout))) - - (define main-swap - (swap-space (target (uuid "cc6bbf7c-e42a-4ac3-a9ae-3b14d3b4b841")))) - - (define system-packages - (list (specification->package "emacs") - (specification->package "emacs-exwm") - (specification->package "emacs-desktop-environment"))) - - (define system-services - (list (service openssh-service-type) - (service tor-service-type) - (service cups-service-type))) - - ;; PUBLIC - - (operating-system (bootloader bootloader) - (keyboard-layout keyboard-layout) - (host-name "ayase") - (file-systems (append %base-file-systems - ;; %distribution-file-systems - ayase-file-systems)) - (swap-devices (list main-swap)) - (users (append %base-user-accounts - ayase-user-accounts)) - (packages (append %base-packages - ;; %distribution-packages - system-packages)) - (timezone "Europe/Warsaw") - (locale "pl_PL.utf8") - (services (append %desktop-services - ;; %distribution-services - system-services))) -#+END_SRC -- cgit v1.2.3