From 8128254d9d0186df048045863083da1ff9196731 Mon Sep 17 00:00:00 2001 From: Freya Murphy Date: Mon, 4 Nov 2024 09:35:09 -0500 Subject: [PATCH] remove librewolf-wrapped --- sakura/packages/librewolf.scm | 58 ----------------------------------- 1 file changed, 58 deletions(-) delete mode 100644 sakura/packages/librewolf.scm diff --git a/sakura/packages/librewolf.scm b/sakura/packages/librewolf.scm deleted file mode 100644 index 1703530..0000000 --- a/sakura/packages/librewolf.scm +++ /dev/null @@ -1,58 +0,0 @@ -(define-module (sakura packages librewolf) - #:use-module ((guix licenses) #:prefix license:) - #:use-module (guix download) - #:use-module (guix packages) - #:use-module (guix build-system trivial) - #:use-module (gnu) - #:use-module (gnu packages bash) - #:use-module (gnu packages linux) - #:use-module (gnu packages librewolf)) - -(define-public librewolf-wrapped - (package - (name "librewolf-wrapped") - (source #f) - (version (package-version librewolf)) - (synopsis "Simple wrapper for pipewire in librewolf") - (description "Simple wrapper for pipewire in librewolf") - (home-page "https://librewolf.net/") - (license license:mpl2.0) - (inputs - `(("bash" ,bash-minimal) - ("pipewire" ,pipewire) - ("librewolf" ,librewolf))) - (build-system trivial-build-system) - (arguments - '(#:modules ((guix build utils)) - #:builder - (begin - (use-modules (guix build utils)) - (let* ((bash (assoc-ref %build-inputs "bash")) - (librewolf (assoc-ref %build-inputs "librewolf")) - (pipewire (assoc-ref %build-inputs "pipewire")) - (out (assoc-ref %outputs "out")) - (exe (string-append out "/bin/librewolf"))) - (mkdir-p (dirname exe)) - - (call-with-output-file exe - (lambda (port) - ;; NOTE: added "export LD_LIBRARY_PATH=pipewire" - ;; maybe this can be done better with `wrap-programm' - (format port "#!~a \n -export LD_LIBRARY_PATH=~a \n -export MOZ_ENABLE_WAYLAND=1 \n -export MOZ_USE_XINPUT2=1 \n -exec ~a $@\n" - (string-append bash "/bin/bash") - (string-append pipewire "/lib") - (string-append librewolf "/bin/librewolf")))) - (chmod exe #o555) - - ;; Provide the manual and .desktop file. - (copy-recursively (string-append librewolf "/share") - (string-append out "/share")) - (substitute* (string-append - out "/share/applications/librewolf.desktop") - ((librewolf) out)) - #t)))))) -