basilisk: add scalable images for basilisk

1 files changed, 55 insertions, 42 deletions

diff --git a/sigils/packages/palemoon.scm b/sigils/packages/palemoon.scm
index a0118e6..d358ca6 100644
--- a/sigils/packages/palemoon.scm
+++ b/sigils/packages/palemoon.scm
@@ -32,7 +32,8 @@
   #:use-module (gnu packages version-control)
   #:use-module (gnu packages video)
   #:use-module (gnu packages xorg)
-  #:autoload   (ice-9 regex) (string-match))
+  #:autoload   (ice-9 regex) (string-match)
+  #:autoload   (ice-9 optargs) (let-keywords))
 
 (define* (make-uxp-browser app-name
                            app-version
@@ -316,50 +317,62 @@ from the Basilisk repository.")
 
 (define (make-basilisk . args)
   (let ((pkg (apply make-uxp-browser "basilisk" "2025.01.04" 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 "04b5zi81cb528vzx7yvf5ms1byfqcf6xvqb6l26alczld44dwfa9"))))
-      (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$") ""))))
-                        (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&") ""))))))))
-      (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
+    (let-keywords args #t ((branding "official"))
+      (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 "04b5zi81cb528vzx7yvf5ms1byfqcf6xvqb6l26alczld44dwfa9"))))
+        (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$") ""))))
+                          (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&") ""))))
+                          (add-after 'install-branding 'install-vectorial-branding
+                            (lambda _
+                              (let* ((dir (format #f "~a/share/icons/hicolor/scalable/apps" #$output)))
+                                (mkdir-p dir)
+                                (with-directory-excursion (string-append "basilisk/branding/" #$branding "/content")
+                                  (copy-file
+                                   "./identity-icons-brand.svg"
+                                   (in-vicinity dir "basilisk.svg"))
+                                  (copy-file
+                                   "./silhouette-40.svg"
+                                   (in-vicinity dir "basilisk-symbolic.svg"))))))))))
+        (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
+        (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))))
+        (license license:mpl2.0)))))
 
 (define-public palemoon
   (make-palemoon))