diff options
| author | Hanketsu <hanketsu@egregore.fun> | 2024-11-05 18:20:14 +0100 |
|---|---|---|
| committer | Hanketsu <hanketsu@egregore.fun> | 2025-06-13 00:04:41 +0200 |
| commit | 15a5f084b6a5afbdcc2dda08aa935cc7f0e5a4c4 (patch) | |
| tree | a75345014ef506becbba9b768872c2c92da32164 | |
| parent | 67a307bfc2e16dfd02aeed0130a5f6fa37204032 (diff) | |
battering: palemoon: Remove spyware bundled in search engines.
* battering/packages/palemoon.scm (make-palemoon, make-basilisk)
[arguments]<#:phases>: Add new phase 'remove-spyware-search-engine.
| -rw-r--r-- | battering/packages/palemoon.scm | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/battering/packages/palemoon.scm b/battering/packages/palemoon.scm index 022dd02..51a7d10 100644 --- a/battering/packages/palemoon.scm +++ b/battering/packages/palemoon.scm @@ -296,6 +296,15 @@ "palemoon/branding/unofficial/pref/palemoon-branding.js") ;; Remove the startup.homepage_welcome_url preference (("^pref\\(\"startup\\.homepage_(welcome|override)_url(.additional)?\",\".*\"\\);\n$") "")))) + (add-after 'remove-spyware-home-page 'remove-spyware-search-engine + (lambda _ + ;; No tracking in the parameters. + (substitute* '("palemoon/locales/en-US/searchplugins/duckduckgo-palemoon.xml" + "palemoon/locales/en-US/searchplugins/mojeek.xml") + ((".*value=\"palemoon\".*") "")) + (substitute* '("palemoon/locales/en-US/searchplugins/answers.xml" + "palemoon/locales/en-US/searchplugins/ekoru.xml") + (("(client|ext)=palemoon&") "")))) (add-after 'install-branding 'install-desktop-file (lambda* (#:key outputs #:allow-other-keys) (install-file #$(format #f "~a/branding/official/~a.desktop" name name) @@ -357,7 +366,15 @@ from the Basilisk repository.") (lambda _ (substitute* "basilisk/branding/official/pref/basilisk-branding.js" ;; Remove the startup.homepage_welcome_url preference - (("^pref\\(\"startup\\.homepage_(welcome|override)_url(.additional)?\",\".*\"\\);\n$") "")))))))) + (("^pref\\(\"startup\\.homepage_(welcome|override)_url(.additional)?\",\".*\"\\);\n$") "")))) + (add-after 'remove-spyware-home-page 'remove-spyware-search-engine + (lambda _ + ;; No tracking in the parameters. Yup, basilisk uses "palemoon" too. + (substitute* '("basilisk/locales/searchplugins/duckduckgo-palemoon.xml" + "basilisk/locales/searchplugins/mojeek.xml") + ((".*value=\"palemoon\".*") "")) + (substitute* "basilisk/locales/searchplugins/ekoru.xml" + (("ext=palemoon&") "")))))))) (home-page "https://www.basilisk-browser.org/") (synopsis "A XUL-based web-browser built on top of the Unified XUL Platform (UXP). This browser is a close twin to pre-Servo Firefox in how it operates.") |