1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

(define-module (hidamari-blue captcha)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (gnu packages guile))

(define-public captcha
  (package
   (name "captcha")
   (version "0.1")
   (source (origin
            (method url-fetch)
            (uri (string-append "https://hidamari.blue/git/captcha/release/captcha-" version
                                ".tar.bz2"))
            (sha256
             (base32
              "04f7xyrmj153i57ccyw3i4k6xn9rc8jdpd2xm75cnnkwlrffcpzb"))))
   (build-system gnu-build-system)
   (arguments
    `(#:phases
      (modify-phases
       %standard-phases
       (delete 'configure)
       ;; TODO add all the autoscript nonsense that makes this actually work
       (delete 'build)
       (delete 'check)
       (replace
        'install
        (lambda* (#:key outputs #:allow-other-keys)
          (define out (string-append (assoc-ref %outputs "out")))
          (copy-recursively "." out)
          #t)))))
   (inputs `(("guile" ,guile-2.2)
             ("guile-fibers" ,guile-fibers)))
   (synopsis "web captcha server")
   (description "captcha with 2hus")
   (home-page "http://captcha.hidamari-blue")
   (license license:agpl3)))

captcha