(use-modules
 (gnu)
 (guix monads)
 (guix store)
 ((guix build utils) #:select (alist-replace))
 (guix packages)
 (gnu packages linux)
 (gnu packages package-management)
 (gnu services base))

(define linux-libre-x86_64
  (package
    (inherit linux-libre)
    (arguments `(#:system "x86_64-linux"
                 #:tests? #f
                 ,@(package-arguments linux-libre)))
    (native-inputs
     (alist-replace "kconfig" (list "/mnt/storage/src/guix/gnu/packages/linux-libre-x86_64.conf")
                    (package-native-inputs linux-libre)))))

(define guix-x86_64
  (package
    (inherit guix)
    (arguments `(#:system "x86_64-linux"
                 #:tests? #f
                 ,@(package-arguments guix)))))

(define %services
  ;; Make sure the ‘guix-daemon’ services uses ‘guix-x86_64’.
  (map (lambda (mservice)
         (mlet %store-monad ((service mservice))
               (if (memq 'guix-daemon (service-provision service))
                   (guix-service #:guix guix-x86_64)
                   (return service))))
       %base-services))

(operating-system
  (host-name "host")
  (timezone "Europe/Moscow")

  (kernel linux-libre-x86_64)

  (bootloader
   (grub-configuration (device "/dev/sda")))

  (file-systems
   (cons* (file-system
            (device "guix")
            (title 'label)
            (mount-point "/")
            (type "ext4"))
          %base-file-systems))

  (users
   (list (user-account
          (name "al")
          (uid 1000)
          (home-directory "/home/al")
          (group "users")
          (supplementary-groups
           '("wheel" "audio" "video")))))

  (packages
   (cons* iproute
          %base-packages))

  (services
   (cons* (console-keymap-service "dvorak")
          %services)))