From ece326f3eab86f3d8bee6f6cd121ce6a9b0fe0c7 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sat, 25 Apr 2020 13:57:14 -0400
Subject: misc: Add grokmirror

---
 km-packages/misc.scm | 98 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 98 insertions(+)

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