(define-module (vkraus modules cuirass)
  #:use-module (gnu services)
  #:use-module (gnu services admin)
  #:use-module (gnu services cuirass)
  #:use-module (guix gexp)
  #:use-module (guix modules)
  #:use-module (guix records)
  #:use-module (ice-9 match)
  #:use-module (ice-9 optargs)
  #:export (cuirass-service)
  #:declarative? #t)

(define cuirass-service
  (service cuirass-service-type
           (cuirass-configuration
            (port 8089)
            (specifications
             #~(list
                (specification
                 (name "disfluid-master")
                 (build '(channels disfluid-channel))
                 (channels
                  `(,(channel
                      (name 'disfluid-channel)
                      (url "file:///srv/git/disfluid.git")
                      (branch "guix"))
                    ,(channel
                      (name 'guix)
                      (url "/srv/git/guix.git")
                      (branch "master")
                      (introduction (make-channel-introduction
		                     "9edb3f66fd807b096b48283debdcddccfea34bad"
		                     (openpgp-fingerprint
		                      "BBB0 2DDF 2CEA F6A8 0D1D  E643 A2A0 6DF2 A33A 54FA"))))))
                 (systems
                  '("x86_64-linux" "i686-linux")))
                (specification
                 (name "disfluid-core-updates")
                 (build '(channels disfluid-channel))
                 (channels
                  `(,(channel
                      (name 'disfluid-channel)
                      (url "file:///srv/git/disfluid.git")
                      (branch "guix"))
                    ,(channel
                      (name 'guix)
                      (url "/srv/git/guix.git")
                      (branch "core-updates")
                      (introduction (make-channel-introduction
		                     "9edb3f66fd807b096b48283debdcddccfea34bad"
		                     (openpgp-fingerprint
		                      "BBB0 2DDF 2CEA F6A8 0D1D  E643 A2A0 6DF2 A33A 54FA"))))))
                 (systems
                  '("x86_64-linux" "i686-linux")))
                (specification
                 (name "disfluid-core-updates-frozen")
                 (build '(channels disfluid-channel))
                 (channels
                  `(,(channel
                      (name 'disfluid-channel)
                      (url "file:///srv/git/webid-oidc-channel.git"))
                    ,(channel
                      (name 'guix)
                      (url "/srv/git/guix.git")
                      (branch "core-updates-frozen")
                      (introduction (make-channel-introduction
		                     "9edb3f66fd807b096b48283debdcddccfea34bad"
		                     (openpgp-fingerprint
		                      "BBB0 2DDF 2CEA F6A8 0D1D  E643 A2A0 6DF2 A33A 54FA"))))))
                 (systems
                  '("x86_64-linux" "i686-linux"))))))))