SYSTEM

(define-syntax import-from (syntax-rules ()
  ((_ ((partial ...) ((completion ...) symbols ...)))
    (import (only (partial ... completion ...) symbols ...)))
  ((_ (partial completion rest ...)) (begin
    (import-from (partial completion))
    (import-from (partial rest ...))))
  ((_ library rest ...) (begin
    (import-from library)
    (import-from rest ...)))))



(import-from

((guix gexp)
  (()               local-file
                    plain-file))
((gnu system)
  ((uuid)           uuid)
  ((keyboard)       keyboard-layout)
  ((file-systems)   %base-file-systems
                    file-system
                    swap-space))
((gnu bootloader)
  (()               bootloader-configuration)
  ((grub)           grub-efi-bootloader))
((gnu services)
  ((base)           %default-substitute-urls
                    %default-authorized-guix-keys
                    guix-configuration
                    guix-service-type)
  ((xorg)           xorg-configuration
                    set-xorg-configuration)
  ((desktop)        %desktop-services
                    bluetooth-service
                    gnome-desktop-service-type
                    xfce-desktop-service-type)
  ((cups)           cups-service-type
                    cups-configuration)
  ((sound)          ladspa-service-type
                    ladspa-configuration
                    pulseaudio-service-type)
  ((virtualization) libvirt-service-type
                    virtlog-service-type))
((gnu packages)
  ((audio)          swh-plugins)
  ((certs)          nss-certs)
  ((wm)             i3-gaps
                    i3status)
  ((cups)           hplip-minimal)
  ((suckless)       dmenu))
((nongnu packages)
  ((linux)          linux
                    linux-firmware))

)



(define keyboard-layout (keyboard-layout "us" #:options (list
  "compose:ralt"))) ; RIGHT ALT FOR CHARACTERS NOT ON KEYBOARD.
                    ; TAP IN SEQUENCE, ALT, A, E, GIVES Æ.

(operating-system
  (bootloader (bootloader-configuration
    (bootloader grub-efi-bootloader)
    (targets (list "/UEFI"))
    (keyboard-layout keyboard-layout)))

  (kernel linux)
  (firmware (list linux-firmware))

  (host-name "1920")

  (timezone "America/New_York")
  (locale "en_US.utf8")
  (keyboard-layout keyboard-layout)

  (services (modify-services
    (append %desktop-services (list
      (bluetooth-service #:auto-enable? #t)
      (service gnome-desktop-service-type)
      (service libvirt-service-type)
      (service virtlog-service-type)
      (service xfce-desktop-service-type)
      (service ladspa-service-type (ladspa-configuration
        (plugins (list
          swh-plugins))))
      (service cups-service-type (cups-configuration
        (web-interface? #t)
        (extensions (list
          hplip-minimal))))
      (set-xorg-configuration (xorg-configuration
        (keyboard-layout keyboard-layout)))))
    (guix-service-type config => (guix-configuration
      (inherit config)
      (substitute-urls (append %default-substitute-urls (list
        "HTTPS://SUBSTITUTES.NONGUIX.ORG")))
      (authorized-keys (append %default-authorized-guix-keys (list
        (local-file "KEYS/NONGUIX"))))))))

  (packages (append %base-packages (list
    dmenu
    i3-gaps
    i3status
    nss-certs)))

  (groups (append %base-groups (list
    (user-group
      (name "PRIVATE")
      (system? #t)))))

  (users (append %base-user-accounts (list
    (user-account
      (name "MASON1920")
      (group "users") ; MAN, UNMACHINE.
      (home-directory "/MASON1920")
      (supplementary-groups (list
        "audio" ; PLAY SOUND
        "kvm" ; HARDWARE ACCELERATED VIRTUALIZATION
        "libvirt"
        "lp" ; PRINTER
        "netdev" ; NETWORK INTERFACE MANAGEMENT
        "video" ; VIDEO INPUT (WEBCAM)
        "wheel")))))) ; SUDO

  (file-systems (append %base-file-systems (list
    (file-system
      (mount-point "/")
      (needed-for-boot? #t)
      (device (uuid "9FB64C3D-4E54-4F9A-A5EE-7E333D52522C"))
      (type "ext4"))
    (file-system
      (mount-point "/UEFI")
      (device (uuid "90E9-220F" 'fat32))
      (type "vfat")))))

  (swap-devices (list
    (swap-space (target (uuid "4C7B0129-03AF-4D50-B77B-4B1AA82A6ADA"))))))