battering: Add basilisk.

* battering/packages/palemoon.scm (basilisk): New variable.

1 files changed, 43 insertions, 1 deletions

diff --git a/battering/packages/palemoon.scm b/battering/packages/palemoon.scm
index 923aba5..72cd9d5 100644
--- a/battering/packages/palemoon.scm
+++ b/battering/packages/palemoon.scm
@@ -38,7 +38,7 @@
 (define* (make-uxp-browser app-name
                            app-version
                            #:key
-                           (with-gtk3? #f)
+                           with-gtk3?
                            (branding "official"))
   (package
     (name app-name)
@@ -327,9 +327,51 @@
 from the Basilisk repository.")
     (license #f)))
 
+(define (make-basilisk . args)
+  (let ((pkg (apply make-uxp-browser "basilisk" "2024.10.24" args)))
+    (package
+      (inherit pkg)
+      (name (package-name pkg))
+      (version (package-version pkg))
+      (native-inputs (modify-inputs (package-native-inputs pkg)
+                       (append basilisk-official-branding)))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://repo.palemoon.org/Basilisk-Dev/Basilisk.git")
+               (commit (string-append "v" version))
+               (recursive? #t)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "1z3yspg2migsrli360iym535sns1n5lc2phh6nr0xp91fwk823j1"))))
+      (arguments (substitute-keyword-arguments (package-arguments pkg)
+                   ((#:phases phases)
+                    #~(modify-phases #$phases
+                        (add-after 'unpack 'include-official-branding
+                          (lambda* (#:key native-inputs #:allow-other-keys)
+                            (let ((dir "basilisk/branding/official"))
+                              (mkdir-p dir)
+                              (copy-recursively #$basilisk-official-branding dir))))
+                        (add-after 'include-official-branding 'remove-spyware-home-page
+                          (lambda _
+                            (substitute* "basilisk/branding/official/pref/basilisk-branding.js"
+                              ;; Remove the startup.homepage_welcome_url preference
+                              (("^pref\\(\"startup\\.homepage_(welcome|override)_url(.additional)?\",\".*\"\\);\n$") ""))))))))
+      (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.")
+      (description "Basilisk is a free and Open Source XUL-based web browser, featuring the well-known Firefox-style
+interface and operation. It is based on the Goanna layout and rendering engine (a fork of Gecko) and builds on the
+Unified XUL Platform (UXP), which in turn is a fork of the Mozilla code base without Servo or Rust.")
+      (license license:mpl2.0))))
+
 (define-public palemoon
   (make-palemoon))
 
+(define-public basilisk
+  (make-basilisk))
+
 (define-public palemoon/gtk3
   (package
     (inherit (make-palemoon #:with-gtk3? #t))