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

;;;

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

(define-module (cogd packages emacs-xyz))

(use-modules (gnu packages emacs-xyz))

(re-export emacs-go-translate)

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

;;;

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

(define-module (cogd packages engineering))

(use-modules (gnu packages engineering))

(re-export pcb2gcode

           bcnc

           aacircuit)

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

;;;

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

(define-module (cogd packages figlet))

(use-modules (gnu packages figlet))

(re-export toilet)

(re-export guile-mqtt)

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

;;;

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

(define-module (cogd packages hardware))

(use-modules (gnu packages hardware))

(re-export python-usbrelay)

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

;;;

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

(define-module (cogd packages python-xyz))

(use-modules (guix deprecation)

             (gnu packages engineering)

             (gnu packages python-compression)

             (gnu packages python-web)

             (gnu packages python-xyz)

             (gnu packages xdisorg))

(re-export python-bresenham

           python-pyclip

           python-pypubsub

           python-shxparser

           python-platypush)

(define-deprecated/public-alias python-zipp-3 python-zipp)

(define-deprecated/public-alias python-urllib3-for-platypush python-urllib3)

(use-modules (guix records)

             (guix gexp)

             (gnu packages dns)

             (gnu packages admin)

             (gnu system shadow)

             (gnu services)

(export unbound-configuration

        unbound-configuration?

        unbound-configuration-package

        unbound-configuration-config-file

        unbound-configuration-requirement

        unbound-service-type)

(define-record-type* <unbound-configuration>

  unbound-configuration

  make-unbound-configuration

  unbound-configuration?

  (package     unbound-configuration-package

               (default unbound))

  (config-file unbound-configuration-config-file

               (default #f))

  (requirement unbound-configuration-requirement

               (default '(user-processes loopback))))

(define unbound-accounts

  (const

   (list (user-group

          (name "unbound")

          (system? #t))

         (user-account

          (name "unbound")

          (group "unbound")

          (system? #t)

          (home-directory "/var/empty")

          (shell (file-append shadow "/sbin/nologin"))))))

(define (unbound-shepherd-service config)

  (match-record

   config <unbound-configuration>

   (package config-file requirement)

   (list (shepherd-service

          (documentation "Run the Unbound DNS resolver.")

          (provision '(unbound))

          (requirement requirement)

          (start #~(make-forkexec-constructor

                    (list #$(file-append package "/sbin/unbound")

                          "-d" "-p"

                          #$@(if config-file

                                 (list "-c" config-file)

                                 '()))))

          (stop #~(make-kill-destructor))))))

(define unbound-service-type

   (description "Run the Unbound DNS resolver.")

   (name 'unbound)

   (extensions

    (list (service-extension account-service-type unbound-accounts)

          (service-extension shepherd-root-service-type unbound-shepherd-service)))

   (default-value (unbound-configuration))))

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

;;;

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

(define-module (cogd services unbound))

(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)))))