From 461c9c85f78ad6fc81624262d99a81802fb61613 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Tue, 21 Apr 2020 00:02:55 -0400
Subject: misc: Add b4

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

diff --git a/km-packages/misc.scm b/km-packages/misc.scm
index 7f652c5..645d1ff 100644
--- a/km-packages/misc.scm
+++ b/km-packages/misc.scm
@@ -21,10 +21,12 @@
 (define-module (km-packages misc)
   #:use-module (gnu packages)
   #:use-module (gnu packages python)
+  #:use-module (gnu packages python-web)
   #:use-module (gnu packages python-xyz)
   #:use-module ((guix build utils)
                 #:select (with-directory-excursion))
   #:use-module (guix build-system gnu)
+  #:use-module (guix build-system python)
   #:use-module (guix download)
   #:use-module (guix git-download)
   #:use-module ((guix licenses) #:prefix license:)
@@ -73,3 +75,26 @@
     (synopsis "todo")
     (description "todo")
     (license license:gpl3)))
+
+(define-public b4
+  (let ((commit "cbcc79012d44e6b7e79583d078409628b8834a69"))
+    (package
+      (name "b4")
+      (version (git-version "0.3.4" "0" commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://git.kernel.org/pub/scm/utils/b4/b4.git")
+               (commit commit)))
+         (file-name (string-append name "-" version "-checkout"))
+         (sha256
+          (base32
+           "1x73r59h097fsk57i3k0y26qilz4iq1ppn7fxs30fdfqgx7ga2l3"))))
+      (build-system python-build-system)
+      (inputs
+       `(("python-requests" ,python-requests)))
+      (home-page "https://git.kernel.org/pub/scm/utils/b4/b4.git")
+      (synopsis "A tool to work with public-inbox patches")
+      (description "todo")
+      (license license:gpl2+))))
-- 
cgit v1.2.3