summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSisiutl <sisiutl@egregore.fun>2024-11-05 18:20:14 +0100
committerSisiutl <sisiutl@egregore.fun>2024-11-05 18:20:14 +0100
commitc61e75be7da2abacd75aaf511efb52fe3ccdc11c (patch)
tree2527730dc4c91bc4427b30b02661939f287031fb
parent9efe94ed7c2fc9c352c52a14d4cb375e912a7caa (diff)
remove spyware parameters from bundled search engines
-rw-r--r--sigils/packages/palemoon.scm19
1 files changed, 18 insertions, 1 deletions
diff --git a/sigils/packages/palemoon.scm b/sigils/packages/palemoon.scm
index 963fcdf..f435534 100644
--- a/sigils/packages/palemoon.scm
+++ b/sigils/packages/palemoon.scm
@@ -287,6 +287,14 @@
"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* '("basilisk/locales/searchplugins/duckduckgo-palemoon.xml"
+ "basilisk/locales/searchplugins/mojeek.xml")
+ ((".*value=\"palemoon\".*") ""))
+ (substitute* "basilisk/locales/searchplugins/ekoru.xml"
+ (("ext=palemoon&amp;") ""))))
(add-after 'install-branding 'install-desktop-file
(lambda* (#:key outputs #:allow-other-keys)
(install-file #$(format #f "~a/branding/official/~a.desktop" name name)
@@ -348,7 +356,16 @@ 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.
+ (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&amp;") ""))))))))
(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.")