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

  (define keyboard-layout
    '(keyboard-layout "pl"))

  (define main-memory
    '(target (uuid "cc6bbf7c-e42a-4ac3-a9ae-3b14d3b4b841")))

  (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 xorg-configuration
    (xorg-configuration (keyboard-layout keyboard-layout)))

  (define ayase-user-accounts
    (list marek-account))

  (define bootloader
    (bootloader-configuration (bootloader grub-efi-bootloader)
                              (targets (list "/boot/efi"))
                              (keyboard-layout keyboard-layout)))

  (define efi-partition
    (file-system (mount-point "/boot/efi")
                 (device (uuid "B4FB-CBD9" 'fat32))
                 (type "vfat")))

  (define root-partition
    (file-system (mount-point "/")
                 (device (uuid "615a98cd-a632-4ee5-a6f4-e5ebcaa6fb8c" 'ext4))
                 (type "ext4")))

  (define swap-devices
    (list (swap-space main-memory)))

  (define system-packages
    (list (specification->package "emacs")
          (specification->package "emacs-exwm")
          (specification->package "emacs-desktop-enfironment")))

  (define system-services
    (list (service openssh-service-type)
          (service tor-service-type)
          (service cups-service-type)
          (set-xorg-configuration xorg-configuration)))

  (operating-system (bootloader bootloader)
                    (keyboard-layout keyboard-layout)
                    (host-name "ayase")
                    (file-systems (append %base-file-systems
                                          efi-partition
                                          root-partition))
                    (swap-devices swap-devices)
                    (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