build/chromium-binary: Use 'add-input-labels' for host-inputs labels.

* nonguix/build-system/chromium-binary.scm (add-input-labels): New procedure.
(lower) <host-inputs>: Remove labels.  Adjust accordingly.
* nonguix/build/chromium-binary-build-system.scm
(install-wrapper): Adjust for label change of fontconfig-minimal.

Signed-off-by: Hilton Chain <hako@ultrarare.space>

nonguix/build-system/chromium-binary.scm

@@ -44,6 +44,9 @@
 ;;
 ;; Code:
 
+(define add-input-labels
+  (@@ (guix packages) add-input-labels))
+
 (define %chromium-binary-build-system-modules
   ;; Build-side modules imported by default.
   `((nonguix build chromium-binary-build-system)
@@ -72,61 +75,61 @@
   (define private-keywords
     '(#:target #:patchelf #:inputs #:native-inputs))
   (define host-inputs
-    `(,@(if source
+    (append
-            `(("source" ,source))
+     (if source
-            '())
+         `(("source" ,source))
-
+         '())
-      ,@inputs
+     inputs
-
+     ;; Inputs needed by the Electron.
-      ("alsa-lib" ,alsa-lib)
+     (add-input-labels
-      ("atk" ,atk)
+      alsa-lib
-      ("at-spi2-atk" ,at-spi2-atk)
+      atk
-      ("at-spi2-core" ,at-spi2-core)
+      at-spi2-atk
-      ("bash-minimal" ,bash-minimal)
+      at-spi2-core
-      ("cairo" ,cairo)
+      bash-minimal
-      ("cups" ,cups)
+      cairo
-      ("dbus" ,dbus)
+      cups
-      ("eudev" ,eudev)
+      dbus
-      ("expat" ,expat)
+      eudev
-      ("fontconfig" ,fontconfig)
+      expat
-      ("freetype" ,freetype)
+      fontconfig
-      ("gcc:lib" ,gcc "lib")
+      freetype
-      ("glib" ,glib)
+      `(,gcc "lib")
-      ("gtk+" ,gtk+)
+      glib
-      ("libdrm" ,libdrm)
+      gtk+
-      ("libnotify" ,libnotify)
+      libdrm
-      ("librsvg" ,librsvg)
+      libnotify
-      ("libsecret" ,libsecret)
+      librsvg
-      ("libx11" ,libx11)
+      libsecret
-      ("libxcb" ,libxcb)
+      libx11
-      ("libxcomposite" ,libxcomposite)
+      libxcb
-      ("libxcursor" ,libxcursor)
+      libxcomposite
-      ("libxdamage" ,libxdamage)
+      libxcursor
-      ("libxext" ,libxext)
+      libxdamage
-      ("libxfixes" ,libxfixes)
+      libxext
-      ("libxi" ,libxi)
+      libxfixes
-      ("libxkbcommon" ,libxkbcommon)
+      libxi
-      ("libxkbfile" ,libxkbfile)
+      libxkbcommon
-      ("libxrandr" ,libxrandr)
+      libxkbfile
-      ("libxrender" ,libxrender)
+      libxrandr
-      ("libxshmfence" ,libxshmfence)
+      libxrender
-      ("libxtst" ,libxtst)
+      libxshmfence
-      ("mesa" ,mesa)
+      libxtst
-      ("mit-krb5" ,mit-krb5)
+      mesa
-      ("nspr" ,nspr)
+      mit-krb5
-      ("nss" ,nss)
+      nspr
-      ("pango" ,pango)
+      nss
-      ("pulseaudio" ,pulseaudio)
+      pango
-      ("sqlcipher" ,sqlcipher)
+      pulseaudio
-      ("xcb-util" ,xcb-util)
+      sqlcipher
-      ("xcb-util-image" ,xcb-util-image)
+      xcb-util
-      ("xcb-util-keysyms" ,xcb-util-keysyms)
+      xcb-util-image
-      ("xcb-util-renderutil" ,xcb-util-renderutil)
+      xcb-util-keysyms
-      ("xcb-util-wm" ,xcb-util-wm)
+      xcb-util-renderutil
-      ("zlib" ,zlib)
+      xcb-util-wm
-
+      zlib)
-      ;; Keep the standard inputs of 'gnu-build-system'.
+     ;; Keep the standard inputs of 'gnu-build-system'.
-      ,@(standard-packages)))
+     (standard-packages)))
 
   (and (not target)                     ;XXX: no cross-compilation
        (bag

nonguix/build/chromium-binary-build-system.scm

@@ -19,7 +19,7 @@
 (define* (install-wrapper #:key inputs outputs #:allow-other-keys)
   (let* ((output (assoc-ref outputs "out"))
          (bin (string-append output "/bin"))
-         (fontconfig-minimal (assoc-ref inputs "fontconfig"))
+         (fontconfig-minimal (assoc-ref inputs "fontconfig-minimal"))
          (nss (assoc-ref inputs "nss"))
          (wrap-inputs (map cdr inputs))
          (lib-directories