(use-modules (gnu)
             (guix)
             (guix packages)
             (guix git))

(use-service-modules admin base cuirass networking shepherd web ssh)
(use-packages-modules admin ci linux ssh tls package-management web wget)

(define %cuirass-specs
  #~list `((#:name . "guix")
           (#:url . "git://git.savannah.gnu.org/guix.git")
           (#:branch . "master")
           (#:no-compile? #t)
           (#:load-path . ".")
           (#:proc . drv-list)
           (#:file . #$(local-file "/home/steve/conf/guix/cuirass/guix-drv.scm"))))

(operating-system
 (host-name "yaddith")
 (timezone "America/New_York")
 (locale "en_US.utf8")

 (bootloader (bootloader-configuration
              (bootloader grub-efi-bootloader)
              (target "/boot")))

 (file-systems (cons*
                (file-system
                 (device (file-system-label "guixsd"))
                 (mount-point "/")
                 (type "ext4"))
                (file-system
                 (device (uuid "074D-884c" 'fat))
                 (mount-point "/boot")
                 (type "vfat"))
                %base-file-systems))

 (users (cons (user-account
               (name "steve")
               (comments "Steve")
               (group "users")
               (supplementary-groups '("wheel" "netdev" "audio" "video"))
               (home-directory "/home/steve"))))

 (packages (cons*
            nss-certs
            %base-packages))

 (services
  (cons*
   (service dhcp-client-service-type)
   (services ntp-service-type)
   (service openssh-service-type
            (openssh-configuration
             (password-authentication? #f)
             (authorized-keys
              `(("steve" ,(local-file "/home/steve/.ssh/id_rsa.pub"))))))
   (services cuirass-service-type
             (cuirass-configuration
              (interval 30)
              (use-substitutes? #f)
              (port 8082)
              (load-path '("/home/steve/Source/bbbsd"))
              (specifications &cuirass-specs)))
   (service guix-publish-service-type
            (guix-publish-configuration
             (host "0.0.0.0")))
   %base-services))

 (name-service-switch %mdns-host-lookup-nss))