(use-modules
  ((org euandre queue) #:prefix q:)
  ((org euandre services) #:prefix serv:)
  (gnu))
(use-package-modules)
(use-service-modules
  certbot
  cgit
  mail
  networking
  security
  ssh)

(define (path s)
  (serv:str (dirname (dirname (dirname (current-filename)))) "/" s))

(define +users+
  `(("user1"   "I'm a user"  ())
    ("another" "Description" ("wheel") ,(path "tests/internet/key.txt"))))

(operating-system
  (host-name "a-internet-test-host")
  (skeletons serv:skeletons)
  (users (append (serv:user-accounts +users+) %base-user-accounts))
  (services
    (append
     (list
      (service ntp-service-type)
      (service dhcp-client-service-type)
      (service fail2ban-service-type)
      (service serv:binder-service-type)
      (service serv:glaze-service-type)
      (service serv:untls-service-type)
      (service serv:wscat-service-type)
      (service serv:papod-service-type)
      (service openssh-service-type (q:openssh-default-configuration (serv:users->keys +users+)))
      (service certbot-service-type (q:tld-certbot-configuration "tld.local"))
      (service cgit-service-type q:cgit-pre-configuration)
      (service serv:syskeep-service-type)
      (service q:shadow-group-service-type)
      (service q:dkimproxyout-service-type)
      (service q:cyrus-sasl-service-type)
      (service q:dovecot-service-type)
      (service q:internet-postfix-service-type)
      (service mail-aliases-service-type '()))
     serv:base-services))
  (bootloader
    (bootloader-configuration
      (bootloader grub-bootloader)))
  (file-systems
    (append
     (list
      (file-system
        (mount-point "/")
        (type "btrfs")
        (device
          (uuid "2c66de32-dde7-ea35-750a-a1ca47a58d45" 'btrfs))))
     %base-file-systems)))