diff options
| author | Hanketsu <hanketsu@egregore.fun> | 2024-10-28 15:09:13 +0100 |
|---|---|---|
| committer | Hanketsu <hanketsu@egregore.fun> | 2025-06-13 00:04:40 +0200 |
| commit | 66405197a3d18271d2c63fdf862c8a8364a682ad (patch) | |
| tree | b6690f177009e68a195c1405d28dc0f93375b921 | |
| parent | 9cd9a8b03e83891d44ff0a3b421f9446495b931e (diff) | |
battering: palemoon: Add all available branding files.
* battering/packages/palemoon.scm (make-uxp-browser)
[arguments]<#:phases>['install-branding]: Add all detected branding files
instead of fixed sizes.
| -rw-r--r-- | battering/packages/palemoon.scm | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/battering/packages/palemoon.scm b/battering/packages/palemoon.scm index a2bedb8..5f40057 100644 --- a/battering/packages/palemoon.scm +++ b/battering/packages/palemoon.scm @@ -158,6 +158,9 @@ #$(if with-gtk3? ;; TODO: find a way to link atk_bridge_adaptor_init "--disable-accessibility" "--enable-accessibility")) + #:modules '((guix build utils) + (guix build gnu-build-system) + (ice-9 regex)) #:phases #~(modify-phases %standard-phases (add-after 'unpack 'fix-prefs @@ -230,15 +233,18 @@ `("MOZ_ENABLE_WAYLAND" = ("0"))))) (add-after 'install 'install-branding (lambda* (#:key outputs #:allow-other-keys) - (install-file #$(format #f "~a/branding/official/~a.desktop" name name) - (string-append #$output "/share/applications/")) - (for-each (lambda (size) - (let ((dir (format #f "~a/share/icons/hicolor/~ax~a/apps" #$output size size))) - (mkdir-p dir) - (copy-file - (format #f "~a/default~a.png" #$branding-dir size) - (in-vicinity dir (format #f "~a.png" #$name))))) - '(16 32 48)) + (for-each + (lambda (branding-file) + (let* ((size (match:substring + (string-match + (format #f "~a/default([0-9]+)\\.png" #$branding-dir) + branding-file) 1)) + (dir (format #f "~a/share/icons/hicolor/~ax~a/apps" #$output size size))) + (mkdir-p dir) + (copy-file + branding-file + (in-vicinity dir (format #f "~a.png" #$name))))) + (find-files #$branding-dir "default.*\\.png")) (let* ((dir (format #f "~a/share/icons/hicolor/128x128/apps" #$output))) (mkdir-p dir) (copy-file |