diff options
Diffstat (limited to 'battering/packages/palemoon.scm')
| -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 |