Add guile-pastebin

Evgeny PisemskySat Feb 22 11:00:11+0300 2025

978a992

Add guile-pastebin

modules/cogd/packages/engineering.scm

4141 
           "19hyzd1601l51bwlv43j8l602nfacbjwqf54m5xsmj50718bcks2")))))))
4242 
4343 
(define-public aacircuit
44-
  (let ((commit "359ec487c5211ec73b0d283695091ba38f5cc5a7")
44+
  (let ((commit "18635c846754b6219da1a2ceb8977714f70004d0")
4545 
        (revision "0"))
4646 
    (package
4747 
      (name "aacircuit")
…
5050 
       (origin
5151 
         (method git-fetch)
5252 
         (uri (git-reference
53-
               (url "https://github.com/pisemsky/aacircuit")
53+
               (url "https://github.com/Blokkendoos/AACircuit")
5454 
               (commit commit)))
5555 
         (file-name (git-file-name name version))
5656 
         (sha256
…
5858 
      (build-system pyproject-build-system)
5959 
      (arguments
6060 
       (list
61-
        #:phases #~(modify-phases %standard-phases
62-
                     (replace 'check
63-
                       (lambda* (#:key tests? #:allow-other-keys)
64-
                         (when tests?
65-
                           (setenv "HOME" "/tmp")
66-
                           ;; Exclude tests intended for visual review.
67-
                           (setenv "NOSE_EXCLUDE"
68-
                                   (string-join '("test_export_pdf"
69-
                                                  "test_import_aacircuit_export_pdf")
70-
                                                ","))
71-
                           (invoke "xvfb-run" "./testrunner.sh")))))))
72-
      (native-inputs (list python-flake8 python-nose python-setuptools
73-
                           python-wheel xvfb-run))
61+
        #:phases
62+
        #~(modify-phases %standard-phases
63+
            (replace 'check
64+
              (lambda* (#:key tests? #:allow-other-keys)
65+
                (when tests?
66+
                  ;; Exclude tests intended for visual review.
67+
                  (setenv "NOSE_EXCLUDE"
68+
                          (string-join '("test_export_pdf"
69+
                                         "test_import_aacircuit_export_pdf")
70+
                                       ","))
71+
                  (setenv "HOME" "/tmp")
72+
                  (invoke "xvfb-run" "./testrunner.sh")))))))
73+
      (native-inputs (list python-flake8
74+
                           python-nose
75+
                           python-setuptools
76+
                           python-wheel
77+
                           xvfb-run))
7478 
      (propagated-inputs (list gtk+
7579 
                               python-bresenham
7680 
                               python-platformdirs
modules/cogd/packages/guile-xyz.scm
1111 
             (guix build-system gnu)
1212 
             (guix build-system guile)
1313 
             ((guix licenses) #:prefix license:)
14+
             (gnu packages bash)
1415 
             (gnu packages guile)
16+
             (gnu packages guile-xyz)
1517 
             (gnu packages messaging)
1618 
             (gnu packages pkg-config))
1719 
20+
(re-export guile-mqtt)
21+
1822 
(define-public guile-gpio
1923 
  (let ((commit "363a036dbfe26c02ce32864894af9224483bc84b")
2024 
        (revision "0"))
…
4145 
GPIO drivers rather than fiddling with file descriptors.")
4246 
      (license license:lgpl3+))))
4347 
44-
(define-public guile-mqtt
45-
  (package
46-
    (name "guile-mqtt")
47-
    (version "0.2.1")
48-
    (source
49-
     (origin
50-
       (method url-fetch)
51-
       (uri (string-append "https://github.com/mdjurfeldt/" name
52-
                           "/releases/download/v" version
53-
                           "/" name "-" version ".tar.gz"))
54-
       (sha256
55-
        (base32 "16a3r6yk41yskwv4qbkrsi0f5rvc7aw2s5di74i8y89j1x9yp9zs"))))
56-
    (build-system gnu-build-system)
57-
    (arguments
58-
     (list
59-
      #:make-flags #~(list "GUILE_AUTO_COMPILE=0")))
60-
    (native-inputs (list guile-3.0 pkg-config))
61-
    (inputs (list mosquitto))
62-
    (home-page "https://github.com/mdjurfeldt/guile-mqtt")
63-
    (synopsis "Guile bindings for the libmosquitto library")
64-
    (description
65-
     "This package provides Guile bindings for the libmosquitto MQTT client
66-
library.  The bindings are written in GOOPS, and the user can extend
67-
the client class by inheritance.")
68-
    (license license:lgpl3+)))
48+
(define-public guile-pastebin
49+
  (let ((commit "0cae302d520a171f2eda15e0f64781873cdc7a23")
50+
        (revision "0"))
51+
    (package
52+
      (name "guile-pastebin")
53+
      (version (git-version "0" revision commit))
54+
      (source
55+
       (origin
56+
         (method git-fetch)
57+
         (uri (git-reference
58+
               (url "https://github.com/pisemsky/guile-pastebin")
59+
               (commit commit)))
60+
         (file-name (git-file-name name version))
61+
         (sha256
62+
          (base32 "1m1bx3y0x4922brvwajr9h1yip4is3w57mb3y7r046c8dv6284mq"))))
63+
      (build-system guile-build-system)
64+
      (arguments
65+
       (list
66+
        #:source-directory "modules"
67+
        #:phases
68+
        #~(modify-phases %standard-phases
69+
            (add-after 'build 'make-program
70+
              (lambda* (#:key inputs #:allow-other-keys)
71+
                (let* ((guile (assoc-ref inputs "guile"))
72+
                       (bin (string-append #$output "/bin"))
73+
                       (program (string-append bin "/pastebin")))
74+
                  (define-values (scm go)
75+
                                 (target-guile-scm+go #$output guile))
76+
                  (mkdir-p bin)
77+
                  (copy-file "scripts/pastebin" program)
78+
                  (wrap-program program
79+
                    `("PATH" prefix
80+
                      (,(string-append guile "/bin")))
81+
                    `("GUILE_AUTO_COMPILE" =
82+
                      (,"0"))
83+
                    `("GUILE_LOAD_PATH" prefix
84+
                      (,scm))
85+
                    `("GUILE_LOAD_COMPILED_PATH" prefix
86+
                      (,go)))))))))
87+
      (native-inputs (list guile-3.0))
88+
      (inputs (list guile-3.0 bash-minimal))
89+
      (home-page "https://github.com/pisemsky/guile-pastebin")
90+
      (synopsis "Simple pastebin in Guile Scheme")
91+
      (description
92+
       "This package provides a very simple pastebin written in Guile Scheme.")
93+
      (license license:gpl3+))))
modules/cogd/packages/python-xyz.scm
9595 
                             python-redis
9696 
                             python-requests
9797 
                             python-rsa
98-
                             python-sqlalchemy
98+
                             python-sqlalchemy-2
9999 
                             python-tornado
100100 
                             python-urllib3
101101 
                             python-websocket-client