diff options
Diffstat (limited to '')
-rw-r--r-- | modules/freya/packages/mozillia.scm | 60 |
1 files changed, 0 insertions, 60 deletions
diff --git a/modules/freya/packages/mozillia.scm b/modules/freya/packages/mozillia.scm deleted file mode 100644 index 68a2601..0000000 --- a/modules/freya/packages/mozillia.scm +++ /dev/null @@ -1,60 +0,0 @@ -(define-module (freya packages mozillia) - #:use-module ((guix licenses) #:prefix license:) - #:use-module (gnu) - #:use-module (gnu packages bash) - #:use-module (gnu packages linux) - #:use-module (guix download) - #:use-module (guix packages) - #:use-module (guix build-system trivial) - #:use-module (freya packages linux) - #:use-module (nonguix build-system binary) - #:use-module (nongnu packages mozilla)) - -(define-public firefox-wayland-new - (package - (name "firefox-wayland-new") - (source #f) - (version "0.1") - (synopsis "Simple wrapper for pipewire in firefox") - (description "Simple wrapper for pipewire in firefox") - (home-page "http://mozilla.org/") - (license license:mpl2.0) - (inputs - `(("bash" ,bash-minimal) - ("pipewire" ,pipewire-new) - ("firefox" ,firefox))) - (build-system trivial-build-system) - (arguments - '(#:modules ((guix build utils)) - #:builder - (begin - (use-modules (guix build utils)) - (let* ((bash (assoc-ref %build-inputs "bash")) - (firefox (assoc-ref %build-inputs "firefox")) - (pipewire (assoc-ref %build-inputs "pipewire")) - (out (assoc-ref %outputs "out")) - (exe (string-append out "/bin/firefox"))) - (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 firefox "/bin/firefox")))) - (chmod exe #o555) - - ;; Provide the manual and .desktop file. - (copy-recursively (string-append firefox "/share") - (string-append out "/share")) - (substitute* (string-append - out "/share/applications/firefox.desktop") - ((firefox) out)) - #t)))))) - |