diff options
| author | Hanketsu <hanketsu@egregore.fun> | 2024-10-28 15:09:13 +0100 |
|---|---|---|
| committer | Hanketsu <hanketsu@egregore.fun> | 2025-06-13 00:04:39 +0200 |
| commit | d674d2f691e227f86c3654a564b50c4eb3b75342 (patch) | |
| tree | dc0f384e030cf072ac97c229fe2304d36a7f8b31 | |
| parent | 4517482f473c959fb3eea7e458d3e5f2774db867 (diff) | |
battering: palemoon: Desktop file, security tweaks and refactor
* battering/packages/palemoon (make-palemoon): Refactor to depend only on make-uxp-browser's generated package.
[native-inputs]: Add git.
[arguments]<#:phases>: Add new 'install-desktop-file phase.
'fix-prefs before 'remove-spyware-home-page
Remove additional forced home pages.
| -rw-r--r-- | battering/packages/palemoon.scm | 23 |
1 files changed, 15 insertions, 8 deletions
diff --git a/battering/packages/palemoon.scm b/battering/packages/palemoon.scm index 9c0dd41..d9e07f4 100644 --- a/battering/packages/palemoon.scm +++ b/battering/packages/palemoon.scm @@ -28,6 +28,7 @@ #:use-module (gnu packages python) #:use-module (gnu packages sqlite) #:use-module (gnu packages tls) + #:use-module (gnu packages version-control) #:use-module (gnu packages video) #:use-module (gnu packages xorg)) @@ -238,11 +239,13 @@ (home-page ""))) (define (make-palemoon . args) - (let ((palemoon (apply make-uxp-browser "palemoon" "33.4.0.1" args))) + (let ((pkg (apply make-uxp-browser "palemoon" "33.4.0.1" args))) (package - (inherit palemoon) - (name "palemoon") - (version "33.4.0.1") + (inherit pkg) + (name (package-name pkg)) + (version (package-version pkg)) + (native-inputs (modify-inputs (package-native-inputs pkg) + (append git))) (source (origin (method git-fetch) (uri (git-reference @@ -259,10 +262,10 @@ (string-append directory "/sigils/packages/patches")) %load-path))) (search-patches "palemoon-vendor-basename.patch"))))) - (arguments (substitute-keyword-arguments (package-arguments palemoon) + (arguments (substitute-keyword-arguments (package-arguments pkg) ((#:phases phases) #~(modify-phases #$phases - (add-after 'fix-prefs 'remove-spyware-home-page + (add-before 'fix-prefs 'remove-spyware-home-page (lambda _ (substitute* "palemoon/branding/shared/locales/browserconfig.properties" ;; Switch the page from the properties to something local @@ -270,11 +273,15 @@ (substitute* "palemoon/branding/official/palemoon.desktop" ;; New tab should open the user's specified "New Tab" page, not the palemoon start page. (("^Exec=palemoon -new-tab .*") - "Exec=palemoon -new-tab" )) + "Exec=palemoon -new-tab")) (substitute* '("palemoon/branding/shared/pref/preferences.inc" "palemoon/branding/unofficial/pref/palemoon-branding.js") ;; Remove the startup.homepage_welcome_url preference - (("^pref\\(\"startup\\.homepage_(welcome|override)_url\",\".*\"\\);\n$") "")))))))) + (("^pref\\(\"startup\\.homepage_(welcome|override)_url(.additional)?\",\".*\"\\);\n$") "")))) + (add-after 'install-branding 'install-desktop-file + (lambda* (#:key outputs #:allow-other-keys) + (install-file #$(format #f "~a/branding/official/~a.desktop" name name) + (string-append #$output "/share/applications/")))))))) (home-page "https://palemoon.org") (synopsis "Independent browser derived from Firefox/Mozilla community code") (description "Pale Moon is an Open Source, Goanna-based web browser.") |