cogd

Evgeny PisemskySun Aug 17 09:30:09+0300 2025

659dc44

Remove cogd-manual

README.md

 <!--
 SPDX-FileCopyrightText: 2025 Evgeny Pisemsky <mail@pisemsky.site>
 SPDX-License-Identifier: GPL-3.0-or-later
 -->
 # Channel of guix definitions
 ## Setup
 ```
 to your guix channel configuration file, save it, and run `guix pull`.
 ## Services
 ### USB relay daemon
 USB relay daemon allows controlling locally connected USB HID relays remotely via MQTT protocol.
 * Variable: `usbrelayd-service-type`
   This is the service type for the USB relay daemon.  Its value is a `usbrelayd-configuration` (see below).
 * Data Type: `usbrelayd-configuration`
   This is the configuration for the USB relay daemon, with the following fields:
   * `package` (default: `python-usbrelay`)
     The package containing the USB relay daemon.
   * `mqtt-broker` (default: `"localhost"`)
     The hostname or IP address of the MQTT broker.
   * `mqtt-client` (default: `"usbrelayd"`)
     The client name used when connecting to the broker.
 ## Copying
 SPDX-FileCopyrightText: 2025 Evgeny Pisemsky <mail@pisemsky.site>
 SPDX-License-Identifier: GPL-3.0-or-later

make.scm unknown status 2

 #!/usr/bin/env sh
 exec guile -s "$0" "$@"
 !#
 ;;; SPDX-FileCopyrightText: 2025 Evgeny Pisemsky <mail@pisemsky.site>
 ;;;
 ;;; SPDX-License-Identifier: GPL-3.0-or-later
 (use-modules (potato make))
 (chdir (dirname (current-filename)))
 (initialize)
 (: "lint" '()
    "reuse lint")
 (: "reuse" '()
    (lambda ()
      (system*
       "reuse" "annotate"
       "-c" "Evgeny Pisemsky <mail@pisemsky.site>"
       "-l" "GPL-3.0-or-later"
       "-r" "."
       "--skip-existing"
       "--skip-unrecognised")))
 (: "info" '("manuals/cogd.info"))
 (: "manuals/cogd.info" '("manuals/cogd.skb")
    "skribilo -t info -o manuals/cogd.info manuals/cogd.skb")
 (exit (execute))
 ;; Local Variables:
 ;; mode: scheme
 ;; End:

manifest.scm unknown status 2

 ;;; SPDX-FileCopyrightText: 2025 Evgeny Pisemsky <mail@pisemsky.site>
 ;;;
 ;;; SPDX-License-Identifier: GPL-3.0-or-later
 (specifications->manifest
   (list "guile" "potato-make" "reuse" "skribilo"))

manuals/cogd.skb unknown status 2

 ;;; SPDX-FileCopyrightText: 2025 Evgeny Pisemsky <mail@pisemsky.site>
 ;;;
 ;;; SPDX-License-Identifier: GPL-3.0-or-later
 (document :title "Channel of guix definitions"
           :author (list (author :name "Evgeny Pisemsky"
                                 :email (mailto "mail@pisemsky.site")))
           :info-dir-entry "Channel of guix definitions"
           :info-dir-category "System administration"
   (chapter :title [Modules]
     (section :title [Services]
       (subsection :title [USB relay daemon]
         (p [USB relay daemon allows controlling locally connected USB HID relays remotely via MQTT protocol.])
         (description
          (item :key (list [Variable: ,(code [usbrelayd-service-type])])
                (p [This is the service type for the USB relay daemon.  Its value is a ,(code [usbrelayd-configuration]) (see below).]))
          (item :key (list [Data Type: ,(code [usbrelayd-configuration])])
                (p [This is the configuration for the USB relay daemon, with the following fields:])
                (description
                 (item :key (list [,(code [package]) (default: ,(code [python-usbrelay]))])
                       (p [The package containing the USB relay daemon.]))
                 (item :key (list [,(code [mqtt-broker]) (default: ,(code ["localhost"]))])
                       (p [The hostname or IP address of the MQTT broker.]))
                 (item :key (list [,(code [mqtt-client]) (default: ,(code ["usbrelayd"]))])
                       (p [The client name used when connecting to the broker.])))))))))

modules/cogd/packages/guile-xyz.scm

 (use-modules (guix packages)
              (guix git-download)
              (guix gexp)
              (guix utils)
              ;; (guix utils)
              (guix build-system guile)
              (guix build-system copy)
              ((guix licenses) #:prefix license:)
              (gnu packages skribilo)
              (gnu packages bash)
              (gnu packages build-tools)
              ;; (gnu packages build-tools)
              (gnu packages guile))
 (define-public guile-gpio
       (description
        "This package provides a very simple pastebin written in Guile Scheme.")
       (license license:gpl3+))))
 (define-public cogd-manual
   (package
     (name "cogd-manual")
     (version "git")
     (source
      (local-file "../../.."
                  "cogd-checkout"
                  #:recursive? #t
                  #:select? (or (git-predicate
                                 ((compose dirname dirname dirname)
                                  (current-source-directory)))
                                (const #t))))
     (build-system copy-build-system)
     (arguments
      (list
       #:install-plan
       #~'(("manuals/cogd.info" "share/info/"))
       #:phases
       #~(modify-phases %standard-phases
           (add-before 'install 'build
             (lambda _
               (setenv "GUILE_AUTO_COMPILE" "0")
               (invoke "guile" "make.scm" "info"))))))
     (native-inputs (list guile-3.0 potato-make skribilo))
     (home-page "https://repo.pisemsky.site/cogd")
     (synopsis "Manual for the cogd")
     (description
      "This package provides an info manual for the \"Channel of guix
 definitions\".")
     (license license:gpl3+)))