README.org

@@ -106,58 +106,37 @@ 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
 
-Nonfree Software / 非自由軟件：
+Non-free Packages / 非自由軟件：
 + 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
-+ shadow-tls-service-type
++ (home-)shadow-tls-service-type
 + smartdns-service-type
-+ vaultwarden-service-type
-
-+ home-qbittorrent-service-type
-+ home-shadow-tls-service-type
 + home-socks2http-service-type
-+ home-wakapi-service-type
-
-Nonfree Network Services / 非自由網絡服務：
-+ cloudflare-tunnel-service-type
 + tailscale-service-type
-
-Nonfree Software / 非自由軟件：
-+ cloudflare-warp-service-type
++ home-wakapi-service-type

rosenthal/packages/binaries.scm

@@ -19,56 +19,6 @@
 (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")