From ece326f3eab86f3d8bee6f6cd121ce6a9b0fe0c7 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sat, 25 Apr 2020 13:57:14 -0400 Subject: misc: Add grokmirror --- km-packages/misc.scm | 98 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 98 insertions(+) (limited to 'km-packages') diff --git a/km-packages/misc.scm b/km-packages/misc.scm index 645d1ff..57ff2d0 100644 --- a/km-packages/misc.scm +++ b/km-packages/misc.scm @@ -20,9 +20,11 @@ (define-module (km-packages misc) #:use-module (gnu packages) + #:use-module (gnu packages check) #:use-module (gnu packages python) #:use-module (gnu packages python-web) #:use-module (gnu packages python-xyz) + #:use-module (gnu packages version-control) #:use-module ((guix build utils) #:select (with-directory-excursion)) #:use-module (guix build-system gnu) @@ -76,6 +78,102 @@ (description "todo") (license license:gpl3))) +(define-public python-blessed + (package + (name "python-blessed") + (version "1.17.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "blessed" version)) + (sha256 + (base32 + "1087vn3b2bspdir68ziwp0w9mflhpfpqzg9dcffrr2i9hff622ij")) + (modules '((guix build utils))) + (snippet + (quote (begin + (delete-file "blessed/win_terminal.py") + #t))))) + (build-system python-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'build 'patch-init + (lambda _ + ;; FIXME: Look into this failing assertion. + (substitute* "blessed/terminal.py" + ((" assert value in \\(0, 4, 8, 16, 256, 1 << 24\\)") + ""))))))) + (native-inputs + `(("python-mock" ,python-mock) + ("python-pytest" ,python-pytest))) + (propagated-inputs + `(("python-six" ,python-six) + ("python-wcwidth" ,python-wcwidth))) + (home-page "https://github.com/jquast/blessed") + (synopsis "todo") + (description "todo") + (license license:expat))) + +(define-public python-enlighten + (package + (name "python-enlighten") + (version "1.5.1") + (source + (origin + (method url-fetch) + (uri (pypi-uri "enlighten" version)) + (sha256 + (base32 "1vjmnx8wp52ris4j7r4gj88349gdfxpp7ms5vvwizym11a2r4sw3")))) + (build-system python-build-system) + (propagated-inputs + `(("python-blessed" ,python-blessed))) + (home-page "https://github.com/Rockhopper-Technologies/enlighten") + (synopsis "Enlighten Progress Bar") + (description "todo") + (license #f))) + +(define-public grokmirror + (package + (name "grokmirror") + (version "1.2.1") + (source + (origin + (method git-fetch) + (uri (git-reference + (url (string-append "https://git.kernel.org/pub/scm/" + "utils/grokmirror/grokmirror.git")) + (commit (string-append "v" version)))) + (file-name (string-append name "-" version "-checkout")) + (sha256 + (base32 + "1kli0dzd8qx1f6dfy4pznnjwbp7gii3cbqvzrnrpcl0b5azsxr8g")))) + (build-system python-build-system) + (arguments + `(#:tests? #f ; no tests + #:modules ((guix build python-build-system) + (guix build utils)) + #:imported-modules (,@%python-build-system-modules) + #:phases + (modify-phases %standard-phases + (add-after 'install 'install-manpages + (lambda* (#:key outputs #:allow-other-keys) + (let* ((man (string-append (assoc-ref outputs "out") + "/man/man1/"))) + (mkdir-p man) + (for-each (lambda (file) (install-file file man)) + (find-files "." "\\.1$"))) + #t))))) + (propagated-inputs + `(("python-anyjson" ,python-anyjson) + ("python-enlighten" ,python-enlighten) + ("python-gitpython" ,python-gitpython))) + (home-page + "https://git.kernel.org/pub/scm/utils/grokmirror/grokmirror.git") + (synopsis "Smartly mirror git repositories that use grokmirror") + (description "todo") + (license #f))) + (define-public b4 (let ((commit "cbcc79012d44e6b7e79583d078409628b8834a69")) (package -- cgit v1.2.3