(define-module (system base)
  #:export (make-system))

(use-modules (gnu)
             (gnu system setuid)
             (nongnu packages linux)
             (nongnu system linux-initrd))
(use-package-modules avahi bash nfs)
(use-service-modules admin avahi cups dbus desktop networking nfs ssh xorg)

(define-public (make-swap swap-devices)
  (map (lambda (x)
         (swap-space
          (target x)))
       swap-devices))

(define-public (make-fs mount-point fs-device fs-type)
  (file-system
   (mount-point mount-point)
   (device fs-device)
   (type fs-type)))

(define* (make-system #:key
                      (use-nonguix? #f)
                      host-name
                      (locale "en_US.utf8")
                      (timezone "UTC")
                      (kbd-layout "us")
                      user-login
                      user-fullname
                      (packages '())
                      swap-device
                      root-device
                      efi-device
                      role)
  (operating-system
   (kernel (if use-nonguix?
             linux
             linux-libre))
   (initrd (if use-nonguix?
             microcode-initrd
             base-initrd))
   (firmware (if use-nonguix?
               (list linux-firmware)
               '()))

   (host-name host-name)
   (locale locale)
   (timezone timezone)
   (keyboard-layout (keyboard-layout kbd-layout))
   (name-service-switch %mdns-host-lookup-nss)

   (users (cons* (user-account
                  (name user-login)
                  (comment user-fullname)
                  (group "users")
                  (home-directory "/home/christopher")
                  (supplementary-groups '("wheel" "netdev" "audio" "video")))
                 %base-user-accounts))

   (packages (append (specifications->packages packages)
                     %base-packages))

   (setuid-programs
    (append (list (setuid-program
                   (program (file-append nfs-utils "/sbin/mount.nfs"))))
            %setuid-programs))

   (services
    (append (list
             (service dhcpcd-service-type)
             (service nfs-service-type (nfs-configuration))
             (service avahi-service-type (avahi-configuration))
             (service openssh-service-type
                      (openssh-configuration
                       (password-authentication? #f)
		       (authorized-keys
			 `(("christopher" ,(local-file "christopher.pub"))))))
             (service ntp-service-type)
             (service package-database-service-type)
             (service unattended-upgrade-service-type))

            (if use-nonguix?
              (modify-services %base-services
                               (guix-service-type config =>
                                                  (guix-configuration
                                                   (inherit config)
                                                   (substitute-urls
                                                    (append (list "https://substitutes.nonguix.org")
                                                            %default-substitute-urls))
                                                   (authorized-keys
                                                    (append (list (local-file "./nonguix-signing-key.pub"))
                                                            %default-authorized-guix-keys)))))
              %base-services)))

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

   (swap-devices swap-device)
   (file-systems
    (cons* root-device
           efi-device
           %base-file-systems))))