(use-modules
  ((org euandre queue) #:prefix q:)
  ((org euandre packages) #:prefix pkg:)
  ((org euandre papo) #:prefix papo:)
  (gnu))
(use-package-modules)
(use-service-modules
  certbot
  cgit
  dns
  mail
  networking
  security
  ssh)

(define (path s)
  (string-append (dirname (dirname (dirname (current-filename)))) "/" s))

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

(define-public papod-service-type
  (pkg:service-type-for 'papod
                        papo:<papod-configuration>
                        (papo:papod-configuration)
                        '()))



(operating-system
  (host-name "a-internet-test-host")
  (skeletons pkg:skeletons)
  (users (append (pkg:user-accounts +users+) %base-user-accounts))
  (services
    (append
     (list
      (service ntp-service-type)
      (service dhcp-client-service-type)
      (service fail2ban-service-type)
      (service pkg:binder-service-type)
      (service pkg:glaze-service-type)
      (service pkg:hsts-service-type)
      (service pkg:untls-service-type)
      (service pkg:wscat-service-type)
      (service papod-service-type)
      (service knot-service-type
        (q:knot-zones-configuration "euandre.org" "1.2.3.4" "1:2:3:4:5:6:7:8"))
      (service openssh-service-type
        (q:openssh-default-configuration (pkg:users->keys +users+)))
      (service certbot-service-type (q:tld-certbot-configuration "tld.local"))
      (service cgit-service-type q:cgit-pre-configuration)
      (service pkg:syskeep-service-type)
      (service q:shadow-group-service-type)
      (service q:dkimproxyout-service-type)
      (service q:cyrus-sasl-service-type)
      (service q:dovecot2-service-type)
      (service q:internet-postfix-service-type)
      (service mail-aliases-service-type '()))
     pkg: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)))