build/chromium-binary: Fix indentation.

* nonguix/build/chromium-binary-build-system.scm: Fix indentation.

Signed-off-by: Hilton Chain <hako@ultrarare.space>
This commit is contained in:
Maxim Cournoyer 2025-06-10 16:16:52 +09:00 committed by Hilton Chain
parent fb6696c598
commit d154ff0219
No known key found for this signature in database
GPG key ID: ACC66D09CA528292

View file

@ -32,32 +32,32 @@
(lambda (exe) (lambda (exe)
(display (string-append "Wrapping " exe "\n")) (display (string-append "Wrapping " exe "\n"))
(wrap-program exe (wrap-program exe
`("FONTCONFIG_PATH" ":" prefix `("FONTCONFIG_PATH" ":" prefix
(,(string-join (,(string-join
(list
(string-append fontconfig-minimal "/etc/fonts")
output)
":")))
`("PATH" ":" prefix
(,(string-join
(append
bin-directories
(list (list
bin)) (string-append fontconfig-minimal "/etc/fonts")
":"))) output)
`("LD_LIBRARY_PATH" ":" prefix ":")))
(,(string-join `("PATH" ":" prefix
(append (,(string-join
lib-directories (append
(list bin-directories
(string-append nss "/lib/nss") (list
output)) bin))
":"))) ":")))
;; Give a hint to Electron-based apps to detect if Wayland or X11 should `("LD_LIBRARY_PATH" ":" prefix
;; be used. (,(string-join
;; NOTE: The env-var version of this CLI arg was added in Electron >=28 (append
`("ELECTRON_OZONE_PLATFORM_HINT" ":" = lib-directories
("auto")))) (list
(string-append nss "/lib/nss")
output))
":")))
;; Give a hint to Electron-based apps to detect if Wayland or X11 should
;; be used.
;; NOTE: The env-var version of this CLI arg was added in Electron >=28
`("ELECTRON_OZONE_PLATFORM_HINT" ":" =
("auto"))))
(map (map
(lambda (exe) (string-append bin "/" exe)) (lambda (exe) (string-append bin "/" exe))
(filter (filter
@ -72,7 +72,7 @@
(add-after 'install 'install-wrapper install-wrapper))) (add-after 'install 'install-wrapper install-wrapper)))
(define* (chromium-binary-build #:key inputs (phases %standard-phases) (define* (chromium-binary-build #:key inputs (phases %standard-phases)
#:allow-other-keys #:rest args) #:allow-other-keys #:rest args)
"Build the given package, applying all of PHASES in order." "Build the given package, applying all of PHASES in order."
(apply gnu:gnu-build #:inputs inputs #:phases phases args)) (apply gnu:gnu-build #:inputs inputs #:phases phases args))