From eb44ea236ca10f6f798e6addc313aac59b9f1a76 Mon Sep 17 00:00:00 2001
From: SqrtMinusOne <thexcloud@gmail.com>
Date: Sun, 30 Jul 2023 20:52:23 +0300
Subject: [PATCH] bottom: add

---
 README.org |  1 +
 bottom.scm | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 47 insertions(+)
 create mode 100644 bottom.scm

diff --git a/README.org b/README.org
index cd0ee8f..8011be5 100644
--- a/README.org
+++ b/README.org
@@ -24,6 +24,7 @@ I'll probably push what I can upstream when I figure Guix out.
 | [[https://www.nushell.sh/][nushell]]                    | Works    | Installation from binaries (Guix version was outdated when I created this) |
 | [[https://gohugo.io/][hugo-extended]]              | Works    | Installation from binaries                                                 |
 | [[https://github.com/mamba-org/mamba][micromamba]]                 | Works    | Installation from binaries                                                 |
+| [[https://github.com/ClementTsang/bottom][bottom]]                     | Works    | Installation from binaries                                                 |
 | [[https://github.com/atreyasha/i3-balance-workspace][i3-balance-workspace]]       | Works    | Tests fail                                                                 |
 | [[https://github.com/tmux-python/tmuxp][tmuxp]]                      | Works    | Tests fail                                                                 |
 | [[https://github.com/hroptatyr/dateutils][dateutils]]                  | Works    | Tests fail                                                                 |
diff --git a/bottom.scm b/bottom.scm
new file mode 100644
index 0000000..100f299
--- /dev/null
+++ b/bottom.scm
@@ -0,0 +1,46 @@
+(define-module (bottom)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages gcc)
+  #:use-module (gnu packages xorg)
+  #:use-module (guix download)
+  #:use-module (guix packages)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (nonguix build-system binary))
+
+(define-public bottom-bin
+  (package
+    (name "bottom-bin")
+    (version "0.9.3")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "https://github.com/ClementTsang/bottom/releases/download/"
+             version "/bottom_x86_64-unknown-linux-gnu.tar.gz"))
+       (sha256
+        (base32
+         "1hzgdk8xpdnsz3v4jrj91d9rdicmc521xkjflv0fc3farf9fl32q"))))
+    (build-system binary-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (replace 'unpack
+           (lambda* (#:key inputs #:allow-other-keys)
+             (invoke "tar" "xvzf" (assoc-ref inputs "source")))))
+       #:install-plan
+       `(("btm" "/bin/")
+         ("completion/_btm" "/share/zsh/site-functions/")
+         ("completion/btm.bash" "/share/bash-completion/completions/")
+         ("completion/btm.fish" "/share/fish/vendor_completions.d/"))
+       #:patchelf-plan
+       `(("btm" ("glibc" "libgccjit")))))
+    (inputs
+     `(("libgccjit" ,libgccjit)
+       ("glibc" ,glibc)))
+    (native-inputs
+     `(("gzip" ,gzip)))
+    (synopsis "Yet another cross-platform graphical process/system monitor. ")
+    (description "A customizable cross-platform graphical process/system monitor for the terminal.  Inspired by gtop, gotop, and htop.")
+    (home-page "https://github.com/ClementTsang/bottom")
+    (license license:expat)))