;;; SPDX-FileCopyrightText: 2025 Evgeny Pisemsky <mail@pisemsky.site>

;;;

;;; SPDX-License-Identifier: GPL-3.0-or-later

(list (channel

       (name 'guix)

       (url "https://codeberg.org/guix/guix")

       (introduction

        (make-channel-introduction

         "9edb3f66fd807b096b48283debdcddccfea34bad"

         (openpgp-fingerprint

          "BBB02DDF2CEAF6A80D1DE643A2A06DF2A33A54FA"))))

      (channel

       (name 'cogd)

       (url "https://repo.pisemsky.site/git/cogd")

       (introduction

        (make-channel-introduction

         "fcdf9f9ce0d8d0ebd035fa55ec7c1ddd6890e728"

         (openpgp-fingerprint

          "15FF37F790C1BADB35B3752BE3D3B72AB5733021")))))

      (package

        (inherit gitile-guix)

        (version "0.1.5")

        (source

         (origin

           (method git-fetch)

           (uri (git-reference

                  (url "https://repo.pisemsky.site/git/gitile")

                  (commit version)))

           (file-name (git-file-name (package-name gitile-guix) version))

           (sha256

            (base32 "0skjkjvs9bk8pd2g63j29cpdnpaljs2n6j2c3ljx33k3vk01xd2z"))))))))

(use-modules (gnu services)

             (gnu services dns)

             (gnu services shepherd))

(export unbound-service-type/fixed)

(define unbound-shepherd-service

  (@@ (gnu services dns) unbound-shepherd-service))

(define (unbound-shepherd-service/fixed config)

  (let ((unfixed (unbound-shepherd-service config)))

    (list (shepherd-service

           (inherit (car unfixed))

           (provision '(unbound))))))

(define unbound-service-type/fixed

  (service-type

   (inherit unbound-service-type)

   (extensions (map (lambda (ext)

                      (if (eq? (service-extension-target ext)

                               shepherd-root-service-type)

                          (service-extension shepherd-root-service-type

                                             unbound-shepherd-service/fixed)

                          ext))

                    (service-type-extensions unbound-service-type)))))

(use-modules (guix gexp)

             (gnu services version-control)

             (gnu services web))

(export git-http-nginx-location-configuration/fixed)

(define (git-http-backend-gitconfig git-root)

  (plain-file "gitconfig"

              (string-append "[safe]\n\tdirectory = " git-root "/*\n")))

(define git-http-configuration-git-root

  (@@ (gnu services version-control) git-http-configuration-git-root))

(define git-http-nginx-location-configuration/fixed

  (lambda* (#:optional (config (git-http-configuration)))

    (let* ((git-root (git-http-configuration-git-root config))

           (gitconfig (git-http-backend-gitconfig git-root))

           (unfixed (git-http-nginx-location-configuration config)))

      (nginx-location-configuration

       (uri (nginx-location-configuration-uri unfixed))

       (body (cons* (list "fastcgi_param GIT_CONFIG_GLOBAL " gitconfig ";")

                    (nginx-location-configuration-body unfixed)))))))