From f45687f13be984f7cb4d4b91265cf8bc03c5f8ba Mon Sep 17 00:00:00 2001
From: Hilton Chain <hako@ultrarare.space>
Date: Sat, 2 Nov 2024 21:45:18 +0800
Subject: [PATCH] rosenthal: Add atuin-bin.

* rosenthal/packages/binaries.scm (atuin-bin): New variable.
* README.org (Binary Packages): Add it.
---
 README.org                      |  1 +
 rosenthal/packages/binaries.scm | 50 +++++++++++++++++++++++++++++++++
 2 files changed, 51 insertions(+)

diff --git a/README.org b/README.org
index 72e3c5c..2a13f41 100644
--- a/README.org
+++ b/README.org
@@ -125,6 +125,7 @@ Rosenthal 頻道定義如下，將其加入 =~/.config/guix/channels.scm= 以由
 + xdg-desktop-portal-hyprland
 
 Binary Packages / 二進制包：
++ atuin-bin
 + clash-bin
 + hugo-bin
 + mihomo-bin
diff --git a/rosenthal/packages/binaries.scm b/rosenthal/packages/binaries.scm
index 3795176..34288e7 100644
--- a/rosenthal/packages/binaries.scm
+++ b/rosenthal/packages/binaries.scm
@@ -19,6 +19,56 @@
 (define license
   (@@ (guix licenses) license))
 
+(define-public atuin-bin
+  (package
+    (name "atuin-bin")
+    (version "18.3.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "https://github.com/atuinsh/atuin/releases/download/v"
+                    version "/atuin-x86_64-unknown-linux-gnu.tar.gz"))
+              (sha256
+               (base32
+                "14hp673i8in9adahg01bldlwyip7kg5vdnqi5jczinv8ibxnswg3"))))
+    (build-system copy-build-system)
+    (arguments
+     (list #:install-plan #~'(("atuin" "bin/"))
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'install 'patch-elf
+                 (lambda _
+                   (let ((ld.so (string-append #$(this-package-input "glibc")
+                                               #$(glibc-dynamic-linker)))
+                         (runpath (string-join
+                                   (list
+                                    (string-append
+                                     (ungexp
+                                      (this-package-input "gcc") "lib") "/lib")
+                                    (string-append
+                                     #$(this-package-input "glibc") "/lib"))
+                                   ":")))
+                     (define (patch-elf file)
+                       (format #t "Patching ~a ..." file)
+                       (unless (string-contains file ".so")
+                         (invoke "patchelf" "--set-interpreter" ld.so file))
+                       (invoke "patchelf" "--set-rpath" runpath file)
+                       (display " done\n"))
+                     (for-each (lambda (file)
+                                 (patch-elf file))
+                               (find-files
+                                (string-append #$output "/bin")))))))))
+    (supported-systems '("x86_64-linux"))
+    (native-inputs (list patchelf-0.16))
+    (inputs (list `(,gcc "lib") glibc))
+    (home-page "https://atuin.sh/")
+    (synopsis "Sync, search and backup shell history")
+    (description
+     "Atuin replaces existing shell history with a SQLite database, and records
+additional context for commands.  Additionally, it provides optional and fully
+encrypted synchronisation of history between machines, via an Atuin server.")
+    (license license:gpl3)))
+
 (define-public clash-bin
   (package
     (name "clash-bin")