* Guix
:PROPERTIES:
:header-args: :mkdirp yes :tangle ~/.config/guix/config.scm
:END:
** Import Modules
#+begin_src scheme
(use-modules
  (gnu)
  (gnu system setuid)
  (gnu packages package-management)
  (gnu packages wm)
  (gnu packages emacs)
  (gnu packages terminals)
  (gnu packages xdisorg)
  (guix))
(use-service-modules
  sound
  networking
  ssh
  xorg
  dbus
  desktop)
#+end_src
** Locales
;#+begin_src scheme
(define %my-locales
  (list
    '(locale "en_US.utf8")
    '(timezone "America/Boise")
    '(keyboard-layout (keyboard-layout "us"))))
;#+end_src
** Users
#+begin_src scheme
(define %my-users
  (cons*
    (user-account
      (name "leela")
      (comment "Leela Lee Sulane")
      (group "users")
      (home-directory "/home/leela")
      (supplementary-groups '("wheel" "netdev" "audio"
                             "video" "seat" "input" "messagebus")))
    %base-user-accounts))
#+end_src
** Packages
#+begin_src scheme
(define %my-packages
  (append
    (list
      sway
      swaylock
      emacs-no-x
      rofi
      foot)
    %base-packages))
#+end_src
** Services
#+begin_src scheme
(define %my-services
  (append
    (list
      (service network-manager-service-type)
      (service wpa-supplicant-service-type)
      (service ntp-service-type)
      (service alsa-service-type)
      (service pulseaudio-service-type)
      (service seatd-service-type)
      (service gpm-service-type)
      (service screen-locker-service-type
        (screen-locker-configuration
          (name "swaylock")
          (program (file-append swaylock "/bin/swaylock"))
          (using-pam? #t)
          (using-setuid? #f))))
    %base-services))
#+end_src
** Kernel Arguments
#+begin_src scheme
(define %my-kernel-args
  (list
    "loglevel=3"
    "consoleblank=0"))
#+end_src
** File Systems
#+begin_src scheme
(define %my-filesystem
  (cons*
    (file-system
      (mount-point "/mount/muStuff")
      (device (uuid
               "83aeb967-4319-4242-bac2-d6e799fa41c7"
               'ext4))
      (type "ext4"))
    (file-system
      (mount-point "/")
      (device (uuid
               "34e11185-535a-4312-aba3-0251cfb9b8e9"
               'btrfs))
      (type "btrfs"))
    (file-system
      (mount-point "/boot/efi")
      (device (uuid "9FEB-6ED7"
                    'fat32))
      (type "vfat"))
   %base-file-systems))
#+end_src
** Swap Devices
#+begin_src scheme
(define %my-swap
  (list (swap-space (target (file-system-label "linux_swap")))))
#+end_src
** Bootloader
;#+begin_src scheme
(define %my-bootloader
  (boot-configuration
    (bootloader grub-efi-bootloader)
    (theme (grub-theme
      (inherit (grub-theme))
      (gfxmode '("1024x786x32" "auto"))))
    (menu-entries (list
      (menu-entry
        (label "Haiku")
        (device (uuid "0C71-1634" 'fat))
        (chain-loader "/EFI/BOOT/BOOTX64.EFI"))
      (menu-entry
        (label "Debian")
        (device (uuid "9FEB-6ED7" 'fat))
        (chain-loader "/EFI/debian/grubx64.efi"))))))
;#+end_src
** Move Locals/Bootloader, Apply to Operating System
#+begin_src scheme
(operating-system
  (host-name "miso")

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

  (users %my-users)
  (packages  %my-packages)
  (services %my-services)

  (issue "\
Wanna go around again?\n
----------------------\n\n")

  (file-systems %my-filesystem)
  (swap-devices %my-swap)
  (kernel-arguments %my-kernel-args)
  (bootloader (bootloader-configuration
    (bootloader grub-efi-bootloader)
    (menu-entries (list
      (menu-entry
        (label "Haiku")
        (device (uuid "0C71-1634" 'fat))
        (chain-loader "/EFI/BOOT/BOOTX64.EFI"))
      (menu-entry
        (label "Debian")
        (device (uuid "9FEB-6ED7" 'fat))
        (chain-loader "/EFI/debian/grubx64.efi")))))))
#+end_src