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

;; guix package see https://gnu.org/s/guix
(use-modules (guix packages)
             ((guix licenses) #:renamer (symbol-prefix-proc 'license:))
             (guix download)
             (guix build-system gnu)
             (gnu packages)
             (gnu packages qt))

(package
 (name "qhttpserver")
 (version "0.1")
 (source (origin
          (method url-fetch)
          (uri (string-append
                "https://hidamari.blue/git/media-u/release/qhttpserver-"
                version ".tar.gz"))
          (sha256
           (base32
            "0fq9qyqiilpkhrskgxlc1l79sv1dimc6gs2zdnh6xjabbk74kkra"))))
 (build-system gnu-build-system)
 (arguments
  `(#:tests?
    #f
    #:phases
    (modify-phases
     %standard-phases
     (replace
      'configure
      (lambda* (#:key inputs outputs #:allow-other-keys)
        (mkdir-p "build")
        (chdir "build")
        (let ((out (assoc-ref outputs "out")))
          (system* "qmake" ".." "-r" (string-append "PREFIX=" out))))))))
 (propagated-inputs
  `(("qt" ,qt)))
 (synopsis "http server for qt C++")
 (description "Bind a http server in your qt application,
 get requests, respond to them.")
 (home-page "https://github.com/nikhilm/qhttpserver")
 (license license:non-copyleft))