rosenthal: Add atuin-bin.

* rosenthal/packages/binaries.scm (atuin-bin): New variable.
* README.org (Binary Packages): Add it.

README.org

@@ -106,37 +106,58 @@ Rosenthal 頻道定義如下，將其加入 =~/.config/guix/channels.scm= 以由
 
 ** Content / 內容
 *** Packages / 軟件包
++ aquamarine
 + cloudflared
 + dnsmasq-china-list
++ emacs-pcmpl-tailscale
 + emacs-wakatime-mode
 + grimblast
++ grub-efi-luks2
++ hyprcursor
 + hyprland
++ hyprland-protocols
++ hyprlang
++ hyprpicker
++ hyprutils
++ hyprwayland-scanner
 + socks2http
 + tree-sitter-yaml
 + xdg-desktop-portal-hyprland
 
 Binary Packages / 二進制包：
++ atuin-bin
 + clash-bin
-+ clash-meta-bin
 + hugo-bin
++ mihomo-bin
 + shadow-tls-bin
 + sing-box-bin
 + tailscale-bin
 + wakapi-bin
 + wakatime-cli-bin
 
-Non-free Packages / 非自由軟件：
+Nonfree Software / 非自由軟件：
 + cloudflare-warp-bin
 
 *** Services / 服務
++ btrbk-service-type
 + clash-service-type
-+ cloudflare-tunnel-service-type
-+ cloudflare-warp-service-type
 + iwd-service-type
++ jellyfin-service-type
 + miniflux-service-type
++ misskey-service-type
 + qbittorrent-service-type
-+ (home-)shadow-tls-service-type
++ shadow-tls-service-type
 + smartdns-service-type
++ vaultwarden-service-type
+
++ home-qbittorrent-service-type
++ home-shadow-tls-service-type
 + home-socks2http-service-type
-+ tailscale-service-type
 + home-wakapi-service-type
+
+Nonfree Network Services / 非自由網絡服務：
++ cloudflare-tunnel-service-type
++ tailscale-service-type
+
+Nonfree Software / 非自由軟件：
++ cloudflare-warp-service-type

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")