From 80f0c2176c476c4385a3c8885ca1746bef0e6a81 Mon Sep 17 00:00:00 2001
From: Petr Hodina <phodina@protonmail.com>
Date: Mon, 19 Sep 2022 19:52:27 +0200
Subject: [PATCH] gnu: Add btop.

* gnu/packages/admin.scm (btop): New variable.

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 5fb621e027..3d3e8cac52 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -51,6 +51,7 @@
 ;;; Copyright © 2021 Artyom V. Poptsov <poptsov.artyom@gmail.com>
 ;;; Copyright © 2022 Wamm K. D. <jaft.r@outlook.com>
 ;;; Copyright © 2022 Roman Riabenko <roman@riabenko.com>
+;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -697,6 +698,31 @@ (define-public ttyload
       ;; This package uses a modified version of the "ISC License".
       (license (license:non-copyleft "file://LICENSE")))))
 
+(define-public btop
+  (package
+    (name "btop")
+    (version "1.2.9")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "https://github.com/aristocratos/btop/archive/refs/tags/v"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "0cb5q7hrb9y378i98km9s6jbi5c50i7wra8m8jik5hf4m4s3930g"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list #:tests? #f ;no test suite
+           #:make-flags #~(list (string-append "PREFIX="
+                                               #$output))
+           #:phases #~(modify-phases %standard-phases
+                        (delete 'configure))))
+    (home-page "https://github.com/aristocratos/btop")
+    (synopsis "Resource monitor")
+    (description "Provides unified monitoring of CPU, Memory, Network and
+Processes.")
+    (license license:asl2.0)))
+
 (define-public htop
   (package
     (name "htop")
-- 
2.37.2