aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/notcurses.scm
blob: 9da298dce82a8b48b07b112a621e561c57f5ce32 (about) (plain)
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
;;; Copyright © 2021 Blake Shaw <blake@nonconstructivism.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu packages notcurses)
  #:use-module (guix utils)
  #:use-module (gnu packages)
  #:use-module (guix packages)
  #:use-module (guix build utils)
  #:use-module (guix git-download)
  #:use-module (guix build-system cmake)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (gnu packages check)
  #:use-module (gnu packages haskell-xyz)
  #:use-module (gnu packages video)
  #:use-module (gnu packages ncurses)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages libunistring))

(define-public notcurses
  (package
   (name "notcurses")
   (version "3.0.0")
   (source
    (origin
     (method git-fetch)
     (uri (git-reference
           (url "https://github.com/dankamongmen/notcurses")
           (commit (string-append "v" version))))
     (file-name (git-file-name name version))
         (sha256
          (base32 "1y9s77m1pp6syfml559d8dvif61y6zjldrdx1zri18q9sr0zqm9m"))))
      (build-system cmake-build-system)
      (arguments
       `(#:make-flags
         (list (string-append "CC=" ,(cc-for-target)))
         ;; These flags are documented in 'INSTALL.md' in the source distribution.
         #:configure-flags
         '(;; Do not build "coverage"
           "-DUSE_COVERAGE=off"
           ;; Do not build HTML documentation
           "-DUSE_DOXYGEN=off"
           ;; Don't include mouse support
           "-DUSE_GPM=off"
           ;; Use FFmpeg for multimedia support
           "-DUSE_MULTIMEDIA=ffmpeg"
           ;; Follow the Debian Free Software Guidelines, omitting nonfree content.
           "-DFSG_BUILD=ON")))
      (native-inputs
       (list pkg-config
             pandoc
             doctest))
      (inputs
       (list ffmpeg
             libdeflate
             libunistring
             ncurses
             zlib))
      (synopsis "Textual user interfaces")
      (description "Notcurses is a library for building complex textual user
interfaces on modern terminals.")
      (home-page "https://notcurses.com")
      (license license:asl2.0)))
ify-certificate?) (with-output-to-file file-name (lambda () (display (match url ("http://example.com/Foo-Bar-0.1.tar.gz" test-source) (_ (error "Unexpected URL: " url)))))))) (mock ((guix http-client) http-fetch (lambda (url . rest) (match url ("https://api.metacpan.org/release/Foo-Bar" (values (open-input-string test-json) (string-length test-json))) ("https://api.metacpan.org/module/Test::Script?fields=distribution" (let ((result "{ \"distribution\" : \"Test-Script\" }")) (values (open-input-string result) (string-length result)))) (_ (error "Unexpected URL: " url))))) (match (cpan->guix-package "Foo::Bar") (('package ('name "perl-foo-bar") ('version "0.1") ('source ('origin ('method 'url-fetch) ('uri ('string-append "http://example.com/Foo-Bar-" 'version ".tar.gz")) ('sha256 ('base32 (? string? hash))))) ('build-system 'perl-build-system) ('inputs ('quasiquote (("perl-test-script" ('unquote 'perl-test-script))))) ('home-page "http://search.cpan.org/dist/Foo-Bar") ('synopsis "Fizzle Fuzz") ('description 'fill-in-yourself!) ('license (package-license perl))) (string=? (bytevector->nix-base32-string (call-with-input-string test-source port-sha256)) hash)) (x (pk 'fail x #f)))))) (test-equal "source-url-http" ((@@ (guix import cpan) cpan-source-url) `(("download_url" . "http://cpan.metacpan.org/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz"))) "mirror://cpan/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz") (test-equal "source-url-https" ((@@ (guix import cpan) cpan-source-url) `(("download_url" . "https://cpan.metacpan.org/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz"))) "mirror://cpan/authors/id/T/TE/TEST/Foo-Bar-0.1.tar.gz") (test-end "cpan")